<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/19/2009#),date()) < 0 then response.redirect("default.asp") end if %> 1912 World Series

Daily Baseball Quiz

Saturday, December 19, 2009
Today's theme is: 1912 World Series

  1. Which National League team played in and lost the 1912 World Series?
    1. Chicago Cubs
    2. Cincinnati Reds
    3. New York Giants
    4. Philadelphia Phillies
    5. Pittsburgh Pirates

  2. How many home runs were hit during the 1912 World Series?
    1. 2
    2. 5
    3. 6
    4. 7
    5. 9

  3. Which pitcher won three games during the 1912 World Series?
    1. Hugh Bedient
    2. Doc Crandall
    3. Rube Marquard
    4. Jeff Tesreau
    5. Smoky Joe Wood

  4. How many umpires were there in the 1912 World Series?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 6

  5. Which American League team played in and won the 1912 World Series?
    1. Boston Red Sox
    2. Cleveland Indians
    3. Detroit Tigers
    4. New York Yankees
    5. Philadelphia Athletics

  6. Who pitched three complete games, but won none of them, during the 1912 World Series?
    1. Red Ames
    2. Doc Crandall
    3. Rube Marquard
    4. Christy Mathewson
    5. Jeff Tesreau

  7. Who had twelve hits during the 1912 World Series?
    1. Buck Herzog
    2. Chief Meyers
    3. Tris Speaker
    4. Jake Stahl
    5. Steve Yerkes

  8. How many games were played in the 1912 World Series?
    1. 4
    2. 5
    3. 6
    4. 7
    5. 8

  9. Who, in the bottom of the 10th inning scored the last, and winning, run of the 1912 World Series?
    1. Clyde Engle
    2. Larry Gardner
    3. Tris Speaker
    4. Jake Stahl
    5. Steve Yerkes
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/19/2009#) ' Compare dates comparison = DateDiff("d",expdate,currentDate) ' If date is in the past display the link if comparison > 0 then %> [NEXT DAY] <% End if %> <% ' Set the connection string and open the connection set conn = server.Createobject("ADODB.Connection") conn.Open ("DSN=counter") sql = "SELECT * from counter WHERE counterID = " & cint(353) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 353" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon