<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/21/2009#),date()) < 0 then response.redirect("default.asp") end if %> Boston Red Sox Pitchers

Daily Baseball Quiz

Monday, December 21, 2009
Today's theme is: Boston Red Sox Pitchers

  1. Which pitcher struck out 2590 batters, a team record, while pitching for the Boston Red Sox?
    1. Roger Clemens
    2. Pedro Martínez
    3. Luis Tiant
    4. Tim Wakefield
    5. Cy Young

  2. What number did Roger Clemens wear while pitching for the Boston Red Sox?
    1. 12
    2. 16
    3. 21
    4. 22
    5. 32

  3. Who was the first pitcher to strike out 300 batters in one season for the Boston Red Sox?
    1. Roger Clemens
    2. Jim Lonborg
    3. Pedro Martínez
    4. Smoky Joe Wood
    5. Cy Young

  4. Who was the first pitcher to save 40 games in one season for the Boston Red Sox?
    1. Tom Gordon
    2. Derek Lowe
    3. Jonathan Papelbon
    4. Jeff Reardon
    5. Ugueth Urbina

  5. Which Hall of Fame pitcher holds the Boston Red Sox single season record for losses with 25?
    1. Dennis Eckersley
    2. Lefty Grove
    3. Herb Pennock
    4. Red Ruffing
    5. Cy Young

  6. Which Red Sox pitcher holds the major league record for the lowest single season ERA with 0.96?
    1. Dutch Leonard
    2. Babe Ruth
    3. Ernie Shore
    4. Smoky Joe Wood
    5. Cy Young

  7. Which Red Sox pitcher broke his leg in a skiing accident after winning the Cy Young Award?
    1. Roger Clemens
    2. Dennis Eckersley
    3. Jim Lonborg
    4. Pedro Martínez
    5. Bret Saberhagen

  8. How many games did Babe Ruth win while pitching for the Boston Red Sox?
    1. 89
    2. 90
    3. 91
    4. 93
    5. 99

  9. Whose game-worn bloody sock was sent to the Baseball Hall of Fame?
    1. Bronson Arroyo
    2. Keith Foulke
    3. Pedro Martínez
    4. Curt Schilling
    5. Tim Wakefield
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/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(355) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 355" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon