<%@LANGUAGE="VBScript" ENABLESESSIONSTATE=True%> <%Option Explicit%> <%Response.Buffer = True%> <% Dim strTo, strSubject, strBody, strCC Dim objCDOMail dim sendemail sendemail = "" sendemail = request.form("B1") if sendemail = "Submit" then 'response.write "Send the email" SendMailToCM end if sub SendMailToCM 'First set the sendto info strTo = request.form("R1") strCC = request.form("Email") strSubject = request.form("Subject") ' This is multi-lined simply for readability strBody = "[Date of Submission]" & vbcrlf strBody = Date() & vbcrlf & vbcrlf strBody = "[Submitter Name]" & vbcrlf strBody = strBody & request.form("Name") & vbcrlf & vbcrlf strBody = strBody & "[Submitter Company]" & vbcrlf strBody = strBody & request.form("Company") & vbcrlf & vbcrlf strBody = strBody & "[Submitter Address1]" & vbcrlf strBody = strBody & request.form("Address1") & vbcrlf & vbcrlf strBody = strBody & "[Submitter Address2]" & vbcrlf strBody = strBody & request.form("Address2") & vbcrlf & vbcrlf strBody = strBody & "[Submitter City]" & vbcrlf strBody = strBody & request.form("City") & vbcrlf & vbcrlf strBody = strBody & "[Submitter State]" & vbcrlf strBody = strBody & request.form("StateProvince") & vbcrlf & vbcrlf strBody = strBody & "[Submitter Zip]" & vbcrlf strBody = strBody & request.form("Zip") & vbcrlf & vbcrlf strBody = strBody & "[Submitter Email Address]" & vbcrlf strBody = strBody & request.form("Email") & vbcrlf & vbcrlf strBody = strBody & "[Submitter Phone]" & vbcrlf strBody = strBody & request.form("Phone") & vbcrlf & vbcrlf strBody = strBody & "[Submitter Comments]" & vbcrlf strBody = strBody & request.form("Comments") & vbcrlf & vbcrlf ' Create an instance of the NewMail object. Set objCDOMail = Server.CreateObject("CDONTS.NewMail") ' Set the properties of the object objCDOMail.To = strTo objCDOMail.CC = strCC objCDOMail.From = request.form("Email") objCDOMail.Subject = strSubject objCDOMail.Body = strBody 'response.write "Email details" & "
" 'response.write "To: " & strTo & "
" 'response.write "Subject: " & strSubject & "
" 'response.write strBody '*************************************************************** 'UNCOMMENT AFTER TESTING '*************************************************************** objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method. Set objCDOMail = Nothing response.redirect "submitconfirm.htm" end sub %> Email Us
Commited to Quality in Service and Product!
About Us
Products
Inventory
Specials
Email Us
Links
Message Boards

 

 

 
email us

If you would like more information, please submit this email form and we will contact you shortly.

Items in RED are required

Who do you want to send this email to?  

tony@langridgeplants.com - the desk of the president

sales@langridgeplants.com - for sales info and placing orders

customerrelations@langridgeplants.com -  this is for any help you may need such as plant questions etc

ar@langridgeplants.com - accounts receivable department

ap@langridgeplants.com - accounts payable department

Name
Company Name
Address1
Address2
City
State/Province
Zip
Email
Phone
Subject
Text
 
  

© 2004  Langridge Plant Sales. All Rights Reserved.