<%
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 & " |
Ayurvedic Spa
Eco Exotica Holidays Resorts advocates healthy living. In keeping with Indian tradition we offer Ayurveda, which means ‘the science of living’. Ayu means ‘life’ and Veda meaning ‘knowledge’.
This ancient form of medicine has been used down through the ages as a vital tool in improving the overall being of an individual. Through its many forms, it harnesses natural elements in order to find remedies to various ailments. After any one of these sessions you can walk out confidently as you will be a new person.
Copyright 2008. All rights reserved. Website Designed And Developed by Glad Solutions.