To be a partner

 
 
 

<% Dim MailDetail if trim(Request.Form("S_organization"))="" or trim(Request.Form("S_name"))="" or trim(Request.Form("s_phone"))="" or trim(Request.Form("s_email"))="" or trim(Request.Form("Description"))="" then Response.Redirect("CONTACT.HTM") else MailDetail="Enquiry about our product:
"_ &"Organisation: "& request.Form("S_organization") &"
"_ &"Name: "& request.Form("S_name") &"
"_ &"Designation: "& request.Form("designation") &"
"_ &"Phone Nos: "& request.Form("S_phone") &"
"_ &"E-Mail: "& request.Form("S_email") &"
"_ &"Message: "& request.Form("Description") 'MailDetail="test" 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("S_email") 'ObjSendMail.From = "devicas@bom6.vsnl.net.in" ObjSendMail.HTMLBody = MailDetail ObjSendMail.Send Set ObjSendMail = Nothing 'response.Write(MailDetail) end if %>

Thank you for showing intrest in our product. We will get back to you soon.

 

 

  Powered by: Bit-7 Informatics