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

Daily Baseball Quiz

Thursday, June 4, 2009
Today's theme is: Boston Red Sox

  1. Which was the first team to shut out the Boston Red Sox in Fenway Park?
    1. Chicago White Sox
    2. Detroit Tigers
    3. New York Yankees
    4. Philadelphia Athletics
    5. Washington Senators

  2. Who was the second Boston Red Sox to win the Rookie of the Year Award?
    1. Carlton Fisk
    2. Nomar Garciaparra
    3. Fred Lynn
    4. Dustin Pedroia
    5. Don Schwall

  3. Which former Boston Red Sox played in the 1969 Little League World Series?
    1. Wade Boggs
    2. Carney Lansford
    3. Mike Greenwell
    4. Fred Lynn
    5. Jim Rice

  4. Who was the first Boston Red Sox to hit four grand slams in one season?
    1. Dom DiMaggio
    2. David Ortiz
    3. Manny Ramírez
    4. Babe Ruth
    5. Ted Williams

  5. How many World Series did the Boston Red Sox win in the 20th century?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

  6. Who was the first Boston Red Sox to hit six home runs off of one pitcher in a season?
    1. Jimmie Foxx
    2. Jim Rice
    3. Babe Ruth
    4. Ted Williams
    5. Carl Yaztrzemski

  7. Which team did the Boston Red Sox defeat to win the 1975 American League playoffs?
    1. California Angels
    2. Kansas City Royals
    3. Oakland Athletics
    4. Minnesota Twins
    5. Texas Rangers

  8. Which Boston Red Sox was the first to ground into a double play more than 30 times in a season?
    1. Dom DiMaggio
    2. Bobby Doerr
    3. Jackie Jensen
    4. David Ortiz
    5. Johnny Pesky

  9. Who was the first Boston Red Sox to win a Gold Glove Award?
    1. Jackie Jensen
    2. Frank Malzone
    3. Jimmy Piersall
    4. George Scott
    5. Carl Yastrzemski
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#6/4/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(155) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 155" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon