<% ' If date is in the future redirect to default if DateDiff("d",CDate(#10/18/2009#),date()) < 0 then response.redirect("default.asp") end if %> All-Star Pitchers

Daily Baseball Quiz

Sunday, October 18, 2009
Today's theme is: All-Star Pitchers

  1. Who the first member of the 3000 strikeout club with less than 1000 career walks?
    1. Steve Carlton
    2. Bob Gibson
    3. Ferguson Jenkins
    4. Curt Schilling
    5. John Smoltz

  2. Who was the first pitcher to win back-to-back Most Valuable Player awards?
    1. Roger Clemens
    2. Mort Cooper
    3. Lefty Grove
    4. Hal Newhouser
    5. Bucky Walters

  3. Which All-Star pitcher lead the major league in saves in 2003?
    1. Eric Gagné
    2. Robb Nen
    3. Mariano Rivera
    4. John Smoltz
    5. Ugueth Urbina

  4. Who was the last San Francisco Giant pitcher in the 20th century to not allow a run while pitching in an All-Star game?
    1. Rod Beck
    2. John Burkett
    3. Shawn Estes
    4. Mike Krukow
    5. Robb Nen

  5. Who was the last pitcher in the 20th century to save back-to-back All-Star games?
    1. Dennis Eckersley
    2. Sid Fernández
    3. Keith Foulke
    4. Mariano Rivera
    5. John Wetteland

  6. Who was the first pitcher to win two All-Star games?
    1. Dizzy Dean
    2. Lefty Gómez
    3. Lefty Grove
    4. Mel Harder
    5. Johnny Vander Meer

  7. In what year did both brothers Jim Perry and Gaylord Perry appear in the All-Star game?
    1. 1966
    2. 1970
    3. 1972
    4. 1974
    5. 1978

  8. Who was the first pitcher to lose back-to-back All-Star games?
    1. Jim Bunning
    2. Mort Cooper
    3. Dennis Eckersley
    4. Whitey Ford
    5. Claude Passeau

  9. Who was the first pitcher to lead the league in ERA nine times?
    1. Roger Clemens
    2. Lefty Grove
    3. Randy Johnson
    4. Sandy Koufax
    5. Pedro Martínez
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/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(291) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 291" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon