<% '**************************************************************************************** '* Copyright Notice - There isnt one for this script. '* '* This script is free for use. '* '* There is no support with this script. We are available for a free quotes. '* '* Web Animations take NO responsiblity with this script for any problems. '****************************** Use it at your own risk********************************* '**************************************************************************************** ' form start dim mail, smtpServer, smtpPort, message, SendString, subject, name, email, address, telnoday, mobile, content, StringValue, FormValue, sender, check1, check2 ' Put your SMTP Mail server here. If you do not know, ask your network administrator smtpServer = "mail.holidayvilla-florida.com" smtpPort = 25 ' this will not require changing unless instructed by your network administrator 'The message that appears in the subject of all emails subject = "Holiday Villa Vacation" 'Sender sender = "enquiry@holidayvilla-florida.com" ' Now gets the data from Form name = Request.Form("name") email = Request.Form("email") address = Request.Form("address") telnoday = Request.Form("telnoday") mobile = Request.Form("telnoeve") content = Request.Form("content") check1 = Request.Form("C1") check2 = Request.Form("C2") ' Sends Email ' This is the customers email Set mail = CreateObject ("JMail.SMTPMail") mail.ServerAddress = smtpServer & ":" & smtpPort mail.Sender = sender mail.Subject = subject mail.AddRecipient sender If check1 = "ON" Then mail.AddRecipient email End If mail.ContentType = "text/html" mail.ISOEncodeHeaders = false mail.ContentTransferEncoding = "8bit" 'This is what is sent to the customer. 'Switch to determine booking form or enquiry If check2 = "ON" Then message = BuildstringBooking(SendString) else message = BuildString(SendString) End If mail.Body = message ' Send all email ' Turn on error handling On Error Resume Next If Not mail.execute Then Response.Write( "ERROR MESSAGE: " & Jmail.ErrorMessage & "

" & vbcrlf ) Response.Write( "ERROR SOURCE: " & Jmail.ErrorSource & "

" & vbcrlf ) Response.Write( "LOG:

" & Jmail.Log & "

" & vbcrlf ) End If set mail = nothing function BuildString(SendString) ' build header SendString = "" SendString = SendString & "" SendString = SendString & "
Thank you very much for your enquiry.
" ' body SendString = SendString & BuildElement("Name", name) SendString = SendString & BuildElement("Email", email) SendString = SendString & BuildElement("Address", address) SendString = SendString & BuildElement("Day Tel.", telnoday) SendString = SendString & BuildElement("Mobile Tel.", mobile) SendString = SendString & BuildElement("Comments", content) SendString = SendString & "

" ' finish off SendString = SendString & "

kind regards

Sarah Patterson" SendString = SendString & "

Email: enquiry@holidayvilla-florida.com" SendString = SendString & "
Web: www.holidayvilla-florida.com

" SendString = SendString & "" BuildString = SendString end function function BuildElement(StringValue, FormValue) dim SendString1 SendString1="" & StringValue & "" & FormValue & "" BuildElement = SendString1 end function function BuildElementBooking(StringValue, FormValue) dim SendString1 SendString1 = "" & StringValue & "" & FormValue & "" BuildElementBooking = SendString1 end function function BuildNameElement(StringValue, StringValue2, StringValue3) dim SendString1 SendString1="" & StringValue & "" & StringValue2 & "" & StringValue3 & "" BuildNameElement = SendString1 end function function BuildStringBooking(SendString) dim name1, age1, name2, age2, name3, age3, name4, age4, name5, age5, name6, age6, name7, age7, ArrivalDate, DepartureDate name1 = Request.Form("name1") age1 = Request.Form("age1") name2 = Request.Form("name2") age2 = Request.Form("age2") name3 = Request.Form("name3") age3 = Request.Form("age3") name4 = Request.Form("name4") age4 = Request.Form("age4") name5 = Request.Form("name5") age5 = Request.Form("age5") name6 = Request.Form("name6") age6 = Request.Form("age6") name7 = Request.Form("name7") age7 = Request.Form("age7") //Header SendString = "" //Table content SendString = SendString & "" SendString = SendString & "
Copy of booking form sent to enquiry@holidayvilla-florida.com." SendString = SendString & "

You will receive confirmation of your booking within 48 hours together with payment details." SendString = SendString & "
By returning this booking form you have agreed with our terms and conditions as specified on the web site www.holidayvilla-florida.com.

" SendString = SendString & BuildElement("Name", name) SendString = SendString & BuildElement("Email", email) SendString = SendString & BuildElement("Address", address) SendString = SendString & BuildElement("Day Tel.", telnoday) SendString = SendString & BuildElement("Mobile Tel.", mobile) ArrivalDate = Request.Form("ArrivalDay") & "-" & Request.Form("ArrivalMonth") & "-" & Request.Form("ArrivalYear") SendString = SendString & BuildElement("Arrival Date", ArrivalDate) DepartureDate = Request.Form("DepartureDay") & "-" & Request.Form("DepartureMonth") & "-" & Request.Form("DepartureYear") SendString = SendString & BuildElement("Departure Date", DepartureDate) SendString = SendString & BuildElement("Pool Heat", Request.Form("poolheatrequired")) if (not name1 = "" OR not age1 = "") Then SendString = SendString & BuildNameElement("Additional members in party", "Name", "Age") SendString = SendString & BuildNameElement("", name1, age1) end if if (not name2 ="" OR not age2 = "") Then SendString = SendString & BuildNameElement("", name2, age2) end if if (not name3 = "" OR not age3 = "") Then SendString = SendString & BuildNameElement("", name3, age3) end if if (not name4 = "" OR not age4 = "") Then SendString = SendString & BuildNameElement("", name4, age4) end if if (not name5 = "" OR not age5 = "") Then SendString = SendString & BuildNameElement("", name5, age5) end if if (not name6 = "" OR not age6 = "") Then SendString = SendString & BuildNameElement("", name6, age6) end if if (not name7 = "" OR not age7 = "") Then SendString = SendString & BuildNameElement("", name7, age7) end if if (not content = "") Then SendString = SendString & BuildElement("Comments", content) end if SendString = SendString & "

" //Sign Off SendString = SendString & "

Email: enquiry@holidayvilla-florida.com" SendString = SendString & "
Web: www.holidayvilla-florida.com

" SendString = SendString & "" BuildStringBooking = SendString end function %>

Online Booking Form

Please use this form to make a booking. We will reply to you within 48 hours.

Mandatory fields Name:
*Email:
*Address:
Telephone Number:
Mobile Number:
*Date of Arrival (after 4pm):	Year Month Day
*Date of Departure (before 11am):	Year Month Day
*Pool Heat Required? (Recommended October to May):
I agree to the Terms and Conditions* of booking	I agree
Please list all the names in the party and ages of children under 18 (as required by Florida State Law) at the time of occupation.
Name	Age (if they are under 18)







Comments and questions:
Send me a copy

HOME | ATTRACTION TICKETS | CAR HIRE | ENQUIRY | VISITORS BOOK

<% Response.End() ' Ends script %>