New Zealand Flyfishing NZPFGA Guide - Fly fishing for brown trout with Bryan Wilson, South Island, NZ

<% option explicit %> <% '--- vars -------------------------------------------------------- dim problem '--- subs and fns -------------------------------------------------------- sub AddToProblem(errorMsg) if problem = "" then problem = "Sorry, you have not supplied all required information.
Please note the following:
" end if problem = problem & errorMsg & "
" end sub function IsValidEmail(theAddress) dim countTheAts, i IsValidEmail = true ' must be more than 5 chars - i.e "a@b.c" if len(theAddress) < 5 then IsValidEmail = false else ' has at least one "." if instr(theAddress,".") <= 0 then IsValidEmail = false else ' has only one "@" countTheAts = 0 i = 1 while i <= len(theAddress) if mid(theAddress,i,1) = "@" then countTheAts = countTheAts + 1 end if i = i + 1 wend if countTheAts <> 1 then IsValidEmail = false else 'check each char is valid i = 1 while i <= len(theAddress) if not isnumeric(mid(theAddress,i,1)) and _ (lcase(mid(theAddress,i,1)) < "a" or _ lcase(mid(theAddress,i,1)) > "z") and _ mid(theAddress,i,1) <> "_" and _ mid(theAddress,i,1) <> "." and _ mid(theAddress,i,1) <> "@" and _ mid(theAddress,i,1) <> "-" then IsValidEmail = false end if i = i + 1 wend end if end if end if end function sub CheckForProblems() if Request("name") = "" then AddToProblem("Name.") end if if Request("email") = "" then AddToProblem("Email address.") else if not IsValidEmail(Request("email")) then AddToProblem("Email address appears invalid.") end if end if end sub function requestDetails() dim EmailMsg EmailMsg = EmailMsg & "Fishing Enquiry" EmailMsg = EmailMsg & vbCrLf & vbCrLf & "Name : " & Request("name") EmailMsg = EmailMsg & vbCrLf & "Address : " & Request("address") EmailMsg = EmailMsg & vbCrLf & "Country : " & Request("country") EmailMsg = EmailMsg & vbCrLf & "Email address : " & Request("email") EmailMsg = EmailMsg & vbCrLf & "Number in Party : " & Request("numberinparty") EmailMsg = EmailMsg & vbCrLf & "Proposed date : " & Request("date") EmailMsg = EmailMsg & vbCrLf & "Comments : " & Request("comments") requestDetails = EmailMsg end function '--- main code -------------------------------------------------------- if Request("action") = "check" then CheckForProblems if problem = "" then Response.buffer = True '--- vars for email booking ------------------------------------------------- 'ToAddress : email will be sent to this address 'FromAddress : error messages from smtp server will be sent to this address 'SubjectHeader : Subject line. dim ToAddress, FromAddress, SubjectHeader, Email ToAddress = "Bryan@NewZealand-flyfishing.com" FromAddress = Request("email") SubjectHeader = "Fishing Enquiry" 'send the email. Set Email = Server.CreateObject("CDONTS.NewMail") Email.From = FromAddress Email.To = ToAddress Email.Subject = SubjectHeader Email.Body = requestDetails Email.Send Set Email = nothing Response.clear Response.redirect "thanks.htm" end if end if %> New Zealand Flyfishing NZPFGA Guide - Fly fishing for brown trout with Bryan Wilson, South Island, NZ

New Zealand Fishing Guide - Brown Trout flyfishing guide Reefton, South Island

Fly fishing in South Island NZ

Reefton, South Island, New Zealand

Fishing Trips & Prices

NB: All Rates Quoted in $NZD and inclusive of Goods & Services Tax (GST) Rates subject to change.

Base Guide Rate: (click here for a Currency Converter)
	1 person $730.00 per day	2 persons $365.00 per day each
The Base Guide Rate applies to all Day Trips including helicopter trips. Please note however that all helicopter charter fees are in addition to this rate
Overnight Campouts: (NB. 1 – 2 Nights Max - unless by arrangement, click here for a Currency Converter)
4WD Access:	4WD Access: 1 person @ 2 days / 1 night	$1690.00
	2 persons @ 2 days / 1 night	$ 970 each
	1 person @ 3 days / 2 night	$2540.00
	2 person @ 3 days / 2 night	$1545.00 each
Helicopter Access: (NB. All helicopter fees are in addition to these guiding fees) (click here for a Currency Converter)
	1 person @ 2 days / 1 night	$1630.00 plus heli
	2 persons @ 2 days / 1 night	$ 940.00 each plus heli
	1 person @ 3 days / 2 night	$2480.00 plus heli
	2 person @ 3 days / 2 night	$1555.00 each plus heli
Helicopter Fees can range from $750.00 - $1800.00 depending upon location fished
Farm Stay Fishing: (click here for a Currency Converter)
	1 person	$730.00 per day plus accommodation
	2 persons	$365.00 per day each plus accommodation
Accommodation rates from $150 - $250 per person per day – includes guide’s accommodation. Transfers: (includes Christchurch and Nelson Airports). Bryan is available to arrange transfers to and from the Reefton area for his anglers. If you require a transfer, please discuss your plans and requirements with Bryan and he will quote in each circumstance.

Booking Form
<% if Request("action") <> "" then %> <%=problem%> <% end if %>

Please note that your information will not be passed on to ANY third party. Please note that we will contact you to confirm your booking.

* Name: required please	>
Address:	<%=Request("address")%>
Country:	>
* E-mail address: required please	>
Number in party	>
Proposed arrival date	>
Further Comments or special requests	<%=Request("comments")%>
If our server is busy, it may take a few seconds for a response. Please click the "send" button only once

Home | Brown Trout Fishing | Map | Fishing Trips & Prices | Angling Gallery | Links

Wilson's Riverview ANGLING
Member of the New Zealand Professional Guiding Association
Contact Bryan Wilson, Elizabeth Street, Reefton, New Zealand
Phone 027 245 8163, International 0064 27 245 8163
E Mail Bryan@NewZealand-flyfishing.com