<% ' If date is in the future redirect to default if DateDiff("d",CDate(#8/3/2009#),date()) < 0 then response.redirect("default.asp") end if %> Relievers Who Won The Cy Young Award

Daily Baseball Quiz

Monday, August 3, 2009
Today's theme is: Relievers Who Won The Cy Young Award

  1. Who was the first relief pitcher to win the Cy Young Award?
    1. Rollie Fingers
    2. Willie Hernández
    3. Sparkly Lyle
    4. Mike Marshall
    5. Bruce Sutter

  2. Who was the first relief pitcher in the 21st century to win the Cy Young Award?
    1. Steve Bedrosian
    2. Mark Davis
    3. Dennis Eckersley
    4. Eric Gagné
    5. Willie Hernández

  3. Who was the first pitcher to have 300 career saves?
    1. Rollie Fingers
    2. Eric Gagné
    3. Sparkly Lyle
    4. Mike Marshall
    5. Bruce Sutter

  4. Who lead the major leagues in saves in 1984?
    1. Steve Bedrosian
    2. Dennis Eckersley
    3. Rollie Fingers
    4. Willie Hernández
    5. Bruce Sutter

  5. For how many seasons did Bruce Sutter lead the National League in saves?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

  6. Who was the first pitcher to throw a no hitter and later have 50 saves in one season?
    1. Steve Bedrosian
    2. Dennis Eckersley
    3. Rollie Fingers
    4. Sparkly Lyle
    5. Mike Marshall

  7. Who was the first pitcher to record a save on five consecutive days?
    1. Steve Bedrosian
    2. Mark Davis
    3. Dennis Eckersley
    4. Rollie Fingers
    5. Eric Gagné

  8. In what year did Willie Hernández win the Cy Young award?
    1. 1981
    2. 1982
    3. 1983
    4. 1984
    5. 1985

  9. Who was the first pitcher to finish at least 80 games in one season?
    1. Rollie Fingers
    2. Eric Gagné
    3. Willie Hernández
    4. Mike Marshall
    5. Bruce Sutter
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/3/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(215) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 215" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon