<% ' The first time this page is retrieved and any time it is ' submitted without being completely filled out, the form ' is displayed. If it is submitted and completely filled out ' the form is processed in the Else clause. If Request("Submit")="" Then %> Please send us your comments
For more information on our Privacy Policy - Click here
<%Else 'Sets the mail server name If Request("server_name") = "cabweb.org.uk" or Request("server_name") = "130.88.203.142" Then mailserver = "mailrouter.mcc.ac.uk" Else mailserver = "smtp.serv.cgnet.com" End If Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = mailserver Mail.From = "[email protected]" Mail.FromName = Request("Name") Mail.AddAddress "[email protected]", "[email protected]" 'Mail.AddCC "[email protected]", "[email protected]" Mail.Subject = "Pest CABweb Website Feedback" Mail.Body = "Subject" + Chr(09) + Chr(09) + Request("Subject") + Chr(13) + Chr(10) + _ "From" + Chr(09) + Chr(09) + Request("Name") + Chr(13) + Chr(10) + _ "Email" + Chr(09) + Chr(09) + Request("Email") + Chr(13) + Chr(10) + _ "Address" + Chr(09) + Chr(09) + Request("Address") + Chr(13) + Chr(10) + _ "Telephone" + Chr(09) + Request("Tel") + Chr(13) + Chr(10) + _ "Fax" + Chr(09) + Chr(09) + Request("Fax") + Chr(13) + Chr(10) + _ Chr(10) + _ "Institution" + Chr(09) + Request("org_Name") + Chr(13) + Chr(10) + _ "Email" + Chr(09) + Chr(09) + Request("Org_Email") + Chr(13) + Chr(10) + _ "Address" + Chr(09) + Chr(09) + Request("Org_Address") + Chr(13) + Chr(10) + _ "Telephone" + Chr(09) + Request("Org_Tel") + Chr(13) + Chr(10) + _ "Fax" + Chr(09) + Chr(09) + Request("Org_Fax") + Chr(13) + Chr(10) + _ Chr(10) + _ "Comment" + Chr(09) + Chr(09) + Request("Comment") Mail.Send %> Thank you for your time <%End If %>