<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/2/2009#),date()) < 0 then response.redirect("default.asp") end if %> Managers Who Won Two World Series

Daily Baseball Quiz

Wednesday, December 2, 2009
Today's theme is: Managers Who Won Two World Series

  1. Which manager won the most number of pennants?
    1. Walter Alston
    2. Connie Mack
    3. Joe McCarthy
    4. John McGraw
    5. Casey Stengel

  2. Who was the first manager to win two World Series in a row?
    1. Sparky Anderson
    2. Frank Chance
    3. Cito Gaston
    4. Connie Mack
    5. John McGraw

  3. Who signed 23 one-year contracts to manage?
    1. Walter Alston
    2. Bucky Harris
    3. John McNamara
    4. Casey Stengel
    5. Dick Williams

  4. Who was the first National League manager to win four consecutive pennants?
    1. Sparky Anderson
    2. Walter Alston
    3. Tommy Lasorda
    4. John McGraw
    5. Bill McKechnie

  5. Whose record from most ejections did Bobby Cox break?
    1. Ralph Houk
    2. Miller Huggins
    3. Connie Mack
    4. John McGraw
    5. Casey Stengel

  6. Who was the first manager to win a World Series for both a National League team and an American League team?
    1. Sparky Anderson
    2. Tony LaRussa
    3. Billy Southworth
    4. Joe Torre
    5. Dick Williams

  7. Who was the first manager to win seven World Series?
    1. Walter Alston
    2. Connie Mack
    3. Joe McCarthy
    4. Casey Stengel
    5. Joe Torre

  8. Who was the first Golden Spikes winner to win two World Series as a manager?
    1. Terry Francona
    2. Cito Gaston
    3. Tom Kelly
    4. Danny Murtaugh
    5. Joe Torre

  9. Which manager lost the most number of games in his career?
    1. Bucky Harris
    2. Tony LaRussa
    3. Connie Mack
    4. John McGraw
    5. Joe Torre
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/2/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(336) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 336" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon