Feednack Form IndexContents Subscribe Feedback

<% ' 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

What type of message would you like to send? 

Please enter your comments in the space below:

Please tell us how to contact you:

Your Details

Institution Details

Name: Name
Address: Address
E-Mail Address: E-Mail Address:
Phone Number: Phone Number:
Fax Number: Fax Number:


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 = "robot@cabi.org" Mail.FromName = Request("Name") Mail.AddAddress "feedback@cabi.org", "feedback@cabi.org" 'Mail.AddCC "m.davidson@cabi.org", "m.davidson@cabi.org" 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 %>


© CAB International 2002

Mirrors Feedback