File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/asp/mail-scripts/mail-prijsvraag.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 stridee
'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")
stridee = Request.Form("idee")
'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"">Idee:</td>"
Inbody = Inbody & "<td class=""Style01"">" & stridee & "</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, "Deelname Prijsvraag", 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">Deelname formulier 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">Je deelname formulier is verzonden, een kopie van je inzending is naar het door jou ingevulde E-mail adres gestuurd. </p>
<p class="Style02"> </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>