<% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz - Web Wiz Email Form's '** '** Copyright 2001-2002 Bruce Corkhill All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain intact in the source files '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '**************************************************************************************** 'Set the response buffer to true so we execute all asp code before sending the HTML 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 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 '----------------- Place your e-mail address in the following sting ---------------------------------- strMyEmailAddress = "pelican2@rediffmail.com" '----------- 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 = Request.Form("email") 'Initialse strBody string with the body of the e-mail strBody = "

Seek Query

" strBody = strBody & "
Name: " & Request.Form("Name") strBody = strBody & "
Designation: " & Request.Form("Designation") strBody = strBody & "
Company: " & Request.Form("Company") strBody = strBody & "
E-mail: " & strReturnEmailAddress strBody = strBody & "
Company: " & Request.Form("Telephone") 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 '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 = 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 'Who the blind copies are sent to objCDOMail.Bcc = strBCCEmailAddress 'Set the subject of the e-mail objCDOMail.Subject = "Enquiry sent from enquiry form on website" '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 %> PELICAN ENGINEERS
Pelican Portble Machines Home Page Portable Milling Machine POrtable Flange Turning Machine POrtable Boring Machines Site-map
PELICAN ENGINEERS - Portable Boring Machines, Portable Milling Machines and Portable Flange Turning Machine manufacturer in India Portable Boring Machines, Portable Milling Machines and Portable Flange Turning Machine manufacturer in India PELICAN ENGINEERS - Portable Boring Machines, Portable Milling Machines and Portable Flange Turning Machine manufacturer in India PELICAN ENGINEERS - Portable Boring Machines, Portable Milling Machines and Portable Flange Turning Machine manufacturer in India C-Hook, Coil Grab, Lifting BeamsPELICAN ENGINEERS - Portable Boring Machines, Portable Milling Machines and Portable Flange Turning Machine manufacturer in IndiaPELICAN ENGINEERS - Portable Boring Machines, Portable Milling Machines and Portable Flange Turning Machine manufacturer in India    
 
 
SITE MAP
Homepage index.htm
Profile profile.htm
Portable Boring Machine boring-machine.htm
Portable Milling Machine milling.htm
Portable Flange Turning Machine flange.htm
Advantages advantage.htm
Application application.htm
SPecial Machine specific.htm
Clients clients.htm
Contact Details contact.htm
 
 
Portable Boring Machine, Boring Machine, Portable Boring Machines, Portable Boring Machines Manufacturers, Portable Flange Turning Machine Manufacturers, Portable Flange Turning Machine, Portable Milling Machines , Portable Machines in Mumbai, Boring Machine India, Milling Machine Mumbai, Flange Turning Machine Mumbai, C-Hook Machine Manufacturer, Coil grab Machine Manufacturer, Lifting Beam Machine Manufacturer, Portable Machines, Portable Machine-Tools, On-Site Machining, In-Situ Machining, On Site Machining, In Situ Machining, On Site repair, Flexible Machining, Surface Planning