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
<% 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 = "
"
else
end if
if widgetProblem2 <> "" then
msg = msg & "
widgetProblem2
" & widgetProblem2 & "
"
else
end if
if widgetProblem3 <> "" then
msg = msg & "
widgetProblem3
" & widgetProblem3 & "
"
else
end if
if widgetProblem4 <> "" then
msg = msg & "
widgetProblem4
" & widgetProblem4 & "
"
else
end if
if widgetProblem5 <> "" then
msg = msg & "
widgetProblem5
" & widgetProblem5 & "
"
else
end if
if widgetProblem6 <> "" then
msg = msg & "
widgetProblem6
" & widgetProblem6 & "
"
else
end if
if widgetProblem7 <> "" then
msg = msg & "
widgetProblem7
" & widgetProblem7 & "
"
else
end if
if widgetProblem8 <> "" then
msg = msg & "
widgetProblem8
" & widgetProblem8 & "
"
else
end if
if widgetProblem9 <> "" then
msg = msg & "
widgetProblem9
" & widgetProblem9 & "
"
else
end if
if widgetProblem10 <> "" then
msg = msg & "
widgetProblem10
" & widgetProblem10 & "
"
else
end if
if widgetProblem11 <> "" then
msg = msg & "
widgetProblem11
" & widgetProblem11 & "
"
else
end if
if widgetProblem12 <> "" then
msg = msg & "
widgetProblem12
" & widgetProblem12 & "
"
else
end if
msg = msg & "
"
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
%>