New York Guides, Adirondack Guides,Fishing,Hunting,Canoeing,Camping, Fly Fishing,Hunting Dogs
New York Guides, Adirondack Guides,Fishing,Hunting,Canoeing,Camping, Fly Fishing,Hunting Dogs

<% URL = Request.QueryString("URL") If Len(URL) = 0 Then URL = "http://www.nysoga.org" ' The default URL If Len(Request.Form("SendersEmail")) > 0 Then Dim objMail,FriendEmail,I sBody = "The Page at " & URL & " has been recommend by " & Request.Form("SendersEmail") & vbCrLf & " -- Message -- " & vbcrlf & Request.Form("Message") I=0 Set objMail = Server.CreateObject("Persits.MailSender") objMail.Host = "mail.mountainair.net" ' Specify a valid SMTP server objMail.From = "info@nysoga.org" ' Specify sender's address objMail.FromName = "NYSOGA" ' Specify sender's name objMail.Subject = "Recommended Page" objMail.Body = sBody Do While True FriendEmail = Request.Form("FriendEmail" & I) If Len(FriendEmail) = 0 Then Exit Do Else objMail.AddAddress FriendEmail End If I=I+1 Loop On Error Resume Next objMail.Send Set objMail = Nothing Response.write "

Thank you for spreading the word

" Response.write "Click here to return to " & URL & "" Else %>

Recommended URL: <%= URL %>

Your Email:

Your friends emails.

1.
2.
3.
4.
5.

Message

Please enter the words below in the space provided. This field helps prevent automated access.

<% End If %>