File: D:/HostingSpaces/HVliet/thomashuisdeborg.nl/wwwroot/old/nl/resform.asp
<%
On Error Resume Next
'******************************************************************************
' This script requires that SMTPSVG.DLL is installed on the server
' Place the dll in c:\winnt\system32 directory (or equivalent)
' and type 'regsvr32 c:\winnt\system32\smtpsvg.dll' to enable the dll.
'OR**OR**OR**OR**OR**OR**OR**OR**OR**OR**OR**OR**OR**OR**OR**OR**OR**OR**OR****
' This script requires that IIS-SMTPservice is installed on the server
' configure the SMTPservice: Select the "Delivery" tab. and "Advanced"
' In the "Fully Qualified Domain Name" text box, enter the IIS computer name.
' In the "Smart Host" text box, enter the name of your SMTP server.
' Make sure the Inetuser account has write permissions on the mailqueue
'******************************************************************************
' This script was written by Fuzzy Daze / Thicor Services and may be modified
' and distributed without any limitations. I would appreciate if you would
' leave this header intact if you do so.
'******************************************************************************
'******************************************************************************
' SECTION1
' Most Variables are in this section. You should probably change the
' Label-names and the label-attributes.
' If you use a form-element that requires a closing tag or option values,
' you must insert it in the table yourself.
'******************************************************************************
' Name of this document if you choose to change it. Do not write .asp!!!
DocName = "resform"
' type of mailer you use for this form
'Mailform = "smtpsvg"
Mailform = "ms-smtp"
'TITLE AND TEXT:
FormTitle = "Sneeuwberg Appartementen reserverings formulier"
ResponseText = "<H3>Uw aanvraag wordt verwerkt en u krijgt zo spoedig mogelijk bericht<H3>"
RequiredText = "<H3>U moet alle gemarkeerde velden invullen voor u op 'Verzenden' klikt.</H3>"
MailSender = "Infoform@sneeuwberg.nl"
'SmtpServer = "smtp.uwdomein.nl"
'MailReceiver = "resform.sneeuwberg@thicor.com"
MailReceiver = "henk.vanvliet@planet.nl"
MailSubject = "Sneeuwberg website reserveringsform"
lngImportance = 1
'INPUT FIELDS:
'make sure all labels are the same size. (using spaces)
'This will improve the layout of the returned mail.
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 "
Label30 = "Per accept-giro "
Label31 = "Per eenmalige automatische machtiging"
If Request.Form.Count = 0 Then
'All Attributes of the input fields exept "Name="
Attrib01 = "Input Type='Text' Value='' Size='40'"
Attrib02 = "Input Type='Text' Value='' Size='40'"
Attrib03 = "Input Type='Text' Value='' Size='40'"
Attrib04 = "Input Type='Text' Value='' Size='40'"
Attrib05 = "Input Type='Text' Value='' Size='40'"
Attrib06 = "Input Type='Text' Value='' Size='40'"
Attrib07 = "Input Type='Text' Value='' Size='10'"
Attrib08 = "Input Type='Text' Value='' Size='10'"
Attrib09 = "Input Type='Text' Value='' Size='10'"
Attrib12 = "Input Type='Text' Value='' Size='40'"
Attrib13 = "Input Type='Text' Value='' Size='40'"
Attrib14 = "Input Type='Text' Value='' Size='40'"
Attrib15 = "Input Type='Text' Value='' Size='40'"
Attrib16 = "Input Type='Text' Value='' Size='40'"
Attrib17 = "Input Type='Text' Value='' Size='40'"
Attrib18 = "Input Type='Text' Value='' Size='40'"
Attrib19 = "Input Type='Text' Value='' Size='40'"
Attrib20 = "Input Type='Text' Value='' Size='40'"
Attrib21 = "Input Type='Text' Value='' Size='40'"
Attrib22 = "Input Type='Text' Value='' Size='40'"
Attrib23 = "Input Type='Text' Value='' Size='40'"
Attrib24 = "Input Type='Text' Value='' Size='40'"
Attrib25 = "Input Type='Text' Value='' Size='40'"
Attrib26 = "Input Type='Text' Value='' Size='40'"
Attrib27 = "Input Type='Text' Value='' Size='40'"
Attrib28 = "Input Type='Text' Value='' Size='40'"
Attrib29 = "Input Type='Text' Value='' Size='40'"
Attrib30 = "Input Type='Checkbox' Value='Ja'"
Attrib31 = "Input Type='Checkbox' Value='Ja'"
'******************************************************************************
' SECTION2
' This section contains the table and it's layout. Be carefull when you edit
' this section.
'******************************************************************************
'******************************************************************************
' Table header. You do not need to edit this unless you don't like the colors
'******************************************************************************
Response.Write "<html><head><title>" &FormTitle &"</title>" &vbNewLine
Response.Write "<LINK HREF='../include/styles.css' REL='stylesheet' TYPE='text/css'>" &vbNewLine
Response.Write "</head>" &vbNewLine
Response.Write "<body>" &vbNewLine
%>
<p><b><font size='4'>Aanvraagformulier voor reserveringen</font></b></p>
<p>Wilt u
reserveren? Vult u dan dit formulier zo volledig mogelijk in.We bevestigen uw reservering zo spoedig mogelijk.<br>
<br>
Met vriendelijke groet,<br>
<br>
Henk van Vliet en Hennie Linders
</p>
<%
Response.Write "<div align='center'>" &vbNewLine
Response.Write "<form action='" &DocName &".asp?command=send' method='post' language='VBScript'>" &vbNewLine
Response.Write "<table border='1' cellspacing='0' cellpadding='0'>" &vbNewLine
Response.Write "<th> " &FormTitle &"</th>" &vbNewLine
Response.Write "<tr><td>" &vbNewLine
Response.Write "<table>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'></td></tr>" &vbNewLine
'******************************************************************************
Response.Write "<tr><td class='resform'>" &Label01 &"</td><td class='resform' colspan='2'><" &Attrib01 &" name='Label001'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label02 &"</td><td class='resform' colspan='2'><" &Attrib02 &" name='Label002'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label03 &"</td><td class='resform' colspan='2'><" &Attrib03 &" name='Label003'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label04 &"</td><td class='resform' colspan='2'><" &Attrib04 &" name='Label004'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label05 &"</td><td class='resform' colspan='2'><" &Attrib05 &" name='Label005'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label06 &"</td><td class='resform' colspan='2'><" &Attrib06 &" name='Label006'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='1'><font size=+1>Wenst een appartement te huren</font></td><td class='resform' colspan='2'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label07 &"</td><td class='resform' colspan='2'><" &Attrib07 &" name='Label007'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label08 &"</td><td class='resform' colspan='2'><" &Attrib08 &" name='Label008'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label09 &"</td><td class='resform' colspan='2'><" &Attrib09 &" name='Label009'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'><i><font size='2'>U ontvangt na reservering altijd schriftelijk een bevestiging.</font></i></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'>Gegevens van alle gasten t.b.v. annuleringsverzekering:</td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label12 &"</td><td class='resform' colspan='2'><" &Attrib12 &" name='Label012'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label13 &"</td><td class='resform' colspan='2'><" &Attrib13 &" name='Label013'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label14 &"</td><td class='resform' colspan='2'><" &Attrib14 &" name='Label014'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label15 &"</td><td class='resform' colspan='2'><" &Attrib15 &" name='Label015'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label16 &"</td><td class='resform' colspan='2'><" &Attrib16 &" name='Label016'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label17 &"</td><td class='resform' colspan='2'><" &Attrib17 &" name='Label017'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label18 &"</td><td class='resform' colspan='2'><" &Attrib18 &" name='Label018'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label19 &"</td><td class='resform' colspan='2'><" &Attrib19 &" name='Label019'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label20 &"</td><td class='resform' colspan='2'><" &Attrib20 &" name='Label020'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label21 &"</td><td class='resform' colspan='2'><" &Attrib21 &" name='Label021'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label22 &"</td><td class='resform' colspan='2'><" &Attrib22 &" name='Label022'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label23 &"</td><td class='resform' colspan='2'><" &Attrib23 &" name='Label023'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label24 &"</td><td class='resform' colspan='2'><" &Attrib24 &" name='Label024'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label25 &"</td><td class='resform' colspan='2'><" &Attrib25 &" name='Label025'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label26 &"</td><td class='resform' colspan='2'><" &Attrib26 &" name='Label026'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label27 &"</td><td class='resform' colspan='2'><" &Attrib27 &" name='Label027'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label28 &"</td><td class='resform' colspan='2'><" &Attrib28 &" name='Label028'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>" &Label29 &"</td><td class='resform' colspan='2'><" &Attrib29 &" name='Label029'></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' 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>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'><b>BETALING</b></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>Wijze van betaling:</td><td class='resform'><" &Attrib30 &" name='Label030'></td><td class='resform'>" &Label30 &"</td></tr>" &vbNewLine
Response.Write "<tr><td class='resform'>(aanbetaling 25%, restant 75%)</td><td class='resform'><" &Attrib31 &" name='Label031'></td><td class='resform'>" &Label31 &"</td><td class='resform'></tr>" &vbNewLine
Response.Write "<tr><td class='resform'></td><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3' align='center'><i><font size='2'><div align='left'>Bij automatische machtiging dient u de machtiging, te vinden in de navigatie, uit te printen, in<br>" &vbNewLine
Response.Write " te vullen en op te sturen. Het verschuldigde bedrag wordt omstreeks de<br>" &vbNewLine
Response.Write " 25ste van de maand afgeboekt. Indien u het niet eens bent met de afschrijving, heeft u een<br>" &vbNewLine
Response.Write " maand de tijd om uw bank- of girokantoor opdracht te geven het bedrag terug te boeken. U<br>" &vbNewLine
Response.Write " kunt ook de automatische afschrijving stop zetten.</div></font></i></td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3'> </td></tr>" &vbNewLine
Response.Write "<tr><td class='resform' colspan='3' align='center'> " &vbNewLine
Response.Write " <input type='submit' value='Verzenden' name='Send'><input type='reset' value='Wissen' name='Clear'><input type='button' value='uitprinten' name='printbutt' onclick=window.print()>" &vbNewLine
Response.Write " <small>* = verplicht veld</small></td></tr>" &vbNewLine
Response.Write "</table>" &vbNewLine
Response.Write "</td><tr></table></form></div></body></html>" &vbNewLine
'*********************************************************
' SECTION3
' Next delete the lines of the items that are not required
' Beware not to delete the 'Then' statement when deleting
' the last item.
'*********************************************************
ElseIf Request.Form("Label001")="" OR _
Request.Form("Label003")="" OR _
Request.Form("Label004")="" OR _
Request.Form("Label006")="" Then
Response.Write "<html><head><title>" &FormTitle &"</title>" &vbNewLine
Response.Write "<LINK HREF='../_private/styles.css' REL='stylesheet' TYPE='text/css'>" &vbNewLine
Response.Write "</head>" &vbNewLine
Response.Write "<body>" &vbNewLine
Response.Write "<div align='center'><p> </p>" &vbNewLine
Response.Write "<H2>" &FormTitle &"</H2><p>" &RequiredText &vbNewLine
Response.Write "<INPUT TYPE='button' VALUE='Return to the form' onClick='history.go(-1)'>" &vbNewLine
Response.Write "</div></body></html>" &vbNewLine
'*********************************************************
' SECTION4
' The next section actually mails the contents of the Form
' Do not edit this section unless you aded more fields
'*********************************************************
ElseIf Request.QueryString("command") = "send" Then
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) &_
Label31 & Chr(9) & Request.Form("Label031")
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
'************************************************************
' SECTION5
' The next section returns a page to confirm your submission
' If you want to change the response-text, do so at the start
' of this script
' Do not edit this section
'************************************************************
If SentMail>0 Then
Response.Write "<html><head><title>" &FormTitle &"</title>" &vbNewLine
Response.Write "<LINK HREF='../_private/styles.css' REL='stylesheet' TYPE='text/css'>" &vbNewLine
Response.Write "</head><body>" &vbNewLine
Response.Write "<blockquote><p><strong>" &FormTitle
Response.Write "</strong></p>" &vbNewLine
Response.Write "<p><small>"
Response.Write ResponseText &"</small></p></blockquote></body></html>"
End If
End If
%>