%@ Language=VBScript%> <% mes = "" IsSuccess = false sTo = "ravinetrek@gmail.com" sBcc = "info@ravine-trek.net, nishah74@gmail.com, paresh.jodhawat@gmail.com" sFrom = "Ravine-trek.net" 'sSubject = Trim(Request.Form("txtSubject")) sSubject = "Feedback" sMailServer = "127.0.0.1" sBody = "Name:" & Trim(Request.Form("txtFrom")) & vbCrLf & _ "Email:" & Trim(Request.Form("txtEmail")) & vbCrLf & _ "City:" & Trim(Request.Form("txtCity")) & vbCrLf & _ "Tel No:" & Trim(Request.Form("TelNo")) & vbCrLf & _ "Cell:" & Trim(Request.Form("Cell")) & vbCrLf & _ "Travel_Where:" & Trim(Request.Form("Travel_Where")) & vbCrLf & _ "Travel_Month:" & Trim(Request.Form("Travel_Month")) & vbCrLf & _ "Travelling Adults:" & Trim(Request.Form("Travelling_Adults")) & vbCrLf & _ "Travelling Children:" & Trim(Request.Form("Travelling_Children")) & vbCrLf & _ "Other Details / Query:" & Trim(Request.Form("Query")) if Request("__action")="TestEMail" then TestEMail() end if Sub TestEMail() Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = sFrom .To = sTo .Bcc = sBcc .Subject = sSubject .TextBody = sBody End With Err.Clear on error resume next objMail.Send if len(Err.Description) = 0 then mes = " Message sent sucessfully" 'mes = mes + " RAVINE ENQUIRY!" IsSuccess = true else mes = " " + Err.Description + " TESTS FAILED!" end if Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing End sub Sub Alert(html) if IsSuccess then Response.Write "
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||