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

Daily Baseball Quiz

Saturday, September 12, 2009
Today's theme is: Announcers

  1. Who was the television voice of the Cincinnati Reds between 1976 and 1982?
    1. Bill Brown
    2. Skip Carey
    3. Milo Hamilton
    4. Jay Randolph
    5. Gary Thorne

  2. Which long time announcer, and former American League player, is on the September 2, 1968 cover of Sports Illustrated?
    1. Tony Kubek
    2. Jim Palmer
    3. Ken Harrelson
    4. Jerry Remy
    5. Phil Rizzuto

  3. In what country was announcer Joe Angel born?
    1. Colombia
    2. Cuba
    3. Mexico
    4. Panama
    5. Venezuela

  4. Which announcer, and former catcher, played George Owens in the television show "Mr. Belvedere"?
    1. Bob Brenly
    2. Buck Martínez
    3. Tim McCarver
    4. Jim Price
    5. Bob Uecker

  5. Which announcer, and former pitcher, made his major league debut before his 16th birthday?
    1. Ron Darling
    2. Jim Deshaies
    3. Joe Nuxhall
    4. Jim Palmer
    5. Bob Walk

  6. Which announcer would say "the attendance for tonight's titanic struggle was..."?
    1. Jeff Brantley
    2. Marty Brennaman
    3. Thom Brennaman
    4. Joe Nuxhall
    5. Phil Rizzuto

  7. For which team did Jack Buck announce games for more than two decades?
    1. Atlanta Braves
    2. Houston Astros
    3. Chicago Cubs
    4. Pittsburgh Pirates
    5. Saint Louis Cardinals

  8. For which team does Rick Manning provide color commentary on television?
    1. Baltimore Orioles
    2. Cincinnati Reds
    3. Cleveland Indians
    4. Milwaukee Brewers
    5. Saint Louis Cardinals

  9. Who became the 1000th player for the New York Yankees in his major leauge debut?
    1. Mike Blowers
    2. Jim Deshaies
    3. John Flaherty
    4. Tony Kubek
    5. Phil Rizzuto
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#9/12/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(255) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 255" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon