<%
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 & " |
Cave Visits
Eco Exotica Holidays are committed to the endeavor of popularizing adventure tourism since 2005. Activities includes Trekking, Camping, Rock Climbing, River Crossing, Wild Jeep Safari, enhancing environment friendly adventure tour package. Band of experienced staffs and requisite expertise to answer all your needs.
Munnar the perfect setting for adventure. the hills, rocks, valleys and rivers which give shape to very unique terrain of western ghats provide for exponential adventure experience. These hills and forests intersperse to create numerous outback trails, trekking routes and opportunities for other adventure sports with vast areas still explored...
Copyright 2008. All rights reserved. Website Designed And Developed by Glad Solutions.