T.T.&Associates CPA LLC

<% Sub sndmail(sTo,sFrom,SBody,sSubject) Dim iMsg Set iMsg = CreateObject("CDO.Message") Dim iBp Dim Flds Dim iConf on error resume next Set iConf = CreateObject("CDO.Configuration") 'Response.write "Err" & Err.Description 'Response.End() Set Flds = iConf.Fields Flds.Update With iMsg Set .Configuration = iConf .To = sTo .CC = sBcc .From = sFrom .Sender = sFrom .Subject = sSubject .TextBody = "Please Enable HTML " .HTMLBody = sBody .Send End With End Sub if(request.Form("checkSub") = "ok")then 'strto = "gobinath@usawebsolutions.com" 'strto = "Info@ttassociatescpa.com" ''strfrom= request.Form("email") ''strsubject=request.Form("subject") 'strbody=request.Form("message") '''response.write(strto & "," & strfrom & "," &strsubject & "," & strbody) 'Response.Write("

Your valuable Feedback has been sent.We will get back to you soon.") 'Call sndmail(strto,strfrom,strBody,strsubject) On error resume next Dim mySmartMail Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") mySmartMail.Server = "127.0.0.1" ' From ' **** mySmartMail.SenderName = request.Form("email") mySmartMail.SenderAddress = request.Form("email") ' To ' ** mySmartMail.Recipients.Add "ttassoci@ttassociatescpa.com", "Admin" ' Message ' ******* mySmartMail.Subject = request.Form("subject") mySmartMail.Body = request.Form("message") ' Send the message ' **************** mySmartMail.SendMail if Err.Number<>0 then Response.write "Error: " & Err.description else Response.Write("

Your valuable Feedback has been sent.We will get back to you soon.") 'mySmartMail.Recipients.Item(1).Name & "." end if Else %>

Email:	Info@ttassociatescpa.com

By Mail:	99 John Street Suite 521 New York, NY 10280

Tele:	646-473-1115

Fax:	646-473-1174

Feedback

E-mail

Subject

Message

<%End if%>



	E-Mail This Page

| | | | | | |