Language selection

Search

Sport Fishing Advisory Board

The Sport Fishing Advisory Board (SFAB) has been an advisory body to Fisheries and Oceans Canada (DFO) on recreational issues since 1964.

Advisory board and committee meetings

Related materials

DFO contacts

Regional Recreational Fisheries Coordinator
Greg Hornby (Campbell River)
Telephone: (250) 286-5886
Email: Greg.Hornby@dfo-mpo.gc.ca

North Coast Recreational Fisheries Manager
Darren Chow (Prince Rupert)
Telephone: (250) 627-3441
Email: Darren.Chow@dfo-mpo.gc.ca

West Coast Vancouver Island Recreational Fisheries Manager
Brad Beaith (Nanaimo)
Telephone: (250) 713-0437
Email: Brad.Beaith@dfo-mpo.gc.ca
(WCVI - Areas 11 to 27, 121 to 127)

East Coast Vancouver Island Recreational Fisheries Manager
Erika Watkins (Campbell River)
Telephone: (250) 286-5882
Email: Erika.Watkins@dfo-mpo.gc.ca
(ECVI - Areas 11 to 20, Subareas 29-1 to 29-5)

Lower Fraser Valley Recreational Fisheries Manager
Barbara Mueller (Annacis Island)
Telephone: (250) 666-2370
Email: Barbara.Mueller@dfo-mpo.gc.ca

Interior Recreational Fisheries Manager
Dean Allan (Kamloops)
Telephone: (250) 851-4821
Email: Dean.Allan@dfo-mpo.gc.ca

<% '----------------------------------------------------------------------------------------------------------------------' '-----------------------------------Encoding the page to make the email send out as UTF-8------------------------------' '----------------------------------------------------------------------------------------------------------------------' Response.ContentType = "text/html" Response.AddHeader "Content-Type", "text/html;charset=UTF-8" Response.CodePage = 65001 Response.CharSet = "UTF-8" %>
<% if Session("nZqtiH88nd")="remove" then %>
Report a problem or mistake on this page

Thank you for your help!

You will not receive a reply. For enquiries, contact us.

<% else %>
Report a problem or mistake on this page
Please select all that apply:
<% end if %> <% '-------------------------------------------------------------------------------------------' '-----------------------only trigger the ASP code when the form POSTs-----------------------' '-------------------------------------------------------------------------------------------' If Request.QueryString("reportWidgetIsSubmitted") = "yes" Then '-------------------------------------------------------------------------------------------' '--------------------------------------recaptcha check--------------------------------------' '-------------------------------------------------------------------------------------------' Dim widgetRecaptchaSecret, widgetSendstring, widgetObjXML, widgetRecaptchaCheck, widgetResponseString widgetRecaptchaSecret = "6LdGyzEaAAAAAAfSTKpfhDex6IFD1HoAXyvlr8Tk" widgetSendstring = "https://www.google.com/recaptcha/api/siteverify?secret=" & widgetRecaptchaSecret & "&response=" & Request.form("g-recaptcha-response") Set widgetObjXML = Server.CreateObject("MSXML2.ServerXMLHTTP") widgetObjXML.Open "GET", widgetSendstring, False widgetObjXML.Send widgetResponseString = split(widgetObjXML.responseText, vblf) Set widgetObjXML = Nothing if Right(widgetResponseString(1),5) = "true," then widgetRecaptchaCheck = true else widgetRecaptchaCheck = widgetResponseString(1) end if Set widgetObjXML = Nothing '-------------------------------------------------------------------------------------------' '-------------redirect variable that is used even if recaptcha is not verified--------------' '-------------------------------------------------------------------------------------------' widgetRedirect = Server.HTMLEncode(trim(Request.QueryString("redirect"))) if widgetRecaptchaCheck = true Then '-------------------------------------------------------------------------------------------' '--------------ASP code to create variables for the values of each form field---------------' '------------------------------HTMLEncode sanitizes the values------------------------------' '-------------------------------------------------------------------------------------------' widgetLang = Server.HTMLEncode(trim(request.form("widgetLang"))) widgetSubject = Server.HTMLEncode(trim(request.form("widgetSubject"))) widgetPageTitle = Server.HTMLEncode(trim(request.form("widgetPageTitle"))) widgetProblem1 = Server.HTMLEncode(trim(request.form("widgetProblem1"))) widgetProblem2 = Server.HTMLEncode(trim(request.form("widgetProblem2"))) widgetProblem3 = Server.HTMLEncode(trim(request.form("widgetProblem3"))) widgetProblem4 = Server.HTMLEncode(trim(request.form("widgetProblem4"))) widgetProblem5 = Server.HTMLEncode(trim(request.form("widgetProblem5"))) widgetProblem6 = Server.HTMLEncode(trim(request.form("widgetProblem6"))) widgetProblem7 = Server.HTMLEncode(trim(request.form("widgetProblem7"))) widgetProblem8 = Server.HTMLEncode(trim(request.form("widgetProblem8"))) widgetProblem9 = Server.HTMLEncode(trim(request.form("widgetProblem9"))) widgetProblem10 = Server.HTMLEncode(trim(request.form("widgetProblem10"))) widgetProblem11 = Server.HTMLEncode(trim(request.form("widgetProblem11"))) widgetProblem12 = Server.HTMLEncode(trim(request.form("widgetProblem12"))) widgetEmailSubject = trim(request.form("widgetPageTitle")) '-------------------------------------------------------------------------------------------' '--------------------------------------build the email--------------------------------------' '-------------------------------------------------------------------------------------------' dim msg, emailForm set emailForm = server.CreateObject ("CDO.Message") emailForm.From = "webmasterpacrhq@dfo-mpo.gc.ca" emailForm.To = "webmasterpacrhq@dfo-mpo.gc.ca" emailForm.Subject = "Website problem: " & widgetEmailSubject msg = "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" if widgetProblem1 <> "" then msg = msg & "" else end if if widgetProblem2 <> "" then msg = msg & "" else end if if widgetProblem3 <> "" then msg = msg & "" else end if if widgetProblem4 <> "" then msg = msg & "" else end if if widgetProblem5 <> "" then msg = msg & "" else end if if widgetProblem6 <> "" then msg = msg & "" else end if if widgetProblem7 <> "" then msg = msg & "" else end if if widgetProblem8 <> "" then msg = msg & "" else end if if widgetProblem9 <> "" then msg = msg & "" else end if if widgetProblem10 <> "" then msg = msg & "" else end if if widgetProblem11 <> "" then msg = msg & "" else end if if widgetProblem12 <> "" then msg = msg & "" else end if msg = msg & "

Report a problem

Language" & widgetLang & "
Subject" & widgetSubject & "
Page Title" & widgetPageTitle & "
widgetProblem1" & widgetProblem1 & "
widgetProblem2" & widgetProblem2 & "
widgetProblem3" & widgetProblem3 & "
widgetProblem4" & widgetProblem4 & "
widgetProblem5" & widgetProblem5 & "
widgetProblem6" & widgetProblem6 & "
widgetProblem7" & widgetProblem7 & "
widgetProblem8" & widgetProblem8 & "
widgetProblem9" & widgetProblem9 & "
widgetProblem10" & widgetProblem10 & "
widgetProblem11" & widgetProblem11 & "
widgetProblem12" & widgetProblem12 & "
" emailForm.HTMLBody = msg emailForm.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 emailForm.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "CDCSMTP.ent.dfo-mpo.ca" emailForm.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 emailForm.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 emailForm.Configuration.Fields.Update '-------------------------------------------------------------------------------------------' '----if the email is valid then send it and then empty it to prepare for new submissions----' '------use session variable to lock out submissions for 1 minute and change the widget------' '-------------redirect back to widget (anchor) on page widget was submitted on--------------' '-------------------------------------------------------------------------------------------' emailForm.Send set emailForm=nothing Session("nZqtiH88nd")="remove" Session.Timeout=1 Response.Redirect(widgetRedirect) Else '-------------------------------------------------------------------------------------------' '----------------------------fallback redirections for failures-----------------------------' '-------------------------------------------------------------------------------------------' if widgetRedirect = "" then Response.Redirect("/index-eng.html") Else Response.Redirect(widgetRedirect) End If End If Else End If %>
Date modified: