File: D:/HostingSpaces/PvdBoogaard/indoorski.nl/backup/oude-site/asp/mail-scripts/mail-meireis.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 strmatriaal
DIM strschoenen
DIM strschoenmaat
DIM strsubtotaal
DIM strannuleerbedrag
DIM strgebdatum
DIM strreisv1
DIM strreisv2
DIM strskiles
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")
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")
strskiles = Request.Form("skiles")
strtotaal = Request.Form("totaal")
if strhotel = "ON" then strhotel = "395.00"
if strhotel <> "ON" then strdiner = "0.00"
if strmatriaal <> "ON" then strmatriaal = "0.00"
if strmatriaal = "ON" then strmatriaal = "75.00"
if strschoenen <> "ON" then strschoenen = "0.00"
if strschoenen = "ON" then strschoenen = "25.00"
if strreisv1 <> "ON" then strreisv1 = "0.00"
if strreisv1 = "ON" then strreisv1 = "20.00"
if strreisv2 <> "ON" then strreisv2 = "0.00"
if strreisv2 = "ON" then strreisv2 = "25.00"
if strskiles = "ON" then strskiles = "95.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>Mei-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 Mei-reis</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"">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"">Subtotaal</strong></td>"
Inbody = Inbody & "<td class=""Style02"">€</td>"
Inbody = Inbody & "<td class=""Style02"">" & strsubtotaal & "</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><b class=""Style02"">Ski / Snowboardles</b></td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "<td> </td>"
Inbody = Inbody & "</tr>"
Inbody = Inbody & "<tr>"
Inbody = Inbody & "<td class=""Style01"">Ski / Snowboardles</td>"
Inbody = Inbody & "<td class=""Style01"">€</td>"
Inbody = Inbody & "<td class=""Style01"">" & strskiles & " (5 dagdelen) </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 Mei-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>