File: D:/HostingSpaces/HVliet/thomashuisdeborg.nl/wwwroot/contact.asp
<%@ LANGUAGE="VBSCRIPT" %>
<%
Mailform = "ms-smtp"
'TITLE AND TEXT:
MailSender = "Infoform@sneeuwberg.nl"
'SmtpServer = "smtp.uwdomein.nl"
'MailReceiver = "grancanaria@home.nl"
MailReceiver = "henk.vanvliet@planet.nl"
MailSubject = "***Website reservering***"
lngImportance = 1
mailError=0
SentMail=0
'INPUT FIELDS:
'make sure all labels are the same size. (using spaces)
'This will improve the layout of the returned mail.
If Request.Form("Send") = "Verzenden" Then
IF Request.Form("Label001")<>"" _
AND Request.Form("Label003")<>"" _
AND Request.Form("Label004")<>"" _
AND Request.Form("Label006")<>"" THEN
Label01 = "Uw Naam:* "
Label02 = "Bedrijf: "
Label03 = "Adres:* "
Label04 = "Postcode / Plaats:* "
Label05 = "Telefoonnummer: "
Label06 = "Email adres:* "
Label07 = "Aantal personen "
Label08 = "Begindatum "
Label09 = "Einddatum "
Label12 = "Naam 1e persoon "
Label13 = "Adres "
Label14 = "Geboortedatum "
Label15 = "Naam 2e persoon "
Label16 = "Adres "
Label17 = "Geboortedatum "
Label18 = "Naam 3e persoon "
Label19 = "Adres "
Label20 = "Geboortedatum "
Label21 = "Naam 4e persoon "
Label22 = "Adres "
Label23 = "Geboortedatum "
Label24 = "Naam 5e persoon "
Label25 = "Adres "
Label26 = "Geboortedatum "
Label27 = "Naam 6e persoon "
Label28 = "Adres "
Label29 = "Geboortedatum "
IF Request.form("Label30")="Ja" THEN
Label30 = "Betaling: per accept-giro "
ELSE
Label30 = "Betaling: per eenmalige machtiging"
END IF
BodyText = Label01 & Chr(9) & Request.Form("Label001") & Chr(13) & Chr(10) &_
Label02 & Chr(9) & Request.Form("Label002") & Chr(13) & Chr(10) &_
Label03 & Chr(9) & Request.Form("Label003") & Chr(13) & Chr(10) &_
Label04 & Chr(9) & Request.Form("Label004") & Chr(13) & Chr(10) &_
Label05 & Chr(9) & Request.Form("Label005") & Chr(13) & Chr(10) &_
Label06 & Chr(9) & Request.Form("Label006") & Chr(13) & Chr(10) &_
Label07 & Chr(9) & Request.Form("Label007") & Chr(13) & Chr(10) &_
Label08 & Chr(9) & Request.Form("Label008") & Chr(13) & Chr(10) &_
Label09 & Chr(9) & Request.Form("Label009") & Chr(13) & Chr(10) &_
Label12 & Chr(9) & Request.Form("Label012") & Chr(13) & Chr(10) &_
Label13 & Chr(9) & Request.Form("Label013") & Chr(13) & Chr(10) &_
Label14 & Chr(9) & Request.Form("Label014") & Chr(13) & Chr(10) &_
Label15 & Chr(9) & Request.Form("Label015") & Chr(13) & Chr(10) &_
Label16 & Chr(9) & Request.Form("Label016") & Chr(13) & Chr(10) &_
Label17 & Chr(9) & Request.Form("Label017") & Chr(13) & Chr(10) &_
Label18 & Chr(9) & Request.Form("Label018") & Chr(13) & Chr(10) &_
Label19 & Chr(9) & Request.Form("Label019") & Chr(13) & Chr(10) &_
Label20 & Chr(9) & Request.Form("Label020") & Chr(13) & Chr(10) &_
Label21 & Chr(9) & Request.Form("Label021") & Chr(13) & Chr(10) &_
Label22 & Chr(9) & Request.Form("Label022") & Chr(13) & Chr(10) &_
Label23 & Chr(9) & Request.Form("Label023") & Chr(13) & Chr(10) &_
Label24 & Chr(9) & Request.Form("Label024") & Chr(13) & Chr(10) &_
Label25 & Chr(9) & Request.Form("Label025") & Chr(13) & Chr(10) &_
Label26 & Chr(9) & Request.Form("Label026") & Chr(13) & Chr(10) &_
Label27 & Chr(9) & Request.Form("Label027") & Chr(13) & Chr(10) &_
Label28 & Chr(9) & Request.Form("Label028") & Chr(13) & Chr(10) &_
Label29 & Chr(9) & Request.Form("Label029") & Chr(13) & Chr(10) &_
Label30 & Chr(9) & Request.Form("Label030") & Chr(13) & Chr(10)
If Mailform = "ms-smtp" Then
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send MailSender,MailReceiver,MailSubject,BodyText,lngImportance
Set myCDONTSMail = Nothing
SentMail = 1
ElseIf Mailform = "smtpsvg" Then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
If Err.Number <> 0 Then
AlertMessage = "Error: Could not create SMTPsvg.Mailer object. Contact Administrator. " & Err.Number & ": " & Err.Description
Else
Mailer.BodyText = BodyText
Mailer.FromAddress = MailSender
Mailer.RemoteHost = SmtpServer
Mailer.Recipient = MailReceiver
Mailer.Subject = MailSubject
If Not Mailer.SendMail Then
SentMail = 0
Else
SentMail = 1
End If
Set Mailer = Nothing
End If
End If
ELSE
MailError=1
END IF
END IF
IF SentMail=0 THEN
IF Request.Form("Label030")="Ja" THEN
selYes=" checked"
selNo=""
ELSEIF Request.Form("Label030")="Nee" THEN
selYes=""
selNo=" checked"
ELSE
selYes=""
selNo=""
END IF
END IF%>
<HTML>
<HEAD>
<TITLE>Reserveringsaanvraag,Thomashuis 'de Borg' - Vaals</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="master.css" type="text/css">
</HEAD>
<BODY BGCOLOR=#FFD7A3 LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<div align="center">
<table width="800" border="0" cellspacing="0" cellpadding="3">
<tr>
<td style="border-top:1px solid #339900;border-left:1px solid #339900;border-right:1px solid #339900;border-bottom:1px solid #339900;">
<div align="center">
<table width=800 border=0 cellpadding=0 cellspacing=0>
<tr>
<td colspan=2> <img src="images/index_01.gif" width=147 height=92 alt=""></td>
<td><img src="images/index_02.gif" width=211 height=92 alt=""></td>
<td><img src="images/index_03.gif" width=238 height=92 alt=""></td>
<td><img src="images/index_04.gif" width=193 height=92 alt="Henk en Hennie van Vliet-Linders"></td>
<td><img src="images/index_05.gif" width=11 height=92 alt=""></td>
</tr>
<tr>
<td colspan=6> <img src="images/index_06.gif" width=800 height=21 alt=""></td>
</tr>
<tr>
<td valign="top" width="135" bgcolor="#FFD7A3">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="83%" style="border-top:1px solid #339900;"><a href="index.html">Home</a></td>
<td width="17%" style="border-top:1px solid #339900;"> </td>
</tr>
<tr>
<td width="83%" style="border-top:1px solid #339900;"><a href="intro.html">Introductie</a></td>
<td width="17%" style="border-top:1px solid #339900;"> </td>
</tr>
<tr>
<td width="83%" style="border-top:1px solid #339900;"><a href="accommodatie.html">Accommodatie</a></td>
<td width="17%" style="border-top:1px solid #339900;"> </td>
</tr>
<tr>
<td width="83%" style="border-top:1px solid #339900;"><a href="prijzen.html">Prijzen</a></td>
<td width="17%" style="border-top:1px solid #339900;"> </td>
</tr>
<tr>
<td width="83%" style="border-top:1px solid #339900;"><a href="contact.asp">Contact</a>
<a href="machtiging.html" target="_blank" style="font-size:11;font-weight:bold;">Machtiging </a>
</td>
<td width="17%" style="border-top:1px solid #339900;" valign="top"><img src="images/ball_full.gif" width="16" height="16"></td>
</tr>
<tr>
<td width="83%" style="border-top:1px solid #339900;border-bottom:1px solid #339900;"><a href="thomas.html">Stichting
Thomashuizen Nederland</a></td>
<td width="17%" style="border-top:1px solid #339900;border-bottom:1px solid #339900;"> </td>
</tr>
<tr>
<td colspan="2" width="100%">
<p>Adres:<br>
<font size="2">Lemierserberg 33<br>
6291 NM Vaals<br>
Nederland</font></p>
<p><font size="2">tel:<br>
(31) 043 3060588<br>
mobiel:<br>
0620-489090 </font></p>
<p><font size="2">email:<br><a href="mailto:henk.vanvliet@planet.nl"><font size=1>henk.vanvliet@planet.nl</font></a></font></p>
<p></p>
</td>
</tr>
<tr>
<td width="83%" style="border-top:1px solid #339900;"> </td>
<td width="17%" style="border-top:1px solid #339900;"> </td>
</tr>
</table>
</td>
<td background="images/index_08.gif"><img src="images/index_08.gif" width=12 height=464 alt=""></td>
<td valign="top" colspan=3 bgcolor="#FFFFFF">
<h3>Aanvraagformulier voor reserveringen</h3>
<%IF SentMail=0 AND MailError=0 THEN%>
<p>Wilt u reserveren? Vult u dan dit formulier zo volledig mogelijk in.We bevestigen uw reservering zo spoedig mogelijk.</p>
<p>Met vriendelijke groet,</p>
<p>Henk van Vliet en Hennie Linders</p>
<%ELSEIF SentMail=0 AND MailError=1 THEN%>
<H5>U moet alle gemarkeerde velden invullen voor u op 'Verzenden' klikt.</H5>
<%ELSEIF SentMail=1 THEN%>
<H5>Uw aanvraag wordt verwerkt en u krijgt zo spoedig mogelijk bericht.</H5>
<%END IF
IF SentMail=0 THEN%>
<div align='center'>
<form action="contact.asp" method="post">
<table style="border:1px solid #009900" cellspacing='0' cellpadding='0'>
<th> Thomashuis 'de Borg' reserveringsaanvraag</th>
<tr><td>
<table border=0 cellpadding=2 cellspacing=0>
<tr>
<td colspan='3'></td>
</tr>
<tr>
<td>Uw Naam:* </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label001")%>" Size='40' name='Label001'>
</td>
</tr>
<tr>
<td>Bedrijf: </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label002")%>" Size='40' name='Label002'>
</td>
</tr>
<tr>
<td>Adres:* </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label003")%>" Size='40' name='Label003'>
</td>
</tr>
<tr>
<td>Postcode / Plaats:* </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label004")%>" Size='40' name='Label004'>
</td>
</tr>
<tr>
<td>Telefoonnummer: </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label005")%>" Size='40' name='Label005'>
</td>
</tr>
<tr>
<td>Email adres:* </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label006")%>" Size='40' name='Label006'>
</td>
</tr>
<tr>
<td colspan='3'><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td colspan='1'><strong>Wenst een
appartement te huren</strong></td>
<td colspan='2'> </td>
</tr>
<tr>
<td>Aantal personen </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label007")%>" Size='10' name='Label007'>
</td>
</tr>
<tr>
<td>Begindatum </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label008")%>" Size='10' name='Label008'>
</td>
</tr>
<tr>
<td>Einddatum </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label009")%>" Size='10' name='Label009'>
</td>
</tr>
<tr>
<td colspan='3'><i><font size='2'>U
ontvangt na reservering altijd schriftelijk een
bevestiging.</font></i></td>
</tr>
<tr>
<td colspan='3' height="17"><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td colspan='3'>Gegevens van alle
gasten t.b.v. evtl. annuleringsverzekering:</td>
</tr>
<tr>
<td>Naam 1e persoon </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label012")%>" Size='40' name='Label012'>
</td>
</tr>
<tr>
<td>Adres </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label013")%>" Size='40' name='Label013'>
</td>
</tr>
<tr>
<td>Geboortedatum </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label014")%>" Size='40' name='Label014'>
</td>
</tr>
<tr>
<td colspan='3'><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td>Naam 2e persoon </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label015")%>" Size='40' name='Label015'>
</td>
</tr>
<tr>
<td>Adres </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label016")%>" Size='40' name='Label016'>
</td>
</tr>
<tr>
<td>Geboortedatum </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label017")%>" Size='40' name='Label017'>
</td>
</tr>
<tr>
<td colspan='3'><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td>Naam 3e persoon </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label018")%>" Size='40' name='Label018'>
</td>
</tr>
<tr>
<td>Adres </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label019")%>" Size='40' name='Label019'>
</td>
</tr>
<tr>
<td>Geboortedatum </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label020")%>" Size='40' name='Label020'>
</td>
</tr>
<tr>
<td colspan='3'><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td>Naam 4e persoon </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label021")%>" Size='40' name='Label021'>
</td>
</tr>
<tr>
<td>Adres </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label022")%>" Size='40' name='Label022'>
</td>
</tr>
<tr>
<td>Geboortedatum </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label023")%>" Size='40' name='Label023'>
</td>
</tr>
<tr>
<td colspan='3'><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td>Naam 5e persoon </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label024")%>" Size='40' name='Label024'>
</td>
</tr>
<tr>
<td>Adres </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label025")%>" Size='40' name='Label025'>
</td>
</tr>
<tr>
<td>Geboortedatum </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label026")%>" Size='40' name='Label026'>
</td>
</tr>
<tr>
<td colspan='3'><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td>Naam 6e persoon </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label027")%>" Size='40' name='Label027'>
</td>
</tr>
<tr>
<td>Adres </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label028")%>" Size='40' name='Label028'>
</td>
</tr>
<tr>
<td>Geboortedatum </td>
<td colspan='2'>
<Input Type='Text' Value="<%=Request.Form("Label029")%>" Size='40' name='Label029'>
</td>
</tr>
<tr>
<td colspan='3'><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td colspan='3'><i><font size='2'>Bij
reserveringen voor meer dan 6 personen verzoeken
wij u vriendelijk telefonisch contact<br>
op te nemen met Henk van Vliet of Hennie Linders,
telefoonnummer: (31) 043 3066299</font></i></td>
</tr>
<tr>
<td colspan='3'><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td colspan='3'><b>BETALING</b></td>
</tr>
<tr>
<td rowspan="2" valign="top">Wijze
van betaling:(aanbetaling 25%, restant 75%)</td>
<td>
<Input Type='Radio' Value='Ja' name='Label030'<%=selYes%>>
</td>
<td>Per accept-giro </td>
</tr>
<tr>
<td>
<Input Type='Radio' Value='Nee' name='Label030'<%=selNo%>>
</td>
<td>Per eenmalige automatische machtiging</td>
<td>
</tr>
<tr>
<td colspan="4"><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td colspan='3' align='center'><font size='2'>
<div align='left'><i>Bij automatische machtiging
dient u de machtiging, te vinden <a href="machtiging.html" target="_blank">hier</a>,
uit te printen, in<br>
te vullen en op te sturen. Het verschuldigde
bedrag wordt omstreeks de<br>
25ste van de maand afgeboekt. Indien u het niet
eens bent met de afschrijving, heeft u een<br>
maand de tijd om uw bank- of girokantoor opdracht
te geven het bedrag terug te boeken. U<br>
kunt ook de automatische afschrijving stop zetten.</i></div>
</font></td>
</tr>
<tr>
<td colspan='3'><img src="images/transparent.gif" width="8" height="8"></td>
</tr>
<tr>
<td colspan='3' align='center'>
<input type="submit" value="Verzenden" name="Send">
<input type="reset" value="Wissen" name="Clear">
<input type='button' value='uitprinten' name='printbutt' onclick=window.print()>
<small>* = verplicht veld</small></td>
</tr>
</table>
</td><tr></table></form></div>
<%END IF%>
</td>
<td background="images/index_10.gif"><img src="images/index_10.gif" width=11 height=464 alt=""></td>
</tr>
<tr>
<td colspan=6> <img src="images/index_11.gif" width=800 height=23 alt=""></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</BODY>
</HTML>