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

Daily Baseball Quiz

Sunday, September 20, 2009
Today's theme is: Pitchers Who Won Twenty Or More Games In One Season

  1. Which southpaw pitcher had the most seasons of winning 20 or more games?
    1. Steve Carlton
    2. Tom Glavine
    3. Lefty Grove
    4. Carl Hubbell
    5. Warren Spahn

  2. How many home runs did Joey Jay hit in his career?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

  3. Which pitcher has hit the most home runs in his career?
    1. Wes Ferrell
    2. Bob Gibson
    3. Walter Johnson
    4. Bob Lemon
    5. Warren Spahn

  4. Who was the first Hall of Fame pitcher to give up a home run to the first batter he faced?
    1. Bob Gibson
    2. Walter Johnson
    3. Christy Mathewson
    4. Jim Palmer
    5. Warren Spahn

  5. Who was the first National League pitcher to win 20 games in a season with an ERA over 5.00?
    1. Lew Burdette
    2. Murry Dickson
    3. Darryl Kile
    4. Ray Kremer
    5. Jim Merritt

  6. Who was the first pitcher to hit 250 batters in his career?
    1. Chick Fraser
    2. Pink Hawley
    3. Walter Johnson
    4. Eddie Plank
    5. Gus Weyhing

  7. Who was the first pitcher to win 20 games in one season for the Montreal Expos?
    1. Stan Bahnsen
    2. John Candelaria
    3. Ross Grimsley
    4. Randy Johnson
    5. Pedro Martínez

  8. Who was the first pitcher to win the Comeback Player of the Year award?
    1. Dean Chance
    2. Ferguson Jenkins
    3. Vern Law
    4. Luis Tiant
    5. Clyde Wright

  9. Who was the first American League pitcher to throw two no hitters in the same season?
    1. Bob Feller
    2. Addie Joss
    3. Allie Reynolds
    4. Nolan Ryan
    5. Virgil Trucks
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#9/20/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(263) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 263" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon