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

Daily Baseball Quiz

Friday, June 26, 2009
Today's theme is: Seattle Mariners

  1. Who, during the 1995 American League Division Series, broke his ankle crashing into the outfield wall at the Kingdome?
    1. Darren Bragg
    2. Jay Buhner
    3. Joey Cora
    4. Ken Griffey, Jr.
    5. Mariner Moose

  2. Who was the first Seattle Mariner to win back-to-back Gold Glove awards?
    1. Adrián Beltré
    2. Jay Buhner
    3. Ken Griffey, Jr.
    4. Harold Reynolds
    5. Ichiro Suzuki

  3. Who was the first Seattle Mariner to hit 45 home runs in one season?
    1. Jay Buhner
    2. Alvin Davis
    3. Ken Griffey, Jr.
    4. Edgar Martínez
    5. Alex Rodríguez

  4. Who was the first Seattle Mariner to have three consecutive seasons of 40 or more home runs and 100 or more RBI?
    1. Jay Buhner
    2. Alvin Davis
    3. Ken Griffey, Jr.
    4. Edgar Martínez
    5. Alex Rodríguez

  5. Who was the first Seattle Mariner to hit for the cycle?
    1. Adrián Beltré
    2. Mike Blowers
    3. Jay Buhner
    4. John Olerud
    5. Alex Rodríguez

  6. Who was the first Seattle Mariner to have six hits in one game?
    1. Raúl Ibáñez
    2. Edgar Martínez
    3. Tino Martínez
    4. John Olerud
    5. Ichiro Suzuki

  7. What was the first year the Seattle Mariners hosted the All-Star Game?
    1. 1977
    2. 1979
    3. 1995
    4. 1999
    5. 2001

  8. In what year did Randy Johnson throw the first no hitter for the Seattle Mariners?
    1. 1990
    2. 1991
    3. 1992
    4. 1993
    5. 1994

  9. Who is the only player to have played for both the Seattle Pilots and the Seattle Mariners?
    1. Juan Bernhardt
    2. Ray Fosse
    3. Diego Segui
    4. Tommy Smith
    5. Bob Stinson
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#6/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(177) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 177" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon