%@LANGUAGE="VBSCRIPT"%> <% ' *** Send Form Values From Same Page to Webmaster - JMail ' *** UltraSuite Server Behavior - JMail_111 - version 1.0 ' *** Created by Jag S. Sidhu - www.ultrasuite.com Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp.fasthosts.co.uk" JMail.Sender = "website@census-marketing.com" JMail.Subject = "Enquiry from Census Marketing Contact Form" JMail.AddRecipient "info@census-marketing.com" JMail.Body = Chr(13) & Chr(10) &_ "firstname: " & cStr(Request("firstname")) & Chr(13) & Chr(10) &_ "lastname: " & cStr(Request("lastname")) & Chr(13) & Chr(10) &_ "job title: " & cStr(Request("title")) & Chr(13) & Chr(10) &_ "business name: " & cStr(Request("business")) & Chr(13) & Chr(10) &_ "phone: " & cStr(Request("phone")) & Chr(13) & Chr(10) &_ "fax: " & cStr(Request("fax")) & Chr(13) & Chr(10) &_ "email: " & cStr(Request("email")) & Chr(13) & Chr(10) &_ "website: " & cStr(Request("website")) & Chr(13) & Chr(10) &_ "comments: " & cStr(Request("comments")) If (cStr(Request("Submit")) <> "") Then JMail.Execute Response.Redirect "thanks.html" End If %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||