File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/asp/mail-scripts/mail-contact.asp
<!--#include file="mailfunction.asp"-->
<%
'Declareren van de variabelen die gebruikt worden
DIM strnaam
DIM stradres
DIM strpostcode
DIM strwoonplaats
DIM stremail
DIM strtelefoon
DIM strvraag
'Vullen van de variabelen met de waarden uit het formulier
strnaam = Request.Form("naam")
stradres = Request.Form("adres")
strpostcode= Request.Form("postcode")
strwoonplaats = Request.Form("woonplaats")
stremail = Request.Form("email")
strtelefoon = Request.Form("telefoon")
strvraag = Request.Form("vraag")
'Opbouw van het bericht wat verstuurd wordt
Inbody = "<html>"
Inbody = Inbody & "<head>"
Inbody = Inbody & "<META HTTP-EQUIV=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
Inbody = Inbody & "<title>Contact Formulier</title>"
Inbody = Inbody & "<style type=""text/css"">"
Inbody = Inbody & "<!--"
Inbody = Inbody & ".style1 {"
Inbody = Inbody & "color: #CC0211;"
Inbody = Inbody & "font-family: Verdana, Arial, Helvetica, sans-serif;"
Inbody = Inbody & "font-size: 9pt;"
Inbody = Inbody & "font-weight: bold;"
Inbody = Inbody & "}"
Inbody = Inbody & ".Style01 {"
Inbody = Inbody & "font-weight: normal;"
Inbody = Inbody & "font-size: 11px;"
Inbody = Inbody & "color: #000000;"
Inbody = Inbody & "font-family: Verdana, Arial, Helvetica, sans-serif;"
Inbody = Inbody & "text-decoration: none;"
Inbody = Inbody & "}"
Inbody = Inbody & ".Style02 {"
Inbody = Inbody & "font-weight: bold;"
Inbody = Inbody & "font-size: 11px;"
Inbody = Inbody & "color: #000000;"
Inbody = Inbody & "font-family: Verdana, Arial, Helvetica, sans-serif;"
Inbody = Inbody & "text-decoration: none;"
Inbody = Inbody & "}"
Inbody = Inbody & "-->"
Inbody = Inbody & "</style>"
Inbody = Inbody & "</head>"
Inbody = Inbody & "<span class=""style1"">Contact Formulier</span>"
Inbody = Inbody & "<br><br>"
Inbody = Inbody & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" width=""40%"" class=""Style02"">Naam:</td>"
Inbody = Inbody & "<td width=""65%"" class=""Style01"">" & strnaam & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style02"">Adres:</td>"
Inbody = Inbody & "<td class=""Style01"">" & stradres & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style02"">Postcode:</td>"
Inbody = Inbody & "<td class=""Style01"">" & strpostcode & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style02"">Woonplaats:</td>"
Inbody = Inbody & "<td class=""Style01"">" & strwoonplaats & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style02"">E-mailadres:</td>"
Inbody = Inbody & "<td class=""Style01"">" & stremail & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style02"">Telefoonnummer:</td>"
Inbody = Inbody & "<td class=""Style01"">" & strtelefoon & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style02"">Vraag:</td>"
Inbody = Inbody & "<td class=""Style01"">" & strvraag & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "</table>"
Inbody = Inbody & "</body>"
Inbody = Inbody & "</html>"
' Verzenden van mail via standaard CDO object
Dim sError
sError = ""
SendMail "info@indoorski.nl", "info@indoorski.nl", "Indoorski Den Bosch", "info@indoorski.nl", stremail, "Contact Formulier website", Inbody, sError
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="/css/standaard.css" rel="stylesheet" type="text/css" />
<link href="/css/forms.css" rel="stylesheet" type="text/css" />
</head>
<body topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" class="Style01">Aanvraag verzonden </td>
</tr>
<tr>
<td background="/image/container-lijn.PNG"><img src="/image/container-lijn.PNG" width="11" height="9" /></td>
</tr>
<tr>
<td valign="top"><br />
<% If sError = "" Then %>
<p class="Style02">Beste <% Response.Write(strnaam) %></p>
<p class="Style02">Uw aanvraag is verzonden, een kopie van uw aanvraag is naar het door u ingevulde E-mail adres gestuurd. </p>
<p class="Style02">Wij nemen zo spoedig mogelijk contact met u op. </p>
<p class="Style02">Met vriendelijke groet,</p>
<p class="Style03">Indoorski Den Bosch </p>
<% Else %>
<p class="Style02">Er is een fout opgetreden bij het verzenden van uw aanvraag: <% Response.Write(sError) %></p>
<% End If %>
</td>
</tr>
</table>