<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If Request.form("SendMe")="-1" then MailBody="Name: " & Request.form("ContactName") & "
" MailBody=MailBody & "Email: " & Request.form("Email") & "
" MailBody=MailBody & "Telephone: " & Request.form("Telephone") & "
" MailBody=MailBody & "Nš of People: " & Request.form("Num_People") & "
" MailBody=MailBody & "Desired Date: " & Request.form("DDay") & " " & Request.form("DMonth") & " " & Request.form("DYear") & "
" MailBody=MailBody & "Desired Time: " & Request.form("DTime") & "
" MailBody=MailBody & "Desired Language: " & Request.form("DLang") & "
" MailBody=MailBody & "Hotel: " & Request.form("Hotel") & "
" MailBody=MailBody & "Observations: " & Request.form("Observations") Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoURLGetLatestVersion = "http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion" Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds ' assume constants are defined within script file .Item(cdoSendUsingMethod) = 2 ' cdoSendUsingPort .Item(cdoSMTPServer) = "localhost" .Item(cdoSMTPServerPort)= 25 .Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout .Item(cdoURLGetLatestVersion) = True .Update End With With iMsg Set .Configuration = iConf .To = Request.form("Email") .From = "pubrel@madeirawinecompany.com" .Subject = "Old Blandy Wine Lodge Tour" .HTMLBody = "Dear " & Request.form("ContactName") & ",

Thank you for your interest in the Old Blandy Wine Lodge. We have received your booking for the guided tour.

You will be contacted shortly to confirm the date and time that you requested.

The Old Blandy Wine Lodge." .Send End With With iMsg Set .Configuration = iConf .To = "seclodges@daydream.pt" .From = Request.form("Email") .Subject = "Tour Booking" .HTMLBody = MailBody .Send End With if err.number <> 0 then response.write err.number & vbcrlf & vbcrlf response.write err.description & vbcrlf response.end end if Response.redirect("book_form.asp?sent=yes") End If %> Untitled Document


Book Your Guided Tour

<% If request.QueryString("sent")="yes" then %> <% Else %> <% End If %>

Thank you for your tour booking and your interest in the Old Blandy Wine Lodge.

We will be in touch with you shortly to confirm your tour.

Please complete the form below to book your guided tour.

Approximate duration of tour is 40 minutes.

Fields marked with * must be completed.

   
Name: *
E-mail: *
Telephone:
Nº of people: *
Desired date: *
Desired language:
Desired time: *
Your hotel: *
Observations:
   
   
Note: Tours outside the mentioned hours are available upon request, for groups of at least 10 people. Please use the Observations field to let us know the time that suits you best.