<%@LANGUAGE="VBSCRIPT"%> <% ' *** Send Form Values From Same Page to Webmaster - CDO NewMail ' *** UltraSuite Server Behavior - CDOMail_111 - version 1.0 ' *** Created by Jag S. Sidhu - www.ultrasuite.com Dim usxCDO Set usxCDO = Server.CreateObject("CDONTS.NewMail") usxCDO.From = "enquiries@redrock-dev.com" usxCDO.To = "enquiries@redrock-dev.com" usxCDO.Subject = "Enquiry" usxCDO.Body = Chr(13) & Chr(10) &_ "Your Name: " & cStr(Request("Your Name")) & Chr(13) & Chr(10) &_ "Company Name: " & cStr(Request("Company Name")) & Chr(13) & Chr(10) &_ "Email: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_ "Telephone Number: " & cStr(Request("Telephone Number")) & Chr(13) & Chr(10) &_ "Your Enquiry: " & cStr(Request("Your Enquiry")) & Chr(13) & Chr(10) &_ ": " & cStr(Request("")) & Chr(13) & Chr(10) &_ ": " & cStr(Request("")) If (cStr(Request("Submit")) <> "") Then usxCDO.Send Set usxCDO = Nothing Response.Redirect "default.htm" End If %> Red Rock Development
         
 
 

Manchester Evening News 4th March


Contact Red Rock