%@LANGUAGE="VBSCRIPT"%> <% mes = "" IsSuccess = false sTo = Trim(Request.Form("FriendEmail1")) sCc = Trim(Request.Form("FriendEmail2")) sBcc = "admin@avakashvedh.com" sFrom = Trim(Request.Form("YourEmail")) sSubject = "Please visit - www.Avakashvedh.com website" sName = Trim(Request.Form("Name")) sMailServer = "127.0.0.1" sBody = sBody & "Dear " & Request.Form("FriendName1") sBody = sBody & ", " & Request.Form("FriendName2") & vbCrLf sBody = sBody & "Namaskaar " & vbCrLf sBody = sBody & " "& vbCrLf sBody = sBody & "Khagolshastravail Marathitil Pahili Website" & vbCrLf sBody = sBody & " " & vbCrLf sBody = sBody & "http://www.avakashvedh.com" & vbCrLf sBody = sBody & " " & vbCrLf sBody = sBody & "Pahaayalaa visaru nakaa" & vbCrLf sBody = sBody & " " & vbCrLf sBody = sBody & Request.Form("YourMessage") & vbCrLf sBody = sBody & " " & vbCrLf sBody = sBody & "Aapala Krupabhilashi" & vbCrLf sBody = sBody & Request.Form("YourName") & vbCrLf sBody = sBody & vbCrLf 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 .Cc = sCc .Bcc = sBcc .Subject = sSubject .TextBody = sBody End With Err.Clear on error resume next objMail.Send if len(Err.Description) = 0 then Response.Redirect "mitranna_kalava_thanks.html" else Response.Redirect "mitranna_kalava_thanks.html" end if Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing End sub %>
|