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

Daily Baseball Quiz

Wednesday, August 26, 2009
Today's theme is: Announcers

  1. Who was the public address announcer for the New York Yankees for more than fifty years?
    1. Marv Albert
    2. Mel Allen
    3. Bobby Mercer
    4. Phil Rizzuto
    5. Bob Sheppard

  2. For how many years did Ernie Harwell broadcast games of the Detroit Tigers?
    1. 20
    2. 25
    3. 30
    4. 42
    5. 55

  3. Which announcer would say "he gone" and "put it on the board"?
    1. Ken Harrelson
    2. Michael Kay
    3. Mike Krukow
    4. Jon Miller
    5. Phil Rizzuto

  4. Who was the public address announcer for the Minnesota Twins for 44 years?
    1. Bert Blyleven
    2. Herb Carneal
    3. Bob Casey
    4. John Gordon
    5. Bob Kurtz

  5. Who is the nephew of Danny Aiello?
    1. Greg Brown
    2. Len Kasper
    3. Michael Kay
    4. Ryan Lefebvre
    5. Matt Vasgersian

  6. Which announcer would say "my, oh my"?
    1. Len Kasper
    2. Michael Kay
    3. Denny Matthews
    4. Dave Niehaus
    5. Phil Rizzuto

  7. For which team did Tom Cheek announce games on the radio for more than two decades?
    1. Kansas City Royals
    2. San Diego Padres
    3. Seattle Mariners
    4. Texas Rangers
    5. Toronto Blue Jays

  8. For which team did Joe Magrane provide color commentary on television?
    1. Detroit Tigers
    2. Los Angeles Angels of Anaheim
    3. Milwaukee Brewers
    4. Saint Louis Cardinals
    5. Tampa Bay Rays

  9. Which broadcaster hit the last home run in Three Rivers Stadium on October 1, 2000?
    1. Mike Blowers
    2. Tony Gwynn
    3. Darrin Jackson
    4. Gary Matthews
    5. John Wehner
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/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(238) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 238" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon