<% ' If date is in the future redirect to default if DateDiff("d",CDate(#8/14/2009#),date()) < 0 then response.redirect("default.asp") end if %> Boston Red Sox Batting Champions

Daily Baseball Quiz

Friday, August 14, 2009
Today's theme is: Boston Red Sox Batting Champions

  1. What was the first Boston Red Sox to win a batting championship?
    1. Dale Alexander
    2. Jimmie Foxx
    3. Billy Goodman
    4. Pete Runnels
    5. Ted Williams

  2. Who is the first Boston Red Sox to win back-to-back batting titles?
    1. Wade Boggs
    2. Jimmie Foxx
    3. Nomar Garciaparra
    4. Ted Williams
    5. Carl Yaztrzemski

  3. Who, playing in Fenway Park, was the first player to hit three home runs in a span of two innings?
    1. Nomar Garciaparra
    2. Bill Mueller
    3. Manny Ramírez
    4. Ted Williams
    5. Carl Yaztrzemski

  4. Who was the first American League player with 400 home runs and 3000 career hits?
    1. Wade Boggs
    2. Jimmie Foxx
    3. Manny Ramírez
    4. Ted Williams
    5. Carl Yaztrzemski

  5. Who won a batting championship with only 35 RBI?
    1. Wade Boggs
    2. Billy Goodman
    3. Carney Lansford
    4. Bill Mueller
    5. Pete Runnels

  6. Who was traded by the Detroit Tigers to the Boston Red Sox after 16 at bats the year he won the batting title?
    1. Dale Alexander
    2. Wade Boggs
    3. Jimmie Foxx
    4. Bill Mueller
    5. Pete Runnels

  7. Who was the first Boston Red Sox to have 16 total bases in one game?
    1. Nomar Garciaparra
    2. Fred Lynn
    3. Bill Mueller
    4. Manny Ramírez
    5. Ted Williams

  8. Who was the first Little League player elected to the Hall of Fame?
    1. Wade Boggs
    2. Jimmie Foxx
    3. Carney Lansford
    4. Ted Williams
    5. Carl Yaztrzemski

  9. Who has hit the most grand slams as a Boston Red Sox?
    1. Jimmie Foxx
    2. Nomar Garciaparra
    3. Manny Ramírez
    4. Ted Williams
    5. Carl Yaztrzemski
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/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(226) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 226" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon