Daily Baseball Quiz

Sunday, October 4, 2009
Today's theme is: Players Who Hit Four Home Runs In One Game

1. Who was the first player to hit four home runs in one game?
   1. Ed Delahanty
   2. Lou Gehrig
   3. Chuck Klein
   4. Bobby Lowe
   5. Pat Seerey

2. Who was the first player to hit an inside the park home run in the game he hit four home runs?
   1. Mike Cameron
   2. Ed Delahanty
   3. Lou Gehrig
   4. Chuck Klein
   5. Bobby Lowe

3. Who hit the 300th home run of his career in the game he hit four home runs?
   1. Carlos Delgado
   2. Lou Gehrig
   3. Chuck Klein
   4. Willie Mays
   5. Mike Schmidt

4. Who was the first player to hit four solo home runs in one game?
   1. Joe Adcock
   2. Mike Cameron
   3. Rocky Colavito
   4. Gil Hodges
   5. Bob Horner

5. Who was the first player to hit four home runs in one game in which his team lost?
   1. Mike Cameron
   2. Ed Delahanty
   3. Gil Hodges
   4. Bob Horner
   5. Bobby Lowe

6. Who was the first player to go six for six in the game he hit four home runs?
   1. Mike Cameron
   2. Rocky Colavito
   3. Lou Gehrig
   4. Shawn Green
   5. Mike Schmidt

7. Who was the first player to hit four home runs in one game in Canada?
   1. Mike Cameron
   2. Carlos Delgado
   3. Shawn Green
   4. Bob Horner
   5. Mark Whiten

8. Who was the first player to hit four home runs in one game while playing for the Philadelphia Phillies?
   1. Ed Delahanty
   2. Bobby Lowe
   3. Chuck Klein
   4. Mike Schmidt
   5. Mark Whiten

9. Who was the first player to hit four home runs in consecutive at bats?
   1. Mike Cameron
   2. Rocky Colavito
   3. Lou Gehrig
   4. Bobby Lowe
   5. Mike Schmidt

---

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

---

© 2009 John Michael Pierobon