<% id = Request.QueryString("ID") '*** How to send the results of '*** a form through email using '*** ASP and CDNOTS. '*** Declare your variables Dim BodyToSend, Message '*** Check to see if the SendButton '*** was pressed, and if there is '*** and message to be sent. If not, '*** display the feedback form. If Request.Form("SendButton") <> "Send" or Request.Form("bodytext") = "" Then %>
 
 
  
 

 


Send Us E-Mail

Would you like to say something to us? Do you have a question about sex or sexual health? Would you like to send us a suggestion? This email service is designed for  Indians  to address sex-related issues, including  sexual health, sexually transmitted diseases (STDs) like HIV etc. Let our health experts hear what you have to say.

 E-Mail Us:

 doctor@satyamfoundation.org

You can expect to receive a reply to your E-Mail within 10 days.

" >
 

Contents provided by American Social Health Association
Satyam Foundation
 2275 Huntington Drive, #207
SAN MARINO, CA 91108
USA
Disclaimer
<% '*** If the SendButton was clicked '*** and there is a message to send, '*** process the email and send it. Else '*** Create the message object. Set Message = CreateObject("CDONTS.NewMail") '*** Set the from, to, and '*** subject fields. Message.From = Request.Form("email") Message.To = "abhay_kumar_in@yahoo.com" '--- --- 'write ur email address where u want to recive mail' Message.Subject = "Query For indianova.org ..." 'write subject' '*** Add any additional informtion '*** you want to the message text. BodyToSend ="Name :-" & Request.Form("cname") & vbcrlf & _ Request.Form("csubject") & vbcrlf & _ Request.Form("bodytext") & vbcrlf & _ " " & vbCRLF & _ "*** Inquiry..***" '*** Set the altered body text. Message.Body = BodyToSend '*** If there is an error, '*** continue with the script. On Error Resume Next '*** Send the email message. Message.Send '*** If sending the message caused '*** an error, then display the '*** message, else display a '*** success message (or redirect '*** to a different page). If Err.Number = 0 Then Response.write "Your massage has been sent. " Else Response.Write "Error: " & Err.Description End If '*** Clear out the message variable Set Message = Nothing '*** End of If for checking '*** SendButton and message '*** to send. End If %>