<% ' If date is in the future redirect to default if DateDiff("d",CDate(#10/14/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players Who Hit Four Home Runs In One World Series

Daily Baseball Quiz

Wednesday, October 14, 2009
Today's theme is: Players Who Hit Four Home Runs In One World Series

  1. Who was the first player to lead his league in home runs and walks ten times each?
    1. Barry Bonds
    2. Lou Gehrig
    3. Reggie Jackson
    4. Babe Ruth
    5. Duke Snider

  2. Who was the first player to hit four home runs in two different World Series?
    1. Hank Bauer
    2. Lou Gehrig
    3. Reggie Jackson
    4. Babe Ruth
    5. Duke Snider

  3. Who was the first player to start 1000 games in right field for the New York Yankees?
    1. Willie Aikens
    2. Hank Bauer
    3. Lou Gehrig
    4. Reggie Jackson
    5. Babe Ruth

  4. Who had the nickname "Nails"?
    1. Willie Aikens
    2. Hank Bauer
    3. Barry Bonds
    4. Lenny Dykstra
    5. Gene Tenace

  5. Who was the first player to hit five home runs in one World Series?
    1. Barry Bonds
    2. Lou Gehrig
    3. Reggie Jackson
    4. Babe Ruth
    5. Duke Snider

  6. Which outfielder bought Wayne Gretzky's house in California in 2007?
    1. Willie Aikens
    2. Barry Bonds
    3. Lenny Dykstra
    4. Reggie Jackson
    5. Duke Snider

  7. Who was the first player to hit in 17 consecutive World Series games?
    1. Hank Bauer
    2. Lou Gehrig
    3. Reggie Jackson
    4. Babe Ruth
    5. Gene Tenace

  8. Who was the first player to receive 1500 career bases on balls?
    1. Barry Bonds
    2. Lou Gehrig
    3. Reggie Jackson
    4. Babe Ruth
    5. Duke Snider

  9. Who is the only player to strike out against César Tovar?
    1. Willie Aikens
    2. Hank Bauer
    3. Lenny Dykstra
    4. Reggie Jackson
    5. Gene Tenace
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/14/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(287) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 287" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon