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

Daily Baseball Quiz

Wednesday, June 3, 2009
Today's theme is: Baltimore Orioles

  1. Which Baltimore Oriole was in right field when Jeffrey Maier reached over the fence and caught the ball during first game of the 1996 American League Championship Series?
    1. Brady Anderson
    2. Bobby Bonilla
    3. Eric Davis
    4. Jeffrey Hammonds
    5. Tony Tarasco

  2. In what year did the Baltimore Orioles win their second American League pennant?
    1. 1966
    2. 1969
    3. 1970
    4. 1971
    5. 1979

  3. Who was the first pitcher to save 45 games in one season for the Baltimore Orioles?
    1. Tippy Martínez
    2. Randy Myers
    3. Greg Olson
    4. George Sherrill
    5. Tim Stoddard

  4. Who was the manager of the Baltimore Orioles during the 1966 season?
    1. Joe Altobelli
    2. Hank Bauer
    3. Cal Ripken, Sr.
    4. Frank Robinson
    5. Earl Weaver

  5. Which Venezuelan-born Baltimore Oriole's wife gave birth to quintuplets?
    1. Luis Aparicio
    2. Luis Hernández
    3. Ramón Hernández
    4. Jorge Julio
    5. Melvin Mora

  6. Who was the first Baltimore Oriole to strike out five times in one game?
    1. Mark Belanger
    2. Albert Belle
    3. Bobby Bonilla
    4. Mike Bordick
    5. Don Buford

  7. Who was the first Baltimore Oriole to hit a triple in Camden Yards?
    1. Brian Anderson
    2. Leo Gomez
    3. Joe Orsulak
    4. Billy Ripken
    5. Cal Ripken

  8. What number did Cal Ripken wear while playing for the Orioles?
    1. 3
    2. 7
    3. 8
    4. 18
    5. 28

  9. Who was the last Oriole to bat at Baltimore's Memorial Stadium?
    1. Mike Devereaux
    2. Leo Gomez
    3. Joe Orsulak
    4. Billy Ripken
    5. Cal Ripken
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#6/3/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(154) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 154" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon