<% ' If date is in the future redirect to default if DateDiff("d",CDate(#1/6/2009#),date()) < 0 then response.redirect("default.asp") end if %> Hall of Fame Pitchers Who Lost 20 Games In One Season

Daily Baseball Quiz

Tuesday, January 6, 2009
Today's theme is: Hall of Fame Pitchers Who Lost 20 Games In One Season

  1. Who was the last pitcher to win 20 games the same season he lost 20 games?
    1. Steve Carlton
    2. Jack Chesbro
    3. John Clarkson
    4. Pud Galvin
    5. Phil Niekro

  2. Who won more than 400 games in his career?
    1. John Clarkson
    2. Walter Johnson
    3. Tim Keefe
    4. Phil Niekro
    5. Charles Radbourn

  3. Who was the first pitcher to post three separate 300-strikeout seasons?
    1. Jesse Haines
    2. Walter Johnson
    3. Tim Keefe
    4. Amos Rusie
    5. Ed Walsh

  4. Who had the nickname "Iron Man"?
    1. John Clarkson
    2. Rube Marquard
    3. Joe McGinnity
    4. Phil Niekro
    5. Eppa Rixey

  5. Who posted five consecutive seasons of 30 or more wins for the New York Giants?
    1. Tim Keefe
    2. Rube Marquard
    3. Joe McGinnity
    4. Amos Rusie
    5. Mickey Welch

  6. Who was the author of the winningest season in big league history with 60 wins in 1884?
    1. Pud Galvin
    2. Tim Keefe
    3. Charles Radbourn
    4. Amos Rusie
    5. Mickey Welch

  7. Who was originally named Richard William LeMarquis?
    1. Rube Marquard
    2. Eppa Rixey
    3. Red Ruffing
    4. Amos Rusie
    5. Mickey Welch

  8. Who twice pitched over 600 innings in one season?
    1. John Clarkson
    2. Tim Keefe
    3. Joe McGinnity
    4. Phil Niekro
    5. Ed Walsh

  9. Who started and won both ends of three doubleheaders in one month?
    1. Jack Chesbro
    2. John Clarkson
    3. Rube Marquard
    4. Joe McGinnity
    5. Ed Walsh
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#1/6/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(6) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 6" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon