<% ' If date is in the future redirect to default if DateDiff("d",CDate(#10/30/2009#),date()) < 0 then response.redirect("default.asp") end if %> American League Pitchers Who Won 30 Games In One Season

Daily Baseball Quiz

Friday, October 30, 2009
Today's theme is: American League Pitchers Who Won 30 Games In One Season

  1. Who was the first American League pitcher to win 30 games in one season?
    1. Jack Chesbro
    2. Jack Coombs
    3. Ed Walsh
    4. Smoky Joe Wood
    5. Cy Young

  2. Who was the last American League pitcher to win 30 games in back-to-back seasons?
    1. Jim Bagby, Sr.
    2. Walter Johnson
    3. Ed Walsh
    4. Smoky Joe Wood
    5. Cy Young

  3. In what year did Lefty Grove win 31 games?
    1. 1928
    2. 1930
    3. 1931
    4. 1932
    5. 1935

  4. Who was the first American League pitcher to win 40 games in one season?
    1. Jack Chesbro
    2. Jack Coombs
    3. Ed Walsh
    4. Smoky Joe Wood
    5. Cy Young

  5. Who was the first pitcher to hit a home run in a World Series game?
    1. Jim Bagby, Sr.
    2. Lefty Grove
    3. Walter Johnson
    4. Ed Walsh
    5. Smoky Joe Wood

  6. Who had the nickname of "Sarge", yet he never served in the armed forces?
    1. Jim Bagby, Sr.
    2. Jack Chesbro
    3. Jack Coombs
    4. Denny McLain
    5. Ed Walsh

  7. Who lead the American League in strikeouts in 1911?
    1. Jack Chesbro
    2. Jack Coombs
    3. Walter Johnson
    4. Ed Walsh
    5. Smoky Joe Wood

  8. In what year did Denny McLain win 31 games?
    1. 1963
    2. 1967
    3. 1968
    4. 1969
    5. 1970

  9. Which 30 game winner played more games in the outfield than he did as a pitcher?
    1. Jim Bagby, Sr.
    2. Jack Chesbro
    3. Jack Coombs
    4. Ed Walsh
    5. Smoky Joe Wood
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/30/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(303) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 303" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon