<% ' 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("war1812quiz_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) = "PM" arFormDBFields0(0) = "PM" arFormValues0(0) = Request("PM") arFormFields0(1) = "Ended" arFormDBFields0(1) = "Ended" arFormValues0(1) = Request("Ended") arFormFields0(2) = "Native" arFormDBFields0(2) = "Native" arFormValues0(2) = Request("Native") arFormFields0(3) = "Battle" arFormDBFields0(3) = "Battle" arFormValues0(3) = Request("Battle") arFormFields0(4) = "Noncombatant" arFormDBFields0(4) = "Noncombatant" arFormValues0(4) = Request("Noncombatant") arFormFields0(5) = "President" arFormDBFields0(5) = "President" arFormValues0(5) = Request("President") arFormFields0(6) = "Winner" arFormDBFields0(6) = "Winner" arFormValues0(6) = Request("Winner") arFormFields0(7) = "Ship" arFormDBFields0(7) = "Ship" arFormValues0(7) = Request("Ship") arFormFields0(8) = "Name" arFormDBFields0(8) = "Name" arFormValues0(8) = Request("Name") arFormFields0(9) = "Informant" arFormDBFields0(9) = "Informant" arFormValues0(9) = Request("Informant") arFormFields0(10) = "Building" arFormDBFields0(10) = "Building" arFormValues0(10) = Request("Building") arFormFields0(11) = "Email" arFormDBFields0(11) = "Email" arFormValues0(11) = Request("Email") arFormFields0(12) = "Naval" arFormDBFields0(12) = "Naval" arFormValues0(12) = Request("Naval") arFormFields0(13) = "General" arFormDBFields0(13) = "General" arFormValues0(13) = Request("General") arFormFields0(14) = "Territory" arFormDBFields0(14) = "Territory" arFormValues0(14) = Request("Territory") 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:",_ "war1812quiz.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> War of 1812 Quiz

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

 

 

 

The War of 1812 Quiz

Here is the challenge - The War of 1812 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 September issue of Voyager with the winner and the prize.
So give it a try and let's see what you know.
1812


What year did the war of 1812 officially end
Who was not a combatant
What was the name of the famous Native Leader
Who informed the British of Amercian plans
Which significant US Government building was burnt by the British
Which was not a Battle in the War of 1812
What naval battle was fought on September 10th 1813
Who was the most famous British General in the war of 1812
Which was not a ship involved in the War of 1812
Who was President of the US during the war of 1812
Which large territory did the US win during thw war
Who was the British Prime Minister during the war
Who won the War of 1812
   
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