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

Daily Baseball Quiz

Saturday, August 22, 2009
Today's theme is: Doubles

  1. Who hit the most doubles in one season during the 20th century?
    1. George Burns
    2. Charlie Gehringer
    3. Hank Greenburg
    4. Joe Medwick
    5. Earl Webb

  2. Who broke Paul Waner's National League record for most doubles in one season?
    1. Craig Biggio
    2. Carlos Delgado
    3. Todd Helton
    4. Chuck Klein
    5. Joe Medwick

  3. Who was the first player to lead his league in doubles and win the Rookie of the Year award in the same year?
    1. Orlando Cepeda
    2. Fred Lynn
    3. Tony Oliva
    4. Dustin Pedroia
    5. Cal Ripken

  4. How many times did Napoleon Lajoie lead the American League in doubles?
    1. 2
    2. 3
    3. 4
    4. 5
    5. 6

  5. Who was the first player to have 500 career doubles?
    1. Cap Anson
    2. Jake Beckley
    3. Ed Delahanty
    4. Tip O'Neill
    5. Jim O'Rourke

  6. Who was the first player to have 600 career doubles?
    1. Cap Anson
    2. Ed Delahanty
    3. Napoleon Lajoie
    4. Tris Speaker
    5. Honus Wagner

  7. Who was the first player to have 700 career doubles?
    1. George Burns
    2. Ty Cobb
    3. Harry Heilmann
    4. Tris Speaker
    5. Honus Wagner

  8. Who has hit the most doubles while playing for the Pittsburgh Pirates?
    1. Max Carey
    2. Roberto Clemente
    3. Willie Stargell
    4. Honus Wagner
    5. Paul Waner

  9. Who hit the last double of the 1991 World Series?
    1. Randy Bush
    2. Dan Gladden
    3. Kent Hrbek
    4. Gene Larkin
    5. Kirby Puckett
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/22/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(234) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 234" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon