Back to Top
<% action = Request("action") %>
<% if action="send" then %>
<% ProposalRequest= Request("propos_req")
Name = Request("name")
Organization = Request("organization")
Position = Request("position")
Address = Request("Address")
Tell = Request("Telphone")
Email = Request("Email")
Fax= Request("Faxnum")
Meeting_from= Request("FromDate")
Meeting_toDate = Request("ToDate")
Meeting_time= Request("FromTime")
Meeting_toTime =Request("ToTime")
Alterdates=Request("Alterdate")
Numatten= Request("AttNum")
Theatre= Request("Theatre")
Shape= Request("Shape")
Banquet=Request("Banquet")
Cocktail=Request("Cocktail")
Other= Request("other")
CatRequiement= Request("CatRequiement")
Break=Request("Break")
propSend= Request("propSend")
Arrange=Request("Arrange")
LCD=Request("LCD")
Screen= Request("Screen")
Overhead= Request("Overhead")
SysSound=Request("SysSound")
FlipChart=Request("FlipChart")
TeleLine=Request("TeleLine")
Fax0=Request("Fax")
FromEmail = "reservation@hotelstgeorge-jer.com"
ToEmail = "info@hotelstgeorge-jer.com"
Subject = "Proposal Request"
EmailMessage = EmailMessage & "Proposal Request: " & ProposalRequest & CHR(13)
EmailMessage = EmailMessage & " Name: " & Name & CHR(13)
EmailMessage = EmailMessage & "Organization: " & Organization & CHR(13) & CHR(13)
EmailMessage = EmailMessage & "Position: " & Position & CHR(13)
EmailMessage = EmailMessage & " Address: " & Address & CHR(13) & CHR(13)
EmailMessage = EmailMessage & "Tell: " & Tell & CHR(13)
EmailMessage = EmailMessage & "E-mail: " & Email & CHR(13)
EmailMessage = EmailMessage & "Fax Number: " & Fax & CHR(13)
EmailMessage = EmailMessage & "Proposed Date of meeting from " & Meeting_from& CHR(13)
EmailMessage = EmailMessage & "To : " & Meeting_toDate & CHR(13)
EmailMessage = EmailMessage & "Time of meeting from: " & Meeting_time & CHR(13)
EmailMessage = EmailMessage & "To: " & Meeting_toTime & CHR(13)
EmailMessage = EmailMessage & "Alternate dates: " & Alterdates & CHR(13)
EmailMessage = EmailMessage & "Number of attends: " & Numatten & CHR(13)
EmailMessage = EmailMessage & "Theatre: " & Theatre & CHR(13)
EmailMessage = EmailMessage & "U Shape: " & Shape & CHR(13)
EmailMessage = EmailMessage & "Banquet: " & Banquet & CHR(13)
EmailMessage = EmailMessage & "Cocktail reception: " & Cocktail & CHR(13)
EmailMessage = EmailMessage & "Other: " & Other & CHR(13)
EmailMessage = EmailMessage & " Catering Requirment: " & CatRequiement & CHR(13)
EmailMessage = EmailMessage & " Coffee Break/day: " & Break & CHR(13)
EmailMessage = EmailMessage & "Send a proposal: " & propSend & CHR(13)
EmailMessage = EmailMessage & "Arrange: " & Arrange & CHR(13)
EmailMessage = EmailMessage & "LCD: " & LCD & CHR(13)
EmailMessage = EmailMessage & "Screen: " & Screen & CHR(13)
EmailMessage = EmailMessage & "OverHead System: " & Overhead & CHR(13)
EmailMessage = EmailMessage & "Sound System: " & SysSound & CHR(13)
EmailMessage = EmailMessage & "Flip Chart: " & FlipChart & CHR(13)
EmailMessage = EmailMessage & "Private telephone line/s: " & TeleLine & CHR(13)
EmailMessage = EmailMessage & "Fax: " & Fax0 & CHR(13)
Impt = 1
Dim objMail
set objMail = CreateObject("CDONTS.NewMail")
objMail.Send FromEmail,ToEmail,Subject,EmailMessage,Impt
set objMail = Nothing
%>
<% end if %>