<%@LANGUAGE="VBSCRIPT" %> <% If Request.Form("txtEmail") <> "" Then Dim SenderAdd,Msg,ThankMsg Set myMail=CreateObject("CDONTS.Newmail") SenderAdd=Request.form("txtEmail") Msg = "Name - " & Request.Form("txtName") & VbCrLf & _ "Email - " & Request.Form("txtEmail") & VbCrLf & _ "Contact No - " & Request.Form("ContactNo") & VbCrLf & _ "Address - " & Request.Form("Address") & VbCrLf & _ "City - " & Request.Form("City") & VbCrLf & _ "State - " & Request.Form("State") & VbCrLf & _ "Country - " & Request.Form("Country") & VbCrLf & _ "FeedBack - " & Request.Form("FeedBack") myMail.From=SenderAdd myMail.To="datapwds@eth.net ; mdu_data@sancharnet.in" myMail.Subject = "Feedback from " & Request.Form("txtName") myMail.Body=Msg myMail.Send ThankMsg = "Thank you for submitting Feedback" set myMail=nothing End If %> Feed Back
Feedback
<%=ThankMsg%>
Name
:
Email
:
  Contact No
:
Address
:
City
:
State
:
Country
:
Feedback
: