% Dim objMail,strEmailBody,strEmailSubject,strPrefix,strName,strEmail,strPhone,strSubject,strAddress,strComments strPrefix = Request.Form("prefix") strName = Replace(Replace(trim(Request.Form("name")),"'",""),"""","") strEmail = Replace(Replace(trim(Request.Form("email")),"'",""),"""","") strPhone = Replace(Replace(trim(Request.Form("phone")),"'",""),"""","") strPhone = Replace(Replace(trim(Request.Form("phone")),"'",""),"""","") strAddress = Request.Form("address") strSubject = Request.Form("subject") strComments = Request.Form("comments") strEmailSubject = "StayResAustria.com - Enquiry" strEmailBody = vbcrlf &_ "Dear " & strPrefix & " " & strName & " "& vbcrlf &_ "Greetings from StayResAustria-a leading worldwide hotel & package reservation company." & vbcrlf &_ "Thanks for your recent query, we have received the following details." & vbcrlf &_ "Please verify the same and let us know if there are any modifications." & vbcrlf &_ "Our reservation team will revert back to you very soon." & vbcrlf & vbcrlf &_ "Details:" & vbcrlf &_ "Name : " & strName & vbcrlf & _ "E-mail : " & strEmail & vbcrlf & _ "Phone : " & strPhone & vbcrlf & _ "Subject : " & strSubject & vbcrlf & _ "Comments : " & strComments & vbcrlf & _ "Warm Regards" & vbcrlf &_ "StayResAustria.com" & vbcrlf &_ "7 Lincoln Highway," & vbcrlf &_ "Suite 206, Edison," & vbcrlf &_ "NJ 08820" & vbcrlf &_ "Tel: 732.582.2704" & vbcrlf &_ "Fax: 732.210.0422 " & vbcrlf &_ "www.StayResAustria.com" & vbcrlf &_ "StayResAustria DISCLAIMER:" & vbcrlf &_ "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 StayResAustria for any loss or" & _ "damage arising in any way from the receipt or use thereof." 'Set objMail = Server.CreateObject("CDONTS.NewMail") 'objMail.BodyFormat = 0 'objMail.MailFormat = 0 'objMail.From = "info@StayResAustria.com" 'objMail.To = strEmail 'objMail.Bcc = "info@StayResAustria.com" 'objMail.Subject = strEmailSubject 'objMail.Body = strEmailBody ' objMail.IsHTML=True 'objMail.Send() 'Set objMail = Nothing Set objMail = Server.CreateObject("CDO.Message") objMail.From = strEmail ' Specify sender's address objMail.To="info@StayResAustria.com" objMail.Cc=strEmail objMail.Subject = strEmailSubject objMail.TextBody = strEmailBody objMail.Send Set objMail = Nothing %>