Order Forms

<% If request("submit") <> "" THEN Set objEMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" Confi.Update Set objEMail.Configuration = objConfig objEMail.To = "info@recovery-insulation.co.uk, liamcrean@enventure.co.uk" objEMail.From = Request("from") objEMail.Subject = Request("subject") objEMail.TextBody = "Name: " & Request("name") & vbCRLF & "E-mail: " & Request("from") & vbCRLF & "Telephone: " & Request("telephone") & vbCRLF & "Message: " & Request("message") objEMail.Send Set objEMail = Nothing Response.Write("Thank you for submitting your enquiry.
A message a has been sent to Recovery Insulation and someone will contact you shortly.") Else %> IMPORTANT NOTICE:- SINCE MOVING TO A NEW ISP THIS PAGE DOES NOT WORK AT PRESENT - PLEASE SIMPLY CONTACT BY EMAIL - info at recovery-insulation dot co dot uk or call 44 (0) 114 2499459