<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/23/2009#),date()) < 0 then response.redirect("default.asp") end if %> Old Baseball Venues

Daily Baseball Quiz

Wednesday, December 23, 2009
Today's theme is: Old Baseball Venues

  1. Which team played its home games in Crosley Park?
    1. Baltimore Orioles
    2. Chicago Cubs
    3. Cincinnati Reds
    4. Philadelphia Athletics
    5. San Francisco Giants

  2. Which team played its home games in Exhibition Stadium?
    1. Baltimore Orioles
    2. Kansas City Athletics
    3. Seattle Mariners
    4. Texas Rangers
    5. Toronto Blue Jays

  3. Which team played its home games in Jarry Park?
    1. Baltimore Orioles
    2. Kansas City Athletics
    3. Montreal Expos
    4. San Diego Padres
    5. Seattle Mariners

  4. Which team played its home games at Sick's Stadium?
    1. Baltimore Orioles
    2. Boston Braves
    3. Milwaukee Braves
    4. Philadelphia Athletics
    5. Seattle Pilots

  5. In what city was Veterans Stadium located?
    1. Boston
    2. Chicago
    3. Detroit
    4. Philadelphia
    5. Pittsburgh

  6. Which team played its home games at West Side Park?
    1. Baltimore Orioles
    2. Boston Braves
    3. Chicago Cubs
    4. Milwaukee Braves
    5. New York Giants

  7. In what city was League Park, also known as Dunn Field, located?
    1. Boston
    2. Chicago
    3. Cleveland
    4. Detroit
    5. Philadelphia

  8. In what city was Riverfront Stadium located?
    1. Boston
    2. Cincinnati
    3. Philadelphia
    4. Pittsburgh
    5. Saint Louis

  9. Which team played its home games at Columbia Park?
    1. Baltimore Orioles
    2. Boston Braves
    3. New York Giants
    4. Philadelphia Athletics
    5. Washington Senators
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/23/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(357) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 357" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon