ASH Cell>>Complain To ASH Cell

   
<%if trim(request("UserEmail")) <> "" then%> <% 'set path=Request.ServerVariables ("path_translated") 'Response.Write path & "
" 'Dim ObjMail,subj if request.Form("SubjectOther")="" then subj = Request.Form("MessageType") & " about " & request.Form("subject") else subj=request.Form("SubjectOther") end if set ObjMail = Server.CreateObject("CDONTS.NewMail") ObjMail.From = request.Form("UserEMail") ObjMail.To = "k.anuradha@safaikarmachariandolan.org" ObjMail.Cc ="vikalp.parashar@gmail.com" ' 'ObjMail.Bcc="ashishkm1@yahoo.it" ObjMail.Subject= "Complain" & " About " & subj '------------------Mail Format HTMLMSG = HTMLMSG & "" HTMLMSG = HTMLMSG & "" HTMLMSG = HTMLMSG & "" HTMLMSG = HTMLMSG & "

Mail received at " & now() & "

" HTMLMSG = HTMLMSG & "
" HTMLMSG = HTMLMSG & "
" HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & "

Sender's Information

Sender  " HTMLMSG = HTMLMSG & " " & request.Form.item("USERName") & "
E-Mail   " HTMLMSG = HTMLMSG & " " & request.Form.item("USEREMail") & "
Phone   " HTMLMSG = HTMLMSG & " " & request.Form.item("TEL") & "
Fax   " HTMLMSG = HTMLMSG & " " & request.Form.item("Fax") & "

" HTMLMSG = HTMLMSG & "" & request.Form.item("Comments") & "
" HTMLMSG = HTMLMSG & "
" HTMLMSG = HTMLMSG & "
" HTMLMSG = HTMLMSG & "


" HTMLMSG = HTMLMSG & "  

" HTMLMSG = HTMLMSG & " " HTMLMSG = HTMLMSG & " " '------------------------- '/-+ObjMail.MailFormat = 0 ObjMail.MailFormat = 0 ObjMail.BodyFormat = 0 ObjMail.Body = HTMLMSG ObjMail.Importance = 1 ObjMail.Send SET ObjMail = nothing %> <%' Option Explicit ' dim sName, sEmail, sMessage ' dim oCdoMail, oCdoConf, sConfURL ' if Request.Form("b1") <> "" then ' sName = Request.Form("username") ' sEmail = Request.Form("UserEmail") ' sMessage = Request.Form("comments") ' Set oCdoMail = Server.CreateObject("CDO.Message") ' Set oCdoConf = Server.CreateObject("CDO.Configuration") ' ' sConfURL = "http://schemas.microsoft.com/cdo/configuration/" ' ' with oCdoConf ' .Fields.Item(sConfURL & "sendusing") = 2 ' .Fields.Item(sConfURL & "smtpserver") = "mx.reikihealingfoundation.net" ' .Fields.Item(sConfURL & "smtpserverport") = 25 ' .Fields.Update ' end with ' ' with oCdoMail ' .From = Request.Form("UserEmail") '"admin@reikihealingfoundation.net" ' '.To = "contact@safaikarmachariandolan.org"'sEmail ' .To = "neeraj@itbster.com" ' .CC = "vikalp.parashar@gmail.com" ' .Subject = subj ' .TextBody = sMessage ' .HTMLBody = HTMLMSG ' .Configuration = oCdoConf ' .Send ' end with ' ' Set oCdoConf = Nothing ' Set oCdoMail = Nothing ' end if %>

 

Dear <%=Request.Form("UserName")%> ,

We have received your complain about <%=subj%> . If you have asked us to contact you, we will be using the following information:

E-mail: <%=Request.Form("UserEmail")%>
Telephone: <%=Request.Form("Tel")%>
FAX: <%=Request.Form("UserFax")%>

If any of this information is incorrect, please go back to the feedback form and change it. We thank you for taking the time to help us be a better company.

Sincerely,

Safai Karmachari Andolan
<%else%>

Complain

Tell us what you what is your complain or problem.
 

What do you want to Complain on?
 

Enter your comments in the space provided below:

Tell us how to get in touch with you:
Name
E-mail
Tel
FAX
 

              
<%end if%>