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

Daily Baseball Quiz

Sunday, October 11, 2009
Today's theme is: World Series Ejections

  1. Who holds the major league record for most times ejected from a game?
    1. Bobby Cox
    2. Whitey Herzog
    3. Billy Martin
    4. Joe Medwick
    5. Earl Weaver

  2. Who was the first person ejected from two World Series games?
    1. Ralph Branca
    2. Bobby Cox
    3. Billy Martin
    4. Joe Medwick
    5. Earl Weaver

  3. Who holds the American League record for most times ejected from a game?
    1. Bill Donovan
    2. Heinie Manush
    3. Billy Martin
    4. Ray Schalk
    5. Earl Weaver

  4. Which pitcher was born in Northampton, England?
    1. Joaquín Andújar
    2. Ralph Branca
    3. Clay Carroll
    4. Danny Cox
    5. Bill Donovan

  5. Who was the first to manage the Braves and the Chicago Cubs?
    1. Frank Chance
    2. Bobby Cox
    3. Charlie Dressen
    4. Charlie Grimm
    5. Ray Schalk

  6. Which manager passed the Maryland bar and started a legal practice in Baltimore?
    1. Frank Chance
    2. Bill Donovan
    3. Charlie Grimm
    4. Hughie Jennings
    5. Ray Schalk

  7. Who was the first Chicago Cub to pinch hit in an All-Star game?
    1. Frank Chance
    2. Woody English
    3. Charlie Grimm
    4. Tom Needham
    5. Chuck Stainback

  8. Who had the nickname "Bluejacket"?
    1. Del Baker
    2. Woody English
    3. Tom Needham
    4. Tuck Stainback
    5. Jimmy Smith

  9. Who was removed by Commissioner Landis from a World Series game "for his own safety"?
    1. Del Baker
    2. Woody English
    3. Heinie Manush
    4. Joe Medwick
    5. Chuck Stainback
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/11/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(284) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 284" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon