%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress= cStr(Request("email"))
Mailer.RemoteHost = "mail.russell-interiors.co.uk"
Mailer.AddRecipient "", "sales@russell-interiors.co.uk"
Mailer.Subject = "Enquiry from Russell Interiors website"
Mailer.BodyText = Chr(13) & Chr(10) &_
"name: " & cStr(Request("name")) & Chr(13) & Chr(10) &_
"email: " & cStr(Request("email")) & Chr(13) & Chr(10) &_
"message: " & cStr(Request("message"))
If (cStr(Request("Submit")) <> "") Then
Mailer.SendMail
Response.Redirect "http://www.russell-interiors.co.uk/thankyou.html"
End If
%>
Quality German Kitchens from Russell Interiors Ltd, Birmingham – Format kitchens, made-to-measure kitchens, continental kitchens, kitchen furniture, kitchen appliances, Bosch, Keller, Miele, Franke