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

Daily Baseball Quiz

Sunday, August 30, 2009
Today's theme is: 20th Century Pitchers With More Than 300 Strikeouts In One Season

  1. Who was the oldest pitcher to have a season with more than 300 strikeouts?
    1. Bob Feller
    2. Randy Johnson
    3. Mickey Lolich
    4. Nolan Ryan
    5. Curt Schilling

  2. Who was the first American League pitcher to have back-to-back seasons with more than 300 strikeouts?
    1. Walter Johnson
    2. Mickey Lolich
    3. Sam McDowell
    4. Nolan Ryan
    5. Rube Waddell

  3. Who was the first pitcher to win the American League pitching triple crown with more than 300 strikeouts?
    1. Vida Blue
    2. Bob Feller
    3. Walter Johnson
    4. Pedro Martínez
    5. Rube Waddell

  4. Who struck out the most batters in one season during the 20th century?
    1. Bob Feller
    2. Randy Johnson
    3. Sandy Koufax
    4. Nolan Ryan
    5. Rube Waddell

  5. How many seasons did Nolan Ryan have with more than 300 strikeouts?
    1. 2
    2. 3
    3. 4
    4. 5
    5. 6

  6. Who lead the American League in strikeouts in 1965?
    1. Vida Blue
    2. Steve Carlton
    3. Sandy Koufax
    4. Mickey Lolich
    5. Sam McDowell

  7. Who lead the major leagues in strikeouts in 1970?
    1. Vida Blue
    2. Steve Carlton
    3. Mickey Lolich
    4. Sam McDowell
    5. Nolan Ryan

  8. Who lead the major leagues in strikeouts in 1978 and 1979?
    1. Vida Blue
    2. Steve Carlton
    3. J. R. Richard
    4. Nolan Ryan
    5. Mike Scott

  9. Who was the last pitcher to have five consecutive seasons with more than 300 strikeouts?
    1. Steve Carlton
    2. Randy Johnson
    3. Pedro Martínez
    4. Sam McDowell
    5. Nolan Ryan
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/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(242) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 242" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon