<% ' If date is in the future redirect to default if DateDiff("d",CDate(#9/24/2009#),date()) < 0 then response.redirect("default.asp") end if %> American League Back-To-Back RBI Champions

Daily Baseball Quiz

Thursday, September 24, 2009
Today's theme is: American League Back-To-Back RBI Champions

  1. Who was the first to lead the American League in RBI in consecutive years?
    1. Frank Baker
    2. Ty Cobb
    3. Sam Crawford
    4. Harry Davis
    5. Buck Freeman

  2. Who, in 1925, was the last player to pinch hit for Babe Ruth?
    1. Jimmie Foxx
    2. Lou Gehrig
    3. Al Rosen
    4. Vern Stephens
    5. Bobby Veach

  3. Who was the first to lead the American League in RBI three years in a row?
    1. Ty Cobb
    2. Sam Crawford
    3. Cecil Fielder
    4. Lou Gehrig
    5. Babe Ruth

  4. Who was a long time investor and spokesman for the Coca-Cola Company?
    1. Frank Baker
    2. Ty Cobb
    3. Sam Crawford
    4. Lou Gehrig
    5. Babe Ruth

  5. Who was the first player to lead the National League in home runs and later lead the American League in home runs?
    1. Harry Davis
    2. Jimmie Foxx
    3. Buck Freeman
    4. Roger Maris
    5. Babe Ruth

  6. Who was the first player in the American League to hit for the cycle?
    1. Frank Baker
    2. Ty Cobb
    3. Sam Crawford
    4. Harry Davis
    5. Buck Freeman

  7. Who married Zoe Ann Olsen, a diver who won two Olympic medals?
    1. Jackie Jensen
    2. Roger Maris
    3. David Ortiz
    4. Vern Stephens
    5. Bobby Veach

  8. Who was the first player to play in the Rose Bowl and in the World Series?
    1. Cecil Fielder
    2. Lou Gehrig
    3. Jackie Jensen
    4. Al Rosen
    5. Vern Stephens

  9. Who was the first to lead the American League in RBI in consecutive years, both years with less than 100 RBI?
    1. Ty Cobb
    2. Sam Crawford
    3. Harry Davis
    4. Jackie Jensen
    5. Bobby Veach
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#9/24/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(267) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 267" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon