<%
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 & " |
Conference Facility
A far cry from the staid boardrooms in the city, our conference hall is tucked away amidst the tranquil hills around. The plush, sophisticated room, swathed in blue, can sat up to 125 people - theatre style - and 35 people - U-shaped.
Equipped with an overhead projector, collar mikes, white boards, flip chart boards, television, VCR and slide projector, our conference room is the perfect combination of comfort and functionality. And the tedium of long meetings can be broken by a glance at the panoramic view outside.
Copyright 2008. All rights reserved. Website Designed And Developed by Glad Solutions.