Daily Baseball Quiz

Friday, May 8, 2009
Today's theme is: Players With Eight Or More Consecutive Seasons Hitting 30 Home Runs

1. Who was the first player to have eight or more consecutive seasons with 30 or more home runs?
   1. Jimmie Foxx
   2. Lou Gehrig
   3. Eddie Mathews
   4. Babe Ruth
   5. Mike Schmidt

2. Who was the first player to hit 200 home runs for two different teams?
   1. Carlos Delgado
   2. Jimmie Foxx
   3. Rafael Palmeiro
   4. Manny Ramírez
   5. Alex Rodríguez

3. Who was the first player to have 3000 hits and have eight consecutive seasons of 30 or more home runs?
   1. Barry Bonds
   2. Jimmie Foxx
   3. Rafael Palmeiro
   4. Alex Rodríguez
   5. Babe Ruth

4. Who was the first National League player to hit 40 home runs and steal 40 bases in the same season?
   1. Jeff Bagwell
   2. Barry Bonds
   3. Eddie Mathews
   4. Mike Schmidt
   5. Sammy Sosa

5. Who was the first player to have 13 consecutive seasons of 30 or more home runs?
   1. Barry Bonds
   2. Carlos Delgado
   3. Jimmie Foxx
   4. Alex Rodríguez
   5. Sammy Sosa

6. Who won the 2006 Roberto Clemente award?
   1. Carlos Delgado
   2. Mike Piazza
   3. Albert Pujols
   4. Alex Rodríguez
   5. Jim Thome

7. Who was the first player to have hit 30 home runs before the All-Star break and have eight consecutive seasons of 30 or more home runs?
   1. Barry Bonds
   2. Alex Rodríguez
   3. Mike Schmidt
   4. Sammy Sosa
   5. Jim Thome

8. Who was the first player to draw a walk in 18 consecutive games?
   1. Barry Bonds
   2. Carlos Delgado
   3. Lou Gehrig
   4. Babe Ruth
   5. Sammy Sosa

9. Who was the first player to have nine consecutive seasons with 30 or more home runs while playing for only one team?
   1. Barry Bonds
   2. Lou Gehrig
   3. Eddie Mathews
   4. Mike Schmidt
   5. Sammy Sosa

---

<% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/8/2009#) ' Compare dates comparison = DateDiff("d",expdate,currentDate) ' If date is in the past display the link if comparison > 0 then %> <% 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(128) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 128" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

---

© 2008 - 2009 John Michael Pierobon