File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/asp/mail-scripts/mail-decemberreis.asp
<!--#include file="mailfunction.asp"-->
<%
'Declareren van de variabelen die gebruikt worden
DIM Inbody
DIM strnaam
DIM stradres
DIM strpostcode
DIM strwoonplaats
DIM strtelnummer
DIM stremailadres
DIM strhotel
DIM strdiner
DIM strontbijt
DIM strmatriaal
DIM strschoenen
DIM strschoenmaat
DIM strsubtotaal
DIM strannuleerbedrag
DIM strgebdatum
DIM strreisv1
DIM strreisv2
DIM strtotaal
'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")
strtelnummer = Request.Form("telnummer")
stremailadres = Request.Form("emailadres")
strhotel = Request.Form("hotel")
strdiner = Request.Form("diner")
strontbijt = Request.Form("ontbijt")
strmatriaal = Request.Form("matriaal")
strschoenen = Request.Form("schoenen")
strschoenmaat = Request.Form("schoenmaat")
strsubtotaal = Request.Form("subtotaal")
strannuleerbedrag = Request.Form("annuleerbedrag")
strgebdatum = Request.Form("gebdatum")
strreisv1 = Request.Form("reisv1")
strreisv2 = Request.Form("reisv2")
strtotaal = Request.Form("totaal")
if strhotel = "ON" then strhotel = "425.00"
if strdiner <> "ON" then strdiner = "0.00"
if strdiner = "ON" then strdiner = "15.00"
if strontbijt <> "ON" then strontbijt = "0.00"
if strontbijt = "ON" then strontbijt = "5.00"
if strmatriaal <> "ON" then strmatriaal = "0.00"
if strmatriaal = "ON" then strmatriaal = "35.00"
if strschoenen <> "ON" then strschoenen = "0.00"
if strschoenen = "ON" then strschoenen = "12.50"
if strreisv1 <> "ON" then strreisv1 = "0.00"
if strreisv1 = "ON" then strreisv1 = "10.00"
if strreisv2 <> "ON" then strreisv2 = "0.00"
if strreisv2 = "ON" then strreisv2 = "12.00"
'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>Najaars reis</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"">Inschrijving Novemberreis</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=""Style01"">Naam:</td>"
Inbody = Inbody & "<td width=""65%"" class=""Style01"">" & strnaam & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style01"">Adres:</td>"
Inbody = Inbody & "<td class=""Style01"">" & stradres & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style01"">Postcode:</td>"
Inbody = Inbody & "<td class=""Style01"">" & strpostcode & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style01"">Woonplaats:</td>"
Inbody = Inbody & "<td class=""Style01"">" & strwoonplaats & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style01"">Telefoonnummer:</td>"
Inbody = Inbody & "<td class=""Style01"">" & strtelnummer & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td height=""20"" class=""Style01"">E-mailadres:</td>"
Inbody = Inbody & "<td class=""Style01"">" & stremailadres & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "</table>"
Inbody = Inbody & "<br>"
Inbody = Inbody & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td width=""29%"" class=""Style01"">Hotel (Incl. skipas)</td>"
Inbody = Inbody & "<td width=""10%""> </td>"
Inbody = Inbody & "<td width=""65%"" class=""Style01"">" & strhotel & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">Diner voor vertrek</td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td class=""Style01"">" & strdiner & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">Ontbijt bij aankomst</td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td class=""Style01"">" & strontbijt & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">Huur Ski / Snowboard </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td class=""Style01"">" & strmatriaal & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">Huur Schoenen </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td class=""Style01"">" & strschoenen & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">Schoenmaat</td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td class=""Style01"">" & strschoenmaat & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td><strong class=""Style02"">Annuleringsverzekering</strong></td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">5% van de reissom</td>"
Inbody = Inbody & "<td class=""Style01"">€</td>"
Inbody = Inbody & "<td class=""Style01"">" & strannuleerbedrag & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td><b class=""Style02"">Reisverzekering</b></td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">A (eigen risico €75,-)</td>"
Inbody = Inbody & "<td class=""Style01"">€</td>"
Inbody = Inbody & "<td class=""Style01"">" & strreisv1 & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">B (zonder eigen risico)</td>"
Inbody = Inbody & "<td class=""Style01"">€</td>"
Inbody = Inbody & "<td class=""Style01"">" & strreisv2 & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">Geb. Datum</td>"
Inbody = Inbody & "<td class=""Style01""> </td>"
Inbody = Inbody & "<td class=""Style01"">" & strgebdatum & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style02""><b>TOTAAL te betalen:</b></td>"
Inbody = Inbody & "<td class=""Style02"">€</td>"
Inbody = Inbody & "<td class=""Style02"">" & strtotaal & "</td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "</table>"
Inbody = Inbody & "<table>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td class=""Style01""><center>Het bedrag kan worden overgemaakt op rekening nummer 40.58.06.868 t.n.v. Indoorski Den-Bosch.</center></td>"
Inbody = Inbody & "<td> </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", stremailadres, "Inschrijfformulier November-Reis", 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>