<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
sent = false
if request("Name") <> "" then
set mail = server.createobject("CDO.Message")
set conf = Server.CreateObject("CDO.Configuration")
with conf.fields
.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "209.200.20.228"
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.update
end with
set mail.configuration = conf
mail.From = "online-enquiry@rnr.co.uk"
mail.To = "sales@rnr.co.uk"
' mail.to = "info@ewebdev.co.uk"
mail.subject = "Email Enquiry Form"
BodyString = "Here is the information submitted by the user.." + vbCrLf + vbCrLf
For each Item in Request.Form
BodyString = BodyString + Item + " = " + Request.Form(Item) + vbCrLf
Next
mail.textbody = BodyString + vbCrLf + vbCrLf + "Thank you..."
mail.send
set mail = nothing
sent = true
end if
%>
Contact RNR Engineering
+44 (0) 1384 408950 
+44
(0) 1384 408968 
sales@rnr.co.uk
Search
Engine Optimisation by