<% ' FP_ASP ASP Automatically generated by a FrontPage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 65001 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("ConfederationQuiz_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(15) Dim arFormDBFields0(15) Dim arFormValues0(15) arFormFields0(0) = "Notjoin" arFormDBFields0(0) = "Notjoin" arFormValues0(0) = Request("Notjoin") arFormFields0(1) = "fifth" arFormDBFields0(1) = "fifth" arFormValues0(1) = Request("fifth") arFormFields0(2) = "Largest" arFormDBFields0(2) = "Largest" arFormValues0(2) = Request("Largest") arFormFields0(3) = "Politician" arFormDBFields0(3) = "Politician" arFormValues0(3) = Request("Politician") arFormFields0(4) = "Industry" arFormDBFields0(4) = "Industry" arFormValues0(4) = Request("Industry") arFormFields0(5) = "PM1st" arFormDBFields0(5) = "PM1st" arFormValues0(5) = Request("PM1st") arFormFields0(6) = "Lastconference" arFormDBFields0(6) = "Lastconference" arFormValues0(6) = Request("Lastconference") arFormFields0(7) = "Govrenor" arFormDBFields0(7) = "Govrenor" arFormValues0(7) = Request("Govrenor") arFormFields0(8) = "Population" arFormDBFields0(8) = "Population" arFormValues0(8) = Request("Population") arFormFields0(9) = "mps" arFormDBFields0(9) = "mps" arFormValues0(9) = Request("mps") arFormFields0(10) = "whosproclimation" arFormDBFields0(10) = "whosproclimation" arFormValues0(10) = Request("whosproclimation") arFormFields0(11) = "Finance" arFormDBFields0(11) = "Finance" arFormValues0(11) = Request("Finance") arFormFields0(12) = "Name" arFormDBFields0(12) = "Name" arFormValues0(12) = Request("Name") arFormFields0(13) = "Email" arFormDBFields0(13) = "Email" arFormValues0(13) = Request("Email") arFormFields0(14) = "Ottawa" arFormDBFields0(14) = "Ottawa" arFormValues0(14) = Request("Ottawa") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=utf-8",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "ConfederationQuiz.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Confederation Quiz

Next Month
 
LAURIER
QUEBEC 1760
Book Reviews
The  Quiz
Canada History Society
Confederation Maps 
Blog

 

 

 

Canada Day Quiz

Here is the challenge - The Canada Day Quiz
Whoever gets the most correct answers wins a great prize - in the case of a tie a winner will be randomly chosen.

Make your choices and submit your answers.  The answers will be posted in the August issue of Voyager with the winner and the prize.
So give it a try and let's see what you know.



Who was Canada's First Prime Minister
Who's proclamation announced Confederation
Where was the last Confederation conference held to form Canada
Who was the first minister of Finance
Which Province did not join Canada in 1867
Who was the Governor General in 1867
What was the 5th province to join Canada
What was the largest city in Canada in 1867
What was Ottawa's original name
Which politician was from New Brunswick
What was the population of Canada in 1867
How many MP's made up Parliament in 1867
What was the main industry in Ottawa before 1867
   
Your Name
Email Address
   




Copyright © 2013 Access HT. All Rights Reserved.

mapps@canadahistorysociety.ca
 

Canadahistory@telus.net | Privacy Policy | Contact us | Advertising

Canadahistory Blog Twitter Canadahistory Facebook Canadahstory Expression Web