<% ' If date is in the future redirect to default if DateDiff("d",CDate(#10/13/2009#),date()) < 0 then response.redirect("default.asp") end if %> Those With 300 Home Runs & Less Than 25 Stolen Bases

Daily Baseball Quiz

Tuesday, October 13, 2009
Today's theme is: Those With 300 Home Runs & Less Than 25 Stolen Bases

  1. Which player with more than 300 career home runs has the fewest stolen bases?
    1. Jay Buhner
    2. Cecil Fielder
    3. Frank Howard
    4. Mark McGwire
    5. Richie Sexson

  2. Who was the youngest of twenty-one children?
    1. Carlos Delgado
    2. Cecil Fielder
    3. Willie Horton
    4. Ralph Kiner
    5. Willie Stargell

  3. Who hit a popup which struck and killed a pigeon in Fenway Park?
    1. Rocky Colavito
    2. Willie Horton
    3. Frank Howard
    4. Harmon Killebrew
    5. Ted Williams

  4. Who hit the most home runs in a season when he had no stolen bases?
    1. Cecil Fielder
    2. Frank Howard
    3. Mark McGwire
    4. Willie Stargell
    5. Jim Thome

  5. Who hit the most home runs in a season when he had only one stolen base?
    1. Frank Howard
    2. Harmon Killebrew
    3. Ralph Kiner
    4. Mark McGwire
    5. Jim Thome

  6. Who won the American League Comeback Player of the Year Award in 2006?
    1. Carlos Delgado
    2. Jason Giambi
    3. Mike Piazza
    4. Boog Powell
    5. Jim Thome

  7. Which player did not hit a home run over the left field roof at Tiger Stadium?
    1. Cecil Fielder
    2. Willie Horton
    3. Frank Howard
    4. Harmon Killebrew
    5. Mark McGwire

  8. How many bases did Frank Howard steal in his career?
    1. 2
    2. 6
    3. 8
    4. 12
    5. 24

  9. Who was the first player to have 18 total bases in one game?
    1. Joe Adcock
    2. Ron Cey
    3. Boog Powell
    4. Richie Sexson
    5. Roy Sievers
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/13/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(286) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 286" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon