<% '**************************************************************************************** '* 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 %>


Links
Highlands Reserve Disney World Florida Tourist Board

Local Amenities

An hours drive from both the Atlantic and Gulf Coasts
Only 10 minutes of straightforward driving from the Disney Resorts
Dozens of Golf Courses within ½-hr drive including the newly
opened 36 Hole Champions Gate, only 10 minutes away
Large Publix and several other shops within 10 minutes walk

Local Facilities

Par 72 Highlands Reserve Golf Course
Community Swimming Pool
Tennis Courts
Children's play area

The Highlands Reserve Golf Community

The Highlands Reserve Golf Club winds through pine trees, old citrus groves, and features over 120' of elevation change. As scenic as it is challenging, Highlands Reserve is a must play for all golfers. Only minutes from the Main Gate Entrance to Disney World, Highlands Reserve offers a great golf experience at an affordable price.

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

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