%
Dim objMail,strEmailBody,strEmailSubject,strPrefix,strName,strEmail,strPhone,strSubject,strComments
strPrefix = Request.Form("Prefix")
strName = Replace(Replace(trim(Request.Form("myname")),"'",""),"""","")
strEmail = Replace(Replace(trim(Request.Form("email")),"'",""),"""","")
strPhone = Replace(Replace(trim(Request.Form("phone")),"'",""),"""","")
strSubject = Request.Form("subject")
strComments = Request.Form("comments")
strEmailSubject = "StayResLatvia.com - Enquiry"
strEmailBody = " " &_
"Dear " & strPrefix & " " & strName & ", " &_
"Greetings from StayResLatvia-a leading worldwide hotel & package reservation company." & " " &_
"Thanks for your recent query, we have received the following details." & " " &_
"Please verify the same and let us know if there are any modifiactions." & " " &_
"Our reservation team will revert back to you very soon." & "
" & _
"This email is confidential and intended solely for the use of the individual " & _
"to whom it is addressed. If you are not the intended recipient, be advised " & _
"that you have received this email in error and that any use, dissemination," & _
"forwarding, printing, or copying of this email is strictly prohibited. If " & _
"you have received this email in error please contact the sender. Although " & _
"this email and any attachments are believed to be free of any virus or other " & _
"defects which might affect any computer or IT system into which they are " & _
"received, no responsibility is accepted by StayResLatvia for any loss or" & _
"damage arising in any way from the receipt or use thereof. "
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = strEmail ' Specify sender's address
objMail.To="info@stayreslatvia.com"
objMail.Cc=strEmail
objMail.Subject = strEmailSubject
objMail.HtmlBody = strEmailBody
objMail.Send
Set objMail = Nothing
%>
ContactUs for StayresLatvia