<% ' If date is in the future redirect to default if DateDiff("d",CDate(#10/21/2009#),date()) < 0 then response.redirect("default.asp") end if %> 21st Century Strikeout Champions

Daily Baseball Quiz

Wednesday, October 21, 2009
Today's theme is: 21st Century Strikeout Champions

  1. Who was the first National League pitcher to strike out 20 batters in one game?
    1. Randy Johnson
    2. Esteban Loaiza
    3. Pedro Martínez
    4. Johan Santana
    5. Kerry Wood

  2. Who was the fastest to reach 1000 career strikeouts?
    1. A. J. Burnett
    2. Randy Johnson
    3. Pedro Martínez
    4. Johan Santana
    5. Kerry Wood

  3. Who was Pedro Martínez's 3000th strikeout?
    1. Aaron Harang
    2. Randy Johnson
    3. Tim Lincecum
    4. Hideo Nomo
    5. Jake Peavy

  4. Who, in 2006, was arrested near San Lorenzo, California after driving his Ferrari over 100 MPH?
    1. Randy Johnson
    2. Esteban Loaiza
    3. Pedro Martínez
    4. Hideo Nomo
    5. Jake Peavy

  5. Which pitcher is on the February 25, 2008 cover of Sports Illustrated?
    1. A. J. Burnett
    2. Scott Kazmir
    3. Pedro Martínez
    4. Jake Peavy
    5. Johan Santana

  6. Who lead the National League in strikeouts in 2006?
    1. Aaron Harang
    2. Randy Johnson
    3. Pedro Martínez
    4. Jake Peavy
    5. Kerry Wood

  7. Which pitcher is on the July 7, 2008 cover of Sports Illustrated?
    1. Randy Johnson
    2. Scott Kazmir
    3. Tim Lincecum
    4. Jake Peavy
    5. Johan Santana

  8. Who won the National League Cy Young Award in 2008?
    1. Randy Johnson
    2. Tim Lincecum
    3. Pedro Martínez
    4. Jake Peavy
    5. Johan Santana

  9. Who was the first American League pitcher to lead the league in strikeouts without a complete game?
    1. A. J. Burnett
    2. Scott Kazmir
    3. Esteban Loaiza
    4. Hideo Nomo
    5. Johan Santana
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/21/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(294) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 294" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon