<% ' If date is in the future redirect to default if DateDiff("d",CDate(#8/10/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players With Ten Or More Seasons With 100 RBI

Daily Baseball Quiz

Monday, August 10, 2009
Today's theme is: Players With Ten Or More Seasons With 100 RBI

  1. Who was the first player to have 13 consecutive season with 100 RBI?
    1. Barry Bonds
    2. Jimmie Foxx
    3. Lou Gehrig
    4. Babe Ruth
    5. Al Simmons

  2. Who was the first player to play in 24 All-Star Games?
    1. Henry Aaron
    2. Goose Goslin
    3. Willie Mays
    4. Stan Musial
    5. Babe Ruth

  3. Who was the first player to have 100 RBI for three different teams in three consecutive seasons?
    1. Joe Carter
    2. Goose Goslin
    3. Rafael Palmeiro
    4. Manny Ramírez
    5. Al Simmons

  4. Who lead the American League in RBI in 1934?
    1. Jimmie Foxx
    2. Lou Gehrig
    3. Goose Goslin
    4. Babe Ruth
    5. Al Simmons

  5. Who was the first player to have at least 500 home runs, 1,500 RBI, 1,000 runs, 1,500 walks and a career batting average above .300?
    1. Henry Aaron
    2. Barry Bonds
    3. Willie Mays
    4. Babe Ruth
    5. Frank Thomas

  6. Who lead the American League in runs scored in 1996?
    1. Joe Carter
    2. Rafael Palmeiro
    3. Manny Ramírez
    4. Alex Rodríguez
    5. Frank Thomas

  7. How many consecutive seasons with 150 or more hits did Henry Aaron have?
    1. 10
    2. 11
    3. 12
    4. 13
    5. 17

  8. Who broke Jimmie Foxx's record of twelve consecutive seasons with 30 or more home runs?
    1. Henry Aaron
    2. Barry Bonds
    3. Rafael Palmeiro
    4. Manny Ramírez
    5. Alex Rodríguez

  9. How many times did Rafael Palmeiro lead the league in home runs or in RBI?
    1. 0
    2. 1
    3. 2
    4. 3
    5. 4
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/10/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(222) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 222" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon