<% ' If date is in the future redirect to default if DateDiff("d",CDate(#7/27/2009#),date()) < 0 then response.redirect("default.asp") end if %> 19th Century Pitchers With More Than 300 Strikeouts In One Season

Daily Baseball Quiz

Monday, July 27, 2009
Today's theme is: 19th Century Pitchers With More Than 300 Strikeouts In One Season

  1. Who, in the 19th century, was the first pitcher to have more than 300 strikeouts in one season?
    1. John Clarkson
    2. Hugh Daily
    3. Tim Keefe
    4. Matt Kilroy
    5. Toad Ramsey

  2. Who was the first pitcher to have 2000 career strikeouts?
    1. Pud Galvin
    2. Tim Keefe
    3. Matt Kilroy
    4. Jim McCormick
    5. Amos Rusie

  3. Who was the first pitcher lead the National League in strikeouts three years in a row?
    1. Mark Baldwin
    2. Bill Huchison
    3. Tim Keefe
    4. Jim McCormick
    5. Amos Rusie

  4. Who won the National League pitching triple crown in 1884?
    1. Pud Galvin
    2. Guy Hecker
    3. Charles Radbourn
    4. Dupee Shaw
    5. Bill Sweeney

  5. Who was the first pitcher to strikeout 500 batters in one season?
    1. Charlie Buffington
    2. Hugh Daily
    3. Matt Kilroy
    4. Toad Ramsey
    5. Mickey Welch

  6. Who lead the National League in strikeouts in 1886?
    1. Lady Baldwin
    2. Mark Baldwin
    3. John Clarkson
    4. Charlie Sweeney
    5. Jim Whitney

  7. Who was the first pitcher to have 1000 career strikeouts?
    1. Mark Baldwin
    2. Bill Huchison
    3. Tim Keefe
    4. Jim McCormick
    5. Amos Rusie

  8. Who won the National League pitching triple crown in 1888?
    1. John Clarkson
    2. Guy Hecker
    3. Tim Keefe
    4. Ed Morris
    5. Bill Sweeney

  9. Who, with 308 strikeouts that year, lost 41 games in 1884 to lead the major leagues that year?
    1. John Clarkson
    2. Hardie Henderson
    3. Larry McKeon
    4. Tony Mullane
    5. Jim Whitney
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/27/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(208) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 208" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon