<% ' If date is in the future redirect to default if DateDiff("d",CDate(#7/9/2009#),date()) < 0 then response.redirect("default.asp") end if %> All-Star Game Venues

Daily Baseball Quiz

Thursday, July 9, 2009
Today's theme is: All-Star Game Venues

  1. Where was the first All-Star game played?
    1. Comiskey Park
    2. Forbes Field
    3. Polo Grounds
    4. Shibe Park
    5. Yankee Stadium

  2. Where was the first All-Star game played that ended in a tie?
    1. Candlestick Park
    2. Fenway Park
    3. Miller Park
    4. Shibe Park
    5. Sportsman's Park

  3. How many All-Star games were played in Fenway Park in the 20th century?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

  4. Where was the first grand slam in All-Star history hit?
    1. Candlestick Park
    2. Comiskey Park
    3. Olympic Stadium
    4. Riverfront Stadium
    5. Wrigley Field

  5. Where was the first fifteen inning All-Star game played?
    1. Anaheim Stadium
    2. Comiskey Park
    3. Miller Park
    4. Three Rivers Stadium
    5. Yankee Stadium

  6. Where did Johnny Callison hit is his walk-off home run in the ninth inning?
    1. Anaheim Stadium
    2. Candlestick Park
    3. County Stadium
    4. Shea Stadium
    5. Wrigley Field

  7. In what city was the 2007 All-Star game played?
    1. Baltimore
    2. Boston
    3. Cincinnati
    4. Philadelphia
    5. San Francisco

  8. In which stadium was the first All-Star game ever played on a Sunday night?
    1. Cleveland Municipal Stadium
    2. Riverfront Stadium
    3. Tiger Stadium
    4. Veterans Stadium
    5. Yankee Stadium

  9. Where was the highest scoring All-Star game of the 20th century played?
    1. Comiskey Park
    2. Coors Field
    3. Jack Murphy Stadium
    4. Oriole Park at Camden Yards
    5. Tiger Stadium
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/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(190) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 190" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon