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

Daily Baseball Quiz

Thursday, August 20, 2009
Today's theme is: 2008 World Series

  1. Which National League team played in and won the 2008 World Series?
    1. Chicago Cubs
    2. Los Angeles Dodgers
    3. Milwaukee Brewers
    4. New York Mets
    5. Philadelphia Phillies

  2. Who was the second person in World Series history to ground into a double play during each of his first two World Series at bats?
    1. Ryan Howard
    2. Carlos Peña
    3. B. J. Upton
    4. Chase Utley
    5. Jason Werth

  3. Who hit the first home run of the 2008 World Series?
    1. Carl Crawford
    2. Carlos Peña
    3. B. J. Upton
    4. Chase Utley
    5. Jason Werth

  4. Who was the first person to hit a home run and steal two bases during his first game in World Series history?
    1. Carl Crawford
    2. Jimmy Rollins
    3. B. J. Upton
    4. Chase Utley
    5. Shane Victorino

  5. Who successfully executed a safety squeeze during the fourth inning of Game 2 of the 2008 World Series?
    1. Jason Bartlett
    2. Carl Crawford
    3. Akinori Iwamura
    4. Carlos Peña
    5. B. J. Upton

  6. Who became the 15th pitcher in World Series history to hit a home run during the 2008 World Series?
    1. Joe Blanton
    2. Cole Hamels
    3. Scott Kazmir
    4. David Price
    5. James Shields

  7. How many one run games did the Phillies win in the 2008 World Series?
    1. 0
    2. 1
    3. 2
    4. 3
    5. 4

  8. How many extra innings games were played during the 2008 World Series?
    1. 0
    2. 1
    3. 2
    4. 3
    5. 4

  9. Who scored the last run of the 2008 World Series?
    1. Eric Bruntlett
    2. Geoff Jenkins
    3. Jimmy Rollins
    4. Chase Utley
    5. Jayson Werth
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/20/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(232) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 232" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon