<% ' If date is in the future redirect to default if DateDiff("d",CDate(#9/26/2009#),date()) < 0 then response.redirect("default.asp") end if %> Wild Card Teams

Daily Baseball Quiz

Saturday, September 26, 2009
Today's theme is: Wild Card Teams

  1. Which was the first wild card team to win the World Series?
    1. Anaheim Angels
    2. Boston Red Sox
    3. Colorado Rockies
    4. Florida Marlins
    5. New York Yankees

  2. Which was the second wild card team to win the World Series?
    1. Anaheim Angels
    2. Boston Red Sox
    3. Colorado Rockies
    4. Florida Marlins
    5. New York Yankees

  3. Which was the first team to win the wild card three years in a row?
    1. Boston Red Sox
    2. Houston Astros
    3. Los Angeles Dodgers
    4. New York Mets
    5. Saint Louis Cardinals

  4. Which team, in 1996, became the first wild card team not to win a single playoff game?
    1. Boston Red Sox
    2. Chicago Cubs
    3. Houston Astros
    4. Los Angeles Dodgers
    5. Milwaukee Brewers

  5. Which was the first wild card team to win 100 games in a season?
    1. Anaheim Angels
    2. Boston Red Sox
    3. New York Mets
    4. New York Yankees
    5. Oakland Athletics

  6. Which was the first team to win the wild card six times?
    1. Boston Red Sox
    2. Chicago Cubs
    3. Houston Astros
    4. Los Angeles Dodgers
    5. New York Yankees

  7. Which team won the National League wild card in 2007?
    1. Chicago Cubs
    2. Colorado Rockies
    3. Los Angeles Dodgers
    4. Milwaukee Brewers
    5. New York Mets

  8. What was the first year both wild card teams played in the World Series?
    1. 1995
    2. 1997
    3. 2002
    4. 2003
    5. 2004

  9. Which team won the American League wild card in 1999?
    1. Baltimore Orioles
    2. Boston Red Sox
    3. New York Yankees
    4. Oakland Athletics
    5. Seattle Mariners
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#9/26/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(269) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 269" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon