<%
'****************************************************************************************
'* 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
%>
<%
Response.End() ' Ends script
%>
