<% ' change to address of your own SMTP server strHost = "127.0.0.1" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("Email") ' From address Mail.FromName = Request("Name") ' optional Mail.AddAddress Request("To") ' message subject Mail.Subject = "Oceania Judo Feedback" 'Request("Subject") ' message body Mail.Body = "Name: " & Request("Name") & vbcrlf & Request("Surname") & vbcrlf & "Address: " & Request("Address") & vbcrlf & "Country: " & Request("Country") & vbcrlf & "Email Address: " & Request("Email") & vbcrlf & vbcrlf & "Website: " & Request("Website") & vbcrlf & vbcrlf & "Comment: " & Request("Text") & vbcrlf strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> OJU Official Web Site
     
   
 
HOME HISTORY TOURNAMENTS AFFILIATIONS LINKS OJU ORGANISATION
 
 
Welcome to the OJU Web Site

<% If strErr <> "" Then %>

Error occurred: <% = strErr %> <% End If %> <% If bSuccess Then %> Success! Your Message was sent.

<% End If %> Please feel free to contact us anytime or just send us your feedback to our website.

Fields marked with a star (*) are essential to fill out.

Name:
Surname:
Address:
Country:
Email:*
Website: excellent very good good just ok bad
Comment:*
 
 
2005 OJU CHAMPS INFO
2005 OJU CHAMPS PHOTOS
2005 OJU CHAMPS TRAVEL ASSISTANCE
 
ARTCLES & MEDIA RELEASES
FEEDBACK