<%@LANGUAGE="vbscript" codepage="1256" %> <% '************************************************************************************************************************' '******************************************* Please don't change this section *******************************************' '************************************************************************************************************************' set conn=server.CreateObject ("adodb.connection") conn.Open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/admin/Marvelous-Egypt.mdb") set rs=server.CreateObject ("adodb.recordset") set qrs=server.CreateObject ("adodb.recordset") set mrs=server.CreateObject ("adodb.recordset") '************************************************************************************************************************' '************************************************************************************************************************' Sub closeDbconn() if isobject(conn) then if conn.State = adStateOpen then conn.Close end if set conn = nothing end if End sub %> <% x_Name=Replace(Request.Form("Name"),"'","''") Phone=Request.Form("Phone") Email=Request.Form("Email") Country=Replace(Request.Form("Country"),"'","''") RequestDescription=Replace(Request.Form("RequestDescription"),"'","''") msg =" "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ "
A "&_ " person filled in a custom tour request, and his information listed below :

Name"&Request.Form("name")&"
Phone"&Request.Form("phone")&"
Fax"&Request.Form("fax")&"
Email Address"&Request.Form("email")&"
Nationality"&Request.Form("Country")&"
More Information"&Request.Form("RequestDescription")&"
" 'Response.Write msg ' SET Mail = Server.CreateObject("CDONTS.NewMail") ' Mail.From = Request.Form("name") & " <" & Request.Form("email") & ">" ' Mail.To = "marvelousegypttravel@yahoo.com" ' Mail.Subject = "Custom Tour Request" ' Mail.BodyFormat =0 ' Mail.MailFormat =0 ' Mail.Body = msg ' strErr = "" ' On Error Resume Next ' catch errors ' Mail.Send ' send message ' If Err <> 0 Then ' error occurred ' strErr = Err.Description ' Response.Write strErr ' else ' bSuccess = True ' Response.Write("

Thank you

") ' End If ' set mail=nothing strMailServer="mail.marvelousegypttravel.com" strMailServerUser="mailsys@marvelousegypttravel.com" strMailServerPass="google@1234" strWebsiteEmailAddress= Request("email") strWebsiteName= Request("name") strEmailAddress= "info@marvelousegypttravel.com" strEmailAddressBcc="Monitor@egyptwebsolutions.com" 'info@met.travel strSubject= "Custom Tour Request" strEmailBody=msg Dim objAspEmail Set objAspEmail = Server.CreateObject("Persits.MailSender") With objAspEmail 'Out going SMTP mail server address .Host = strMailServer 'SMTP server username and password .Username = strMailServerUser .Password = strMailServerPass 'Who the e-mail is from .From = strWebsiteEmailAddress .FromName = strWebsiteName 'Who the e-mail is sent to .AddAddress strEmailAddress .AddBcc strEmailAddressBcc 'The subject of the e-mail .Subject = strSubject 'The main body of the e-mail .Body = strEmailBody '& strAppendToEmail .IsHTML = True strErr = "" ' On Error Resume Next ' catch errors .Send 'Send the e-mail If Err <> 0 Then ' error occurred strErr = Err.Description Response.Write strErr else bSuccess = True Response.Write("

Thank you

") End If End With 'Close the server mail object Set objAspEmail = Nothing Response.Redirect("c.tours.main.asp?done=1") %>