<% ' If date is in the future redirect to default if DateDiff("d",CDate(#1/3/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players Who Have Hit More Than 50 Doubles In A Season

Daily Baseball Quiz

Saturday, January 3, 2009
Today's theme is: Players Who Have Hit More Than 50 Doubles In A Season

  1. Who has played the most number of games for the Houston Astros?
    1. Lance Berkman
    2. Craig Biggio
    3. Luis González
    4. José Vidro
    5. Michael Young

  2. Who was the Most Valuable Player of the 2006 All-Star Game?
    1. Lance Berkman
    2. David Ortiz
    3. Albert Pujols
    4. Alfonso Soriano
    5. Michael Young

  3. Who won the National League batting title in 2006?
    1. Lance Berkman
    2. Lyle Overbay
    3. Albert Pujols
    4. Freddy Sánchez
    5. Alfonso Soriano

  4. Who won the American League batting title in 2007?
    1. Mark Grudzielanek
    2. Magglio Ordóñez
    3. David Ortiz
    4. Alex Rodríguez
    5. Michael Young

  5. Who hit the most doubles in one season during the 19th century?
    1. Ed Delahanty
    2. Napoleon Lajoie
    3. Tip O'Neill
    4. Tris Speaker
    5. Gee Walker

  6. Who holds the record of the fewest strikeouts by a batting champion with 13?
    1. Garrett Anderson
    2. Craig Biggio
    3. Nomar Garciaparra
    4. George Kell
    5. Joe Medwick

  7. Which Chicago Cub had back-to-back seasons with 57 doubles?
    1. Nomar Garciaparra
    2. Mark Grace
    3. Mark Grudzielanek
    4. Billy Herman
    5. Alfonso Soriano

  8. Who is the career leader in doubles?
    1. Lou Gehrig
    2. Charlie Gehringer
    3. Chuck Klein
    4. Joe Medwick
    5. Tris Speaker

  9. Who is the first player to have more than 100 extra base hits in consecutive seasons?
    1. Lou Gehrig
    2. Charlie Gehringer
    3. Todd Helton
    4. Chuck Klein
    5. Tris Speaker
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#1/3/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(3) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 3" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon