Depron Foam Insulation
 
Depron Foam

Contact Us

<% Dim process process = Request.Form("process") If process = "true" Then Dim title, fullname, address1, address2, address3, postcode, phone, mobile, fax, email, webpage, enquiry, preferred, errorMsg 'Get form data. title = Request.Form("title") fullname = Request.Form("fullname") address1 = Request.Form("address1") address2 = Request.Form("address2") address3 = Request.Form("address3") postcode = Request.Form("postcode") phone = Request.Form("phone") mobile = Request.Form("mobile") fax = Request.Form("fax") email = Request.Form("email") webpage = Request.Form("webpage") enquiry = Request.Form("enquiry") preferred = Request.Form("preferred") 'If data is error free dispatch email If errorMsg = "" Then Dim Mail, body body="Enquiry Submitted " & date() &"-"& time() & vbCrLf & vbCrLf body=body & "Name : " & fullname & vbCrLf & vbCrLf body=body & "Address 1 : " & address1 & vbCrLf body=body & "Address 2 : " & address2 & vbCrLf & vbCrLf body=body & "Address 3 : " & address3 & vbCrLf & vbCrLf body=body & "Post Code : " & postcode & vbCrLf & vbCrLf body=body & "Phone : " & phone & vbCrLf body=body & "Mobile : " & mobile & vbCrLf body=body & "Fax : " & fax & vbCrLf body=body & "Email : " & email & vbCrLf body=body & "Webpage : " & webpage & vbCrLf body=body & "Preferred method of Response : " & preferred & vbCrLf & vbCrLf body=body & "Enquiry : " & vbCrLf & enquiry & vbCrLf Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.To = "sales@kudostrading.co.uk" Mail.From = "sales@kudostrading.co.uk" Mail.Subject = "mail form from Depron Foam Website" Mail.Body = body Mail.Send Response.Write("Enquiry Sent - we will get back to you as soon as possible - Depron Foam") Set Mail=Nothing Else Response.Write(errorMsg) End If Else %>
 
 
Items in red are required so that we can contact you.
Your Details
Title Name
Address



Phone
Mobile
Fax
Website Email
 
Your Enquiry
Requests | Enquiries |
 
 
<% End If %>

 

 

 

 

 

 

 

© 2001 - 2009 Depron Foam