<%
'=======================================================================
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 = "osmarketing@sainest.com"
strmail = Request.form("email")
'----------------- Place your e-mail address in the following sting ----------------------------------
strPickup = "C:\Inetpub\mailroot\Pickup"
strMyEmailAddress = "osmarketing@sainest.com"
'strMyEmailAddress = "designer@aditmicrosys.com"
'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------
strCCEmailAddress = "osmarketing@sainest.com" '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")
'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("prefix") & " " & Request.Form("name")
strBody = strBody & " Company: " & Request.Form("company")
strBody = strBody & " Designation: " & Request.Form("designation")
strBody = strBody & " Address: " & Request.Form("address")
strBody = strBody & " City: " & Request.Form("city")
strBody = strBody & " State: " & Request.Form("state")
strBody = strBody & " Country: " & Request.Form("country")
strBody = strBody & " Phone: " & Request.Form("phone")
strBody = strBody & " Fax: " & Request.Form("fax")
strBody = strBody & " Email: " & Request.Form("email")
strBody = strBody & " Website: " & Request.Form("website")
strbody =strbody & " Product :" & request.form("Size")
strbody =strbody & " OD :" & request.form("OD")
strbody =strbody & " THK :" & request.form("thik")
strbody =strbody & " Length :" & request.form("length")
strbody =strbody & " QTY :" & request.form("quality")
strBody = strBody & " Comments:- " & Replace(Request.Form("comments"), vbCrLf, " "
'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("thanks.htm")
%>
THANK
YOU
We have received your information successfully. Thank you for
showing interest.