%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress= cStr(Request("email"))
Mailer.RemoteHost = "mail.renewingromance.co.uk"
Mailer.AddRecipient "", "peter@godserve.co.uk"
Mailer.Subject = "Contact from RenewingRomance.co.uk"
Mailer.BodyText = Chr(13) & Chr(10) &_
"message1: " & cStr(Request("message1")) & Chr(13) & Chr(10) &_
": " & cStr(Request("")) & Chr(13) & Chr(10) &_
": " & cStr(Request("")) & Chr(13) & Chr(10) &_
": " & cStr(Request("")) & Chr(13) & Chr(10) &_
": " & cStr(Request(""))
If (cStr(Request("Submit")) <> "") Then
Mailer.SendMail
Response.Redirect "http://www.renewingromance.co.uk/thankyou.html"
End If
%>
Renewing Romance - Contact Us