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