::RASJNA::

<% 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 name,email,subject,message Dim con,rs requirements=request.form("requirements") company=request.form("company") name=request.form("name") address=request.form("address") email=trim(request.form("email")) city=request.form("city") country=request.form("country") postalcode=request.form("zip") countrycode=request.form("ccode") areacode=request.form("acode") phone=request.form("phone") faxcode=request.form("fccode") faxarea=request.form("facode") fax=request.form("fax") '----------------- Place your e-mail address in the following sting ---------------------------------- strMyEmailAddress = "vijay@rescon.in" '----------- Place Carbon Copy e-mail address's in the following sting, separated by ; -------------- strCCEmailAddress = "" '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 ="" 'Use this string only if you want to send the blind copies of the e-mail '----------------------------------------------------------------------------------------------------- 'Read in the users e-mail address strReturnEmailAddress = email 'Initialse strBody string with the body of the e-mail strBody = "

Enquiries

Your Requirements:" & requirements & "

Organization/Company:" & company & "

Your Name:" & name & "

Street Address:" & address & "

Email:" & email & "

City/State:" & city & "

Country:" & country & "

Zip/Postal Code:" & postalcode & "

Phone Number:" & ccode & " " & acode & " " & phone & "

Fax Number:" & fccode & " " & facode & " " & fax & "" '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 'Create the e-mail server object Set objCDOMail = Server.CreateObject("CDONTS.NewMail") '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 = name & " <" & email & ">" '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 = "Mail from " & company 'Set the e-mail body format (0=HTML 1=Text) objCDOMail.BodyFormat = 0 'Set the mail format (0=MIME 1=Text) objCDOMail.MailFormat = 0 'Set the main body of the e-mail objCDOMail.Body = strBody 'Importance of the e-mail (0=Low, 1=Normal, 2=High) objCDOMail.Importance = 1 'Send the e-mail objCDOMail.Send 'Close the server object Set objCDOMail = Nothing %> ::RASJNA::

Home |

Profile |

Products |

Clients |

Testemonials |

Enquiry |