<% ' If date is in the future redirect to default if DateDiff("d",CDate(#11/26/2009#),date()) < 0 then response.redirect("default.asp") end if %> Home Runs

Daily Baseball Quiz

Thursday, November 26, 2009
Today's theme is: Home Runs

  1. Who was the first player to hit his 500th career home run as a pinch hitter?
    1. Jimmie Foxx
    2. Eddie Murray
    3. Mel Ott
    4. Rafael Palmeiro
    5. Gary Sheffield

  2. Who hit the 200th home run of his career in the game he hit three home runs?
    1. Henry Aaron
    2. José Canseco
    3. Carlos Delgado
    4. Jermaine Dye
    5. Paul Konerko

  3. Who are the first pair of teammates to each hit their 300th career home run back-to-back?
    1. Henry Aaron and Eddie Mathews
    2. Carlos Beltrán and Carlos Delgado
    3. Jay Buhner and Ken Griffey, Jr.
    4. José Canseco and Mark McGwire
    5. Jermaine Dye and Paul Konerko

  4. Who was the first player to hit 350 home runs as a second baseman?
    1. Craig Biggio
    2. Joe Gordon
    3. Jeff Kent
    4. Joe Morgan
    5. Ryne Sandburg

  5. Who was the first National League player to hit 10 career home runs as a designated hitter?
    1. Barry Bonds
    2. Ryan Howard
    3. Paul LoDuca
    4. Russell Martin
    5. Mike Piazza

  6. Who was the first player to hit 300 home runs as a shortstop?
    1. Ernie Banks
    2. Rico Petrocelli
    3. Cal Ripken, Jr.
    4. Alex Rodríguez
    5. Honus Wagner

  7. Who was the first player to hit 10 home runs in one season?
    1. Sam Crawford
    2. Buck Ewing
    3. George Hall
    4. Charley Jones
    5. Ned Williamson

  8. How many consecutive seasons did Henry Aaron have hitting 20 home runs?
    1. 13
    2. 15
    3. 16
    4. 17
    5. 20

  9. Which team, in 1997, set a record by hitting 264 home runs in one season?
    1. Atlanta Braves
    2. Baltimore Orioles
    3. New York Yankees
    4. San Francisco Giants
    5. Seattle Mariners
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/26/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(330) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 330" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon