<% Dim MailDetail if trim(Request.Form("person"))="" or trim(Request.Form("email"))="" or trim(Request.Form("describe"))="" then Response.Redirect("partner.htm") else MailDetail="Request for Being Partner:
"_ &"Name of Organization: "& request.Form("org") &"
"_ &"Contact Person: "& request.Form("person") &"
"_ &"Postal Address: "& request.Form("address") &"
"_ &"Phone/Fax/Mobile No.: "& request.Form("phone") &"
"_ &"Email: "& request.Form("email") &"
"_ &"About Yourself/Organization: "& request.Form("yourself") &"
"_ &"Description of Requirments: "& request.Form("describe") Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="115.124.123.73" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="mail@rajvivah.com" 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="maheshraj11" ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = "devicas@bom6.vsnl.net.in" 'ObjSendMail.To = "yogeshkharb@devicasherbal.com" 'ObjSendMail.CC = "babita.choudhary@devicasherbal.com" ObjSendMail.Subject = "Enquiry from Website Devicaas Herbal" ObjSendMail.From = request.Form("email") 'ObjSendMail.From = "devicas@bom6.vsnl.net.in" ObjSendMail.HTMLBody = MailDetail ObjSendMail.Send Set ObjSendMail = Nothing end if %>
 

   To be a partner

 
 
 
 

Your following form detail has been successfully send

<% Response.Write(MailDetail)%>

 

Thanks for showing intrest in partnership. We will get back to you soon.

 

  Powered by: Bit-7 Informatics