<% ' If date is in the future redirect to default if DateDiff("d",CDate(#10/8/2009#),date()) < 0 then response.redirect("default.asp") end if %> World Series Records

Daily Baseball Quiz

Thursday, October 8, 2009
Today's theme is: World Series Records

  1. Who was the first player to pitch a perfect game in a World Series?
    1. Josh Beckett
    2. Randy Johnson
    3. Don Larsen
    4. Jim Lonborg
    5. Jack Morris

  2. Who was the first pitcher to pitch in 22 World Series games?
    1. Rollie Fingers
    2. Whitey Ford
    3. Jeff Nelson
    4. Mariano Rivera
    5. Mike Stanton

  3. Who was the first pitcher to pitch 33 consecutive scoreless innings in World Series games?
    1. Whitey Ford
    2. Sandy Koufax
    3. Christy Mathewson
    4. Jim Palmer
    5. Red Ruffing

  4. Who was the first player to hit four doubles in one World Series game?
    1. Yogi Berra
    2. Barry Bonds
    3. Pete Fox
    4. Frank Isbell
    5. Tommy Leach

  5. Who was the first player to hit five singles in one World Series game?
    1. Willie Aikens
    2. Billy Hatcher
    3. Paul Molitor
    4. Sam Rice
    5. Thurman Munson

  6. Who was the first player to have six RBI in one World Series game?
    1. Willie Aikens
    2. Billy Hatcher
    3. Reggie Jackson
    4. Bobby Richardson
    5. Duke Snider

  7. Who was the first pitcher to win ten World Series games?
    1. Whitey Ford
    2. Sandy Koufax
    3. Christy Mathewson
    4. Jim Palmer
    5. Red Ruffing

  8. Who was the first pitcher to pitch ten complete World Series games?
    1. Whitey Ford
    2. Tom Glavine
    3. Christy Mathewson
    4. Allie Reynolds
    5. Red Ruffing

  9. Who was the first pitcher to save nine World Series games?
    1. Rollie Fingers
    2. Johnny Murphy
    3. Rob Nen
    4. Allie Reynolds
    5. Mariano Rivera
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/8/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(281) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 281" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon