%@ language="VBScript" %> <% Dim WhoTo Dim WhatEmail Dim StuffForm Dim StuffFormNo Dim i If (Request.form>"")Then StuffForm = " " StuffFormNo = Request.Form.Count i = 1 if (StuffFormNo > 1) then do until (i > StuffFormNo) StuffForm = StuffForm & VbCrLf & Request.Form.Key(i) & " : " & Request.Form.Item(i) i = i + 1 loop end if ' ---------------------------------- Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Web Enquiry" Mailer.FromAddress = "info@railwaytotems.co.uk" Mailer.RemoteHost = "mailgate.freeparking.com" Mailer.AddRecipient "Steven Binks", "info@stevenbinks.co.uk" 'remove the ' from the following to test the script 'Mailer.AddRecipient "Steven Binks", "info@embossed.co.uk" Mailer.Subject = "Web Enquiry" Mailer.BodyText = VbCrLf & StuffForm & VbCrLf If Mailer.SendMail then Response.Redirect("./sbprints_order.asp?order=done") Else Response.Write "Enquiry form failure. Please email info@stevenbinks.co.uk with your enquiry - Many thanks." End If Set Mailer = Nothing End If %>
|
Have you already received a Quote? |