% Dim MyCDONTSMail Dim strFrom Dim strTo Dim strSubject Dim strMessage Dim lngImportance Dim strBody strBody= "Dear"&" "&request.form("fname")&vbcrlf&vbcrlf&request.form("comment") &vbcrlf&vbcrlf &"With Regards"& vbcrlf&vbcrlf&request.form("yname") Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From="ambicas5@mtnl.net.in" MyCDONTSMail.To= Request.Form("femail") MyCDONTSMail.Value("Reply-To")=request.form("yemail") MyCDONTSMail.Subject="Visit ambicasales.com for Hotel & industrial canteen equipments" MyCDONTSMail.Body=strBody 'MyCDONTSMail.Cc= "serro@juniper.net" 'MyCDONTSMail.Subject="Online Request for a new domain registration" 'MyCDONTSMail.Body=strMsgInfo MyCDONTSMail.Send set MyCDONTSMail=nothing 'response.write(strMsgInfo) 'strFrom= request("yemail") 'strTo=request("femail") 'strSubject = "Register to arrangewedding" 'strBody=strMsgInfo 'Set myCDONTSMail = CreateObject("CDONTS.NewMail") 'myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance 'Set myCDONTSMail = Nothing 'conn.execute "insert into allemails (email) values ('" & replace(request("email"),"'","''") & "') " %>
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||