<% ' If date is in the future redirect to default if DateDiff("d",CDate(#6/5/2009#),date()) < 0 then response.redirect("default.asp") end if %> Chicago Cubs

Daily Baseball Quiz

Friday, June 5, 2009
Today's theme is: Chicago Cubs

  1. Who has hit the most home runs in his career as a Chicago Cub?
    1. Ernie Banks
    2. Ryne Sandburg
    3. Ron Santo
    4. Sammy Sosa
    5. Billy Williams

  2. Who was the Chicago Cubs left fielder when Steve Bartman touched the foul ball during the 2003 National League Championship Series?
    1. Moisés Alou
    2. Doug Glanville
    3. Lenny Harris
    4. David Kelton
    5. Sammy Sosa

  3. Who was intentionally walked 160 times in his career as a Chicago Cub?
    1. Leon Durham
    2. Mark Grace
    3. Ron Santo
    4. Sammy Sosa
    5. Billy Williams

  4. Who was the first Chicago Cub to have 100 extra base hits in one season?
    1. Mark Grace
    2. Billy Herman
    3. Sammy Sosa
    4. Billy Williams
    5. Hack Wilson

  5. Which Cubs first baseman let a ground ball go through his legs at a crucial moment in Game 5 of the 1984 National League Championship Series?
    1. Bill Buckner
    2. Leon Durham
    3. Mark Grace
    4. Richie Hebner
    5. Keith Moreland

  6. Who was the first Chicago Cub to win the National League Most Valuable Player award?
    1. Ernie Banks
    2. Phil Cavarretta
    3. Gabby Hartnett
    4. Hank Sandburg
    5. Hank Sauer

  7. Who is the first Chicago Cub to win back-to-back batting titles as a Chicago Cub?
    1. Bill Buckner
    2. Phil Cavarretta
    3. Bill Madlock
    4. Billy Williams
    5. Heinie Zimmerman

  8. By how many games did the Chicago Cubs win the National League pennant in 1908?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

  9. Who had the most hits in his career for the Chicago franchise?
    1. Cap Anson
    2. Ernie Banks
    3. Mark Grace
    4. Ryne Sandburg
    5. Billy Williams
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#6/5/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(156) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 156" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon