<% Response.Buffer = True 'Dimension variables Dim strBody 'Holds the body of the e-mail Dim objCDOMail 'Holds the mail server object Dim strMyEmailAddress 'Holds your e-mail address Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail Dim strReturnEmailAddress 'Holds the return e-mail address of the user dim strPickup dim strmail 'strmail = "designer@aditmicrosys.com" strmail = Request.form("email") '----------------- Place your e-mail address in the following sting ---------------------------------- strPickup = "C:\Inetpub\mailroot\Pickup" strMyEmailAddress = "mktg@mehtafire.com" 'strMyEmailAddress = "info@arihantfinstocks.com" '----------- Place Carbon Copy e-mail address's in the following sting, separated by ; -------------- 'strCCEmailAddress = "vipul_arihant@yahoo.co.in" 'Use this string only if you want to send the carbon copies of the e-mail '----------- Place Blind Copy e-mail address's in the following sting, separated by ; -------------- 'strBCCEmailAddress = "web@gmail.com" 'Use this string only if you want to send the blind copies of the e-mail '----------------------------------------------------------------------------------------------------- 'Read in the users e-mail address strReturnEmailAddress = Request.form("email") 'if trim(Request.form("email"))="" or trim(Request.form("name1"))="" or trim(Request.form("company"))= "" or trim(Request.form("address"))="" or trim(Request.form("city"))="" or trim(Request.form ("state"))= "" or trim(Request.form("phone_area_code"))="" or trim(Request.form("phone"))="" or trim(Request.form("cell"))="" or trim(Request.form("cell_country_code"))="" or trim(Request.form ("comments"))="" then 'response.Redirect("index.html") 'end if 'Initialse strBody string with the body of the e-mail strBody = strBody & "
Enquiry Form


" 'strBody = strBody & "
Subject: " & Request.Form("subject") strBody = strBody & "
Name: " & Request.Form("titlename") strBody = strBody & "
Title/Designation: " & Request.Form("designation") strBody = strBody & "
Company: " & Request.Form("company") strBody = strBody & "
Address: " & Request.Form("address") strBody = strBody & "
City: " & Request.Form("city") strBody = strBody & "
State: " & Request.Form("state") strBody = strBody & "
County: " & Request.Form("country") strBody = strBody & "
Zip/Pin Code: " & Request.Form("zip") strBody = strBody & "
Phone(Landline): " & Request.Form("phone") strBody = strBody & "
Mobile: " & Request.Form("cell") strBody = strBody & "
Fax: " & Request.Form("fax") strBody = strBody & "
E-mail: " & Request.Form("email") strBody = strBody & "
Requirement Type: " & Request.Form("rt1") strBody = strBody & "
Requirement Type: " & Request.Form("rt2") strBody = strBody & "


Please fill in the area of interest to enable us to mail you the desired information.


" strBody = strBody & "
PROTECTOWIRE Linear Heat Detector (LHD): " & Request.Form("info1") strBody = strBody & "
DETECTOMAT Fire Detection Systems: " & Request.Form("info2") strBody = strBody & "
SERGI Nitrogen Injection system for Transformer Protection: " & Request.Form("info3") strBody = strBody & "
King Fisher Wireless system: " & Request.Form("info4") strBody = strBody & "
Complete Product Range: " & Request.Form("info5") strBody = strBody & "
Fire Fighting system: " & Request.Form("info6") strBody = strBody & "

Comments: " & Request.Form("comment") strBody = strBody & "
New User: " & Request.Form("radio") strBody = strBody & "
Members Already: " & Request.Form("radio") 'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then 'Set the return e-mail address to your own strReturnEmailAddress = strMyEmailAddress End If 'Send the e-mail '" Update the CDOSYS Configuration '--------------------------------------------------------------------------------------------------- '------------------------------- Configuration for CDOSYS --------------------------------objCDOSYSCon.Fields.Update Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "www.aditonline.com" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strPickup objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "formail@aditonline.com" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "formail123" objCDOSYSCon.Fields.Update '--------------------------------------------------------------------------------------------------- 'Create the e-mail server object Set objCDOMail = Server.CreateObject("CDO.Message") Set objCDOMail.Configuration = objCDOSYSCon 'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent) 'objCDOMail.From = Request.Form("name") & " " & " <" & strReturnEmailAddress & ">" objCDOMail.From = strReturnEmailAddress 'Who the e-mail is sent to objCDOMail.To = strMyEmailAddress 'Who the carbon copies are sent to objCDOMail.Cc = strCCEmailAddress 'Who the blind copies are sent to objCDOMail.Bcc = strBCCEmailAddress 'Set the subject of the e-mail objCDOMail.Subject = "Enquiry from website" 'Set the main body of the e-mail objCDOMail.HTMLBody = strBody 'Send the e-mail objCDOMail.Send 'Close the server object Set objCDOMail = Nothing Set objCDOSYSCon = Nothing response.write "Successfully Sent" response.Redirect("thank_u.htm") %>





THANK YOU

Your information has been received successfully. We are thankful to you for showing interest.

Back  Home