<%
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 & " |
Wild Life Watch
Our Resort are Builted in South Asia's favorite hill station ,are surrounded by thick vegetation ,on the edge of the dense forest.
Copyright 2008. All rights reserved. Website Designed And Developed by Glad Solutions.