<% ' If date is in the future redirect to default if DateDiff("d",CDate(#5/18/2009#),date()) < 0 then response.redirect("default.asp") end if %> Pitchers Who Struck Out 18 Or More Batters In One Game

Daily Baseball Quiz

Monday, May 18, 2009
Today's theme is: Pitchers Who Struck Out 18 Or More Batters In One Game

  1. Who was the first pitcher to strike out ten consecutive batters?
    1. Steve Carlton
    2. Roger Clemens
    3. Bob Feller
    4. Tom Seaver
    5. Don Wilson

  2. Who pitched a complete game shutout to win the gold medal in baseball at the 2000 Olympic Games in Sydney?
    1. Roger Clemens
    2. David Cone
    3. Randy Johnson
    4. Ben Sheets
    5. Kerry Wood

  3. Who was the first American League pitcher to strike out 18 batters in one game?
    1. Roger Clemens
    2. Ron Guidry
    3. Bob Feller
    4. Randy Johnson
    5. Nolan Ryan

  4. Who was the first National League pitcher to strike out 19 batters in one game?
    1. Steve Carlton
    2. Hugh Daily
    3. Henry Porter
    4. Dupee Shaw
    5. Charlie Sweeney

  5. Who was the first pitcher to strike out 19 batters in one game and lose?
    1. Steve Carlton
    2. Bill Gullickson
    3. Randy Johnson
    4. Nolan Ryan
    5. Tom Seaver

  6. Who struck out 21 batters in a game that lasted 16 innings?
    1. Tom Cheney
    2. Bob Feller
    3. Ron Guidry
    4. Randy Johnson
    5. Sandy Koufax

  7. Who was the first right handed pitcher to pitch back-to-back one hitters?
    1. Hugh Daily
    2. Bob Feller
    3. Nolan Ryan
    4. Tom Seaver
    5. Charlie Sweeney

  8. Who was the youngest player in the National League in 1988?
    1. David Cone
    2. Bill Gullickson
    3. Randy Johnson
    4. Ramón Martínez
    5. Kerry Wood

  9. Who struck out 20 batters in one game during his rookie season?
    1. Tom Cheney
    2. Roger Clemens
    3. Bob Feller
    4. Randy Johnson
    5. Kerry Wood
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/18/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(138) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 138" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon