<%@LANGUAGE=JAVASCRIPT%> <%Response.Expires=-1%> <% var submit = String(Request.Form("submit")); if (submit == "submit") { //SEND EMAIL TO WEBMASTER var strIntro, strBody, objCDOMail; strIntro = "A visitor to the Total Panels website (AllPlastics) has submitted the following message:" + "\n\n"; strBody = strBody + "First Name = " + Request.Form("fname") + "\n"; strBody = strBody + "Last Name = " + Request.Form("lname") + "\n"; strBody = strBody + "Company Name = " + Request.Form("cname") + "\n"; strBody = strBody + "Stree Address = " + Request.Form("address") + "\n"; strBody = strBody + "Suburb = " + Request.Form("suburb") + "\n"; strBody = strBody + "State = " + Request.Form("state") + "\n"; strBody = strBody + "Postcode = " + Request.Form("pcode") + "\n"; strBody = strBody + "Phone= " + Request.Form("phone") + "\n"; strBody = strBody + "Email = " + Request.Form("email") + "\n"; strBody = strBody + "Mobile = " + Request.Form("mobile") + "\n"; strBody = strBody + "How did you hear about website = " + Request.Form("hear") + "\n"; strBody = strBody + "Message = " + Request.Form("message") + "\n"; strBody = strBody + "========================================"; var objConfig = Server.CreateObject("CDO.Configuration"); var Flds = objConfig.Fields; Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2; Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"; Flds.Update(); var objCDOMail = Server.CreateObject("CDO.Message"); objCDOMail.Configuration = objConfig; objCDOMail.From = "vick@allplastics.com.au"; objCDOMail.To = "vick@allplastics.com.au"; objCDOMail.Subject = "Total Panels << ALLPLASTICS WEBSITE ENQUIRY >>"; objCDOMail.TextBody = strIntro + strBody; if (Request("email") != "") { objCDOMail.ReplyTo = Request("email"); } objCDOMail.Send(); objCDOMail = null; Response.Redirect("contact_tks.htm"); } %> Allplastics - Total Panels
CONTACT US HOME
 
  Total Stone Total Design Total Wood Allplastics Engineering  
 
 
  Allplastics Engineering Pty Ltd
Unit 20/380 Eastern Valley Way
Chatswood NSW 2067
Telephone: +61 2 9417 6111
Fax: +61 2 9417 6169
Email: sales@allplastics.com.au
 
You may use the form below to email us, or enquire about any particular product.
" method="post" onSubmit="return checkform(this)">
Your First Name* Last Name    
     
Company Name   Street Address    
     
Suburb   State   Postcode
   
Email*   Telephone*   Mobile
   
How did you hear about our website?
       
Your Message