<% ' If date is in the future redirect to default if DateDiff("d",CDate(#8/2/2009#),date()) < 0 then response.redirect("default.asp") end if %> Hall Of Fame Second Basemen

Daily Baseball Quiz

Sunday, August 2, 2009
Today's theme is: Hall Of Fame Second Basemen

  1. Who was the first second baseman to win the National League Most Valuable Player award?
    1. Rod Carew
    2. Frankie Frisch
    3. Joe Morgan
    4. Jackie Robinson
    5. Ryne Sandberg

  2. Who was the first American League player to twice steal six bases in one game?
    1. Rod Carew
    2. Eddie Collins
    3. Napoleon Lajoie
    4. Tony Lazzeri
    5. Joe Morgan

  3. Who is the career leader in assists by a second baseman with 7630 assists?
    1. Eddie Collins
    2. Nellie Fox
    3. Frankie Frisch
    4. Bill Mazeroski
    5. Joe Morgan

  4. Who, in 1949, set what was then a record for grounding into double plays in one season?
    1. Bobby Doerr
    2. Nellie Fox
    3. Joe Gordon
    4. Jackie Robinson
    5. Red Schoendienst

  5. Who was the first second baseman to have more than 500 putouts in one season?
    1. Bobby Doerr
    2. Joe Gordon
    3. Billy Herman
    4. Bid McPhee
    5. Joe Morgan

  6. For how many consecutive seasons did Nellie Fox lead the American League in putouts by a second baseman?
    1. 5
    2. 7
    3. 8
    4. 9
    5. 10

  7. Who was the first person to manage the Chicago Cubs and the Chicago White Sox?
    1. Eddie Collins
    2. Johnny Evers
    3. Billy Herman
    4. Rogers Hornsby
    5. Red Schoendienst

  8. Who was the first player to have 15 RBI in consecutive games?
    1. Charlie Gehringer
    2. Rogers Hornsby
    3. Napoleon Lajoie
    4. Tony Lazzeri
    5. Bill Mazeroski

  9. Who was known as "The Mechanical Man"?
    1. Bobby Doerr
    2. Frankie Frisch
    3. Charlie Gehringer
    4. Joe Gordon
    5. Billy Herman
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/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(214) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 214" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon