<% ' If date is in the future redirect to default if DateDiff("d",CDate(#9/21/2009#),date()) < 0 then response.redirect("default.asp") end if %> The House That Ruth Built

Daily Baseball Quiz

Monday, September 21, 2009
Today's theme is: The House That Ruth Built

  1. For how much money was the land purchase for Yankee Stadium?
    1. US$500,000
    2. US$675,000
    3. US$1,000,000
    4. US$5,750,000
    5. US$6,750,000

  2. How many All-Star games were played at Yankee Stadium?
    1. 2
    2. 3
    3. 4
    4. 5
    5. 6

  3. In what year was the first night game played at Yankee Stadium?
    1. 1939
    2. 1940
    3. 1941
    4. 1946
    5. 1948

  4. How many perfect games were pitched in Yankee Stadium?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

  5. Who had the most hits as a visiting player in Yankee Stadium?
    1. Charlie Gehringer
    2. Goose Goslin
    3. Manny Ramírez
    4. Mickey Vernon
    5. Ted Williams

  6. Who hold the Yankee Stadium record with most RBI by a visiting player?
    1. Charlie Gehringer
    2. Goose Goslin
    3. Manny Ramírez
    4. Mickey Vernon
    5. Ted Williams

  7. Who has hit the most post season walk off home runs in Yankee Stadium?
    1. Aaron Boone
    2. Chris Chambliss
    3. Johnny Damon
    4. Tino Martínez
    5. Bernie Williams

  8. Who has hit the most home runs in Yankee Stadium?
    1. Yogi Berra
    2. Joe DiMaggio
    3. Lou Gehrig
    4. Mickey Mantle
    5. Babe Ruth

  9. On September 21, 2008, who hit the last home run in Yankee Stadium?
    1. Bobby Abreu
    2. Robinson Canó
    3. Johnny Damon
    4. Jason Giambi
    5. José Molina
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#9/21/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(264) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 264" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon