<%
Dim FName,Email,Phone,Address,State,Country,Persons,Rooms,RoomType,PickUp_Day,PickUp_Month,PickUp_Year
Dim PickUp_Time,Drop_Day,Drop_Month,Drop_Year,Drop_Time,Msg
Dim mailbody
FName= Request("FName")
Email= Request("Email")
PickUp_Day= Request("PickUp_Day")
PickUp_Month= Request("PickUp_Month")
PickUp_Year= Request("PickUp_Year")
PickUp_Time= Request("PickUp_Time")
Drop_Day= Request("Drop_Day")
Drop_Month= Request("Drop_Month")
Drop_Year= Request("Drop_Year")
Drop_Time= Request("Drop_Time")
Persons= Request("Persons")
Rooms= Request("Rooms")
RoomType= Request("RoomType")
mailbody = ""
mailbody = mailbody & "
"
Dim NameError
Dim EmailError
Dim MsgError
Dim Summary
NameError = ""
EmailError = ""
MsgError = ""
Summary = ""
Sub Main()
if Not Trim( Request.Form("Submit") ) = "" then
Dim valid
valid = true
if Trim(Request.Form("FName")) = "" then
valid = false
NameError = "Enter Name "
End if
if Trim(Request.Form("Email")) = "" then
valid = false
EmailError ="Enter email "
else
Dim re
Set re = new RegExp
re.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
if not re.Test(Trim(Request.Form("Email"))) then
valid = false
EmailError ="Enter valid email "
end if
end if
if valid then
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = "Eco Exotica"
Mail.FromAddress = Request.Form("Email")
Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail
Mail.AddRecipient "Eco Exotica", "eeholidays@gmail.com"
Mail.Subject = "Eco Exotica - Book a Room"
Mail.ContentType = "text/html"
Mail.BodyText = mailbody
if Mail.SendMail then
Summary = "Your mail has already been sent..."
else
Summary = "Mail send failure. Error Please try again " & Mail.Response
end if
else
Summary = "Some error occured please check"
end if
end if
end sub
call Main
%>
| Below is the Reservation details from " & FName & " | |
| Name : | " & FName & " |
| Email : | " & Email & " |
| Check-in Date: | " & PickUP_Day & "/" & PickUp_Month & "/" & PickUp_Year & "-" & PickUp_Time & " |
| Check-out Date: | " & Drop_Day & "/" & Drop_Month & "/" & Drop_Year & "-" & Drop_Time & " |
| Persons : | " & Persons & " |
| Rooms : | " & Rooms & " |
| Room Type: | " & RoomType & " |


