<% 'Set the response buffer to true so we execute all code before sending to the clients browser 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 to more tahn on e-mail address Dim strReturnEmailAddress 'Holds the return e-mail address of the user '----------------- Place your e-mail address in the following sting ---------------------------------- strMyEmailAddress = "anilbothra1@yahoo.co.in" '----------------------------------------------------------------------------------------------------- '----------- Place Carbon Copy e-mail address's in the following sting, supporated by ; -------------- 'Use this string only if you want to send the copy's of the e-mail to more than one person strCCEmailAddress = "itsemmi@rediffmail.com" '----------------------------------------------------------------------------------------------------- Const strHeader = "Feedback results:" Const strFooter = "Submitted from www.ashokengg.com" 'Read in the users e-mail address strReturnEmailAddress = Request.Form("email") strBody = strHeader & vbCrLf & vbCrLf strBody = strBody & "Form: " & strFromPath & vbCrLf & _ "Feedback submitted at " & Now() & vbCrLf & vbCrLf 'Initialse strBody string with the body of the e-mail strBody = strBody & vbCrLf & "Name: " & Request.Form("firstName") & vbCrLf & vbCrLf strBody = strBody & vbCrLf & "Title: " & Request.Form("title") & vbCrLf & vbCrLf strBody = strBody & vbCrLf & "Company: " & Request.Form("company") & vbCrLf & vbCrLf strBody = strBody & "Address: -" & vbCrLf & Request.Form("address") & vbCrLf strBody = strBody & vbCrLf & "Telephone: " & Request.Form("tel") & vbCrLf & vbCrLf strBody = strBody & vbCrLf & "Fax No: " & Request.Form("fax") & vbCrLf & vbCrLf strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf & vbCrLf strBody = strBody & vbCrLf & "Nature of Feedback: " & Request.Form("nature") & vbCrLf & vbCrLf strBody = strBody & "Enquiry: - " & vbCrLf & Request.Form("enquiry") & 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 strBody = strBody & vbCrLf & strFooter 'Create the e-mail server object Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Send the e-mail '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("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">" 'Who the e-mail is sent to objCDOMail.To = strMyEmailAddress 'Who the carbon copies are sent to objCDOMail.Cc = strCCEmailAddress 'The subject of the e-mail objCDOMail.Subject = "Enquiry From Ashokengg" 'The main body of the e-amil objCDOMail.Body = strBody 'The format the e-mail is sent in objCDOMail.MailFormat = CdoMailFormatText 'If you want it to be in MIME(HTML) format use CdoMailFormatMIME 'Importance of the e-mail (0=Low, 1=Normal, 2=High) objCDOMail.Importance = 1 objCDOMail.Send Set objCDOMail = Nothing %> Ashok Engineering & Construction Co.
 
 

 

 

 

 

 

 





We thank you for giving us a chance to serve you. We look forward to your patronage for our venture and assure you of total customer satisfaction and a lasting relationship.


 

 

 

 

Presented by [f-xs]
Best on IE4+ @ 800X600