Daily Baseball Quiz

Monday, August 24, 2009
Today's theme is: Those With 240 Career Home Runs In Their First Eight Seasons

1. Who was the first player with 1000 RBI and 240 career home runs in his first eight seasons in the major leagues?
   1. Joe DiMaggio
   2. Ralph Kiner
   3. Eddie Mathews
   4. Albert Pujols
   5. Ted Williams

2. Who was the first player to strike out 1200 times and hit 240 career home runs in his first eight seasons in the major leagues?
   1. Adam Dunn
   2. Mickey Mantle
   3. Eddie Mathews
   4. Alex Rodríguez
   5. Darryl Strawberry

3. Who was the first player to hit 35 or more doubles in ten consecutive seasons?
   1. Albert Belle
   2. Rocky Colavito
   3. Todd Helton
   4. Roger Maris
   5. Mike Piazza

4. Who was the first rookie in the National League to hit 12 home runs in August?
   1. Henry Aaron
   2. Adam Dunn
   3. Eddie Mathews
   4. Albert Pujols
   5. Frank Robinson

5. Who won the National Leauge Rookie of the Year Award in 1951?
   1. Ernie Banks
   2. Ralph Kiner
   3. Eddie Mathews
   4. Willie Mays
   5. Frank Robinson

6. Who was the first player to receive 1000 walks and hit 240 career home runs in his first eight seasons in the major leagues?
   1. Adam Dunn
   2. Mickey Mantle
   3. Albert Pujols
   4. Frank Thomas
   5. Ted Williams

7. Who was the first player to score 1000 runs and hit 240 career home runs in his first eight seasons in the major leagues?
   1. Joe DiMaggio
   2. Mickey Mantle
   3. Albert Pujols
   4. Frank Robinson
   5. Ted Williams

8. Who underwent surgery for colon cancer in October 1998 and a second round of surgery for cancer in 2000?
   1. Ernie Banks
   2. Joe DiMaggio
   3. Mickey Mantle
   4. Darryl Strawberry
   5. Frank Thomas

9. Who lead the National League in home runs in 1959?
   1. Henry Aaron
   2. Ernie Banks
   3. Eddie Mathews
   4. Willie Mays
   5. Frank Robinson

---

<% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/24/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(236) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 236" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

---

© 2009 John Michael Pierobon