<% Option Explicit Dim strBody, strResponse, strFrom, strEmail '//////////////////////////////////////////////////////////// ' MODIFY VALUES BETWEEN "QUOTES" BELOW TO CHANGE OUTPUT OF EMAIL '//////////////////////////////////////////////////////////// CONST DOMAIN_NAME = "anglingunlimited.com" CONST EMAIL_TO_NAME = "Tom OHaus" CONST EMAIL_TO = "info@anglingunlimited.com" CONST EMAIL_OWNER = "tomohaus@aol.com" CONST EMAIL_COOWNER = "ChuckMcNamee@aol.com" CONST EMAIL_SUBJECT = "Angling Unlimited Reservations Request" CONST EMAIL_FROM_NAME = "Website Visitor" CONST EMAIL_FROM_ADDRESS= "info@anglingunlimited.com" CONST EMAIL_REMOTE_HOST = "sendmail.brinkster.com" CONST EMAIL_WEBMASTER = "anglingunlimited@aol.com" CONST EMAIL_MAILSERVERUSERNAME ="webmailer@anglingunlimited.com" CONST EMAIL_MAILSERVERPASSWORD = "cornwhiskey" CONST EMAIL_MAILFROM_ADDRESS= "webmailer@anglingunlimited.com" '//////////////////////////////////////////////////////////// 'DO NOT MODIFY BELOW THIS LINE strEmail = Request.Form("EMAIL") If Len(strEmail)<>0 Then strBody = BuildBody() strFrom = strEmail strResponse = MailIt(strBody,strEmail,strFrom,EMAIL_SUBJECT) Response.Clear Response.Redirect "thankyou.asp?msg=" & Server.URLEncode(strResponse) End if Function BuildBody() Dim objItem, strBody, strHeader, strFooter strHeader = "Reservation Request From " & Request.ServerVariables("SERVER_NAME") & vbcrlf & vbcrlf strHeader = strHeader & vbTab & "Sent by: " & vbtab & vbtab & strEmail & vbcrlf & vbcrlf strHeader = strHeader & vbTab & "Sent: " & vbtab & vbtab & FormatDateTime(Now(),0) & " (EST)" & vbcrlf & vbcrlf strBody = strBody & "Form information entered by Web User" & vbcrlf strBody = strBody & String(40,"-") & vbcrlf strBody = strBody & "Contact Information:" & vbcrlf strBody = strBody & Request.Form("NAME") & vbcrlf strBody = strBody & Request.Form("ADDRESS1") & vbcrlf strBody = strBody & Request.Form("ADDRESS2") & vbcrlf strBody = strBody & Request.Form("CITY") & ", " & Request.Form("STATE") & " " & Request.Form("ZIP") & vbcrlf strBody = strBody & Request.Form("COUNTRY") & vbcrlf strBody = strBody & "Phone: " & Request.Form("PHONE") & vbcrlf strBody = strBody & "Fax: " & Request.Form("FAX") & vbcrlf strBody = strBody & "Please Contact via " & Request.Form("CONTACT_BY") & vbcrlf & vbcrlf strBody = strBody & "Reservation Information:" & vbcrlf strBody = strBody & "Number of People: " & Request.Form("NUMBER_OF_PEOPLE") & vbcrlf strBody = strBody & "From:" & vbtab & vbTab & Request.Form("FROM_MONTH") & " " & Request.Form("FROM_DAY") & vbcrlf strBody = strBody & "To:" & vbtab & vbTab & Request.Form("TO_MONTH") & " " & Request.Form("TO_DAY") & vbcrlf strBody = strBody & "Notes:" & vbcrlf & Request.Form("FEEDBACK") & vbcrlf strBody = strBody & vbcrlf strFooter = strFooter & String(40,"-") & vbcrlf strFooter = strFooter & "Form mail compiled by Works of Wisdom, please email pete@worksofwisdom.com" & vbcrlf & "if problems are encountered." BuildBody = strHeader & strBody & strFooter End Function ' mails an email to the site owner, co-owner, and webmaster Function MailIt(strBody,strFrom,strFromName,strSubject) Dim objMail, strResponse Set objMail = Server.CreateObject("JMail.Message") objMail.MailServerUserName = EMAIL_MAILSERVERUSERNAME objMail.MailServerPassword = EMAIL_MAILSERVERPASSWORD objMail.From = EMAIL_MAILFROM_ADDRESS objMail.AddRecipient EMAIL_OWNER objMail.AddRecipient EMAIL_COOWNER objMail.AddRecipient EMAIL_WEBMASTER objMail.Subject = strSubject objMail.Body = strBody if objMail.Send(EMAIL_REMOTE_HOST) then strResponse = "Thank you for sending mail to us! We shall respond to your request within a couple days." else strResponse = "Unfortunately, an error was received when we tried to send an email message. Please email us manually.
" & objMail.Response & "
Click here to send your request manually." end if MailIt = strResponse End Function %> Angling Unlimited - Best fishing in Sitka - Chartered Alaska fishing vacations

Women's Week Special

Women’s “Gone Fishing Package”Pairs Alaskan Fishing & Gourmet Cooking
Who says that Gone Fishing only applies to men? Now women can enjoy the thrill of reeling in a world class King Salmon, thanks to a new summer package from Angling Unlimited, Alaska’s leading saltwater and fly fishing outfitter. The new “Women’s Gone Fishing Package,” available May 13 – 18, 2008, opens up the world of saltwater fishing to females.

The four-day, 5 night package pairs the excitement of sport fishing in Southeast Alaska with the best of gourmet seafood preparation, through cooking classes and tasting with one of America’s leading chefs.

During the stay, women will be tutored in the basics of fishing from tying knots to cutting and rigging the perfect bait. Once they have caught the big one, guests will learn how to filet the catch and later, how to prepare a five-star dinner. An optional eco-touring day will give participants a chance to view humpback whales, eagles, sea otters, sea lions, and seals.


Make an E-Reservation or Find out More

Reservation and Cancellation Policy
A 50% deposit of the total package cost is required within 14 days of the day you make your reservation. The remainder is due 90 days prior to the first day of your package trip. In case of cancellation, your deposit, less 10% will be refunded. No refunds can be given for cancellations within 90 days of your trip, unless we are able to fill your canceled dates.



Site designed and maintained by JMA Design

Women's Special Rates  

May 13 - 18, 2008

$1,645 per Person

Your Package Includes (based on a group of four):

  • 4 days/ 5 nights - four days of fishing with experienced, licensed captain and crew
  • Option to replace one day of fishing with an eco-tour
  • Airport transfers
  • Lodging at Sitka Waterfront and Waterview Suites
  • Continental Breakfast
  • Lunch aboard the boat
  • Daily Transportation between lodging and boat
  • Complimentary rental car for groups of four or more
  • All bait, tackle and weather gear
  • Highest quality fish processing: vacuum sealed, flash frozen, and boxed to airline specification

Your package doesn't include...

  • Airfare
  • Evening meals
  • Sitka sales tax
  • Gratuities
  • Alaska fishing license
  • Chinook Salmon stamp
  • Sitka Fish Box Tax

Specials:  

Sign up for our mailing list!

Dear Tom,

I had an absolutely wonderful experience with you and your group. Our package exceeded your brochure pronouncements and our expectation. And boating a 60+plus king was very exciting. Captain Ryan and deck-hand Nick expertly and patiently coached me through that 35-40 minute exciting encounter. I would probably not have brought that fish in without them.

Joe Kay,
Killingly, CT