<% ' If date is in the future redirect to default if DateDiff("d",CDate(#2/9/2009#),date()) < 0 then response.redirect("default.asp") end if %> Street Addresses Of Major League Baseball Venues

Daily Baseball Quiz

Monday, February 9, 2009
Today's theme is: Street Addresses Of Major League Baseball Venues

  1. Which ballpark is has a street address of 501 Crawford Street?
    1. Citi Field
    2. Great American Ball Park
    3. Minute Maid Park
    4. Tropicana Field
    5. Wrigley Field

  2. Which ballpark is has a street address of One Brewers Way?
    1. Busch Stadium
    2. Coors Field
    3. Fenway Park
    4. Great American Ball Park
    5. Miller Park

  3. Which domed stadium has a street address of 8400 Kirby Drive?
    1. Astrodome
    2. Kingdome
    3. Metrodome
    4. Rogers Centre
    5. Tropicana Field

  4. Which team plays their home games at 115 Federal Street?
    1. Baltimore Orioles
    2. Boston Red Sox
    3. Detroit Tigers
    4. Pittsburgh Pirates
    5. San Diego Padres

  5. Which team plays their home games at 2000 Gene Autry Way?
    1. Los Angeles Angels of Anaheim
    2. Milwaukee Brewers
    3. San Diego Padres
    4. San Francisco Giants
    5. Texas Rangers

  6. Which ballpark is has a street address of 333 West Camden Street?
    1. Fenway Park
    2. Great American Ball Park
    3. Oriole Park at Camden Yards
    4. PNC Park
    5. Wrigley Field

  7. Which ballpark is has a street address of 755 Hank Aaron Drive?
    1. City Field
    2. Great American Ball Park
    3. Miller Park
    4. Turner Field
    5. Wrigley Field

  8. Which team plays their home games at 333 W. 35th Street?
    1. Chicago Cubs
    2. Chicago White Sox
    3. Colorado Rockies
    4. Detroit Tigers
    5. Seattle Mariners

  9. Which team plays their home games at 1000 Ballpark Way?
    1. Boston Red Sox
    2. Cincinnati Reds
    3. Kansas City Royals
    4. San Diego Padres
    5. Texas Rangers
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#2/9/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(40) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 40" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon