<% ' If date is in the future redirect to default if DateDiff("d",CDate(#2/8/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players Who Have Hit A Grand Slam On Opening Day

Daily Baseball Quiz

Sunday, February 8, 2009
Today's theme is: Players Who Have Hit A Grand Slam On Opening Day

  1. Who was the first Oakland Athletic to hit a grand slam on opening day?
    1. Eric Fox
    2. John Jaha
    3. Eric Karros
    4. Mark McGwire
    5. Terry Steinbach

  2. Who is the first player to hit a grand slam on Opening Day twice?
    1. Tony Batista
    2. Sixto Lezcano
    3. Eddie Murray
    4. Mark McGwire
    5. Alex Rodríguez

  3. Who won the American League Comeback Player of the Year award in 1999?
    1. Jack Clark
    2. Brian Downing
    3. Jim Edmonds
    4. John Jaha
    5. Eric Karros

  4. Who received an intentional walk with the bases loaded?
    1. Jack Clark
    2. Fred McGriff
    3. Mark McGwire
    4. Bill Nicholson
    5. Bill Terry

  5. Who is the first player to hit a grand slam on opening day?
    1. Russ Derry
    2. Bug Holiday
    3. Herman Long
    4. Bill Nicholson
    5. Bill Terry

  6. Who, in the 20th century, was the last player in the National League to hit .400 or better for an entire season?
    1. Roberto Clemente
    2. Mark McGwire
    3. Bill Nicholson
    4. Hank Sauer
    5. Bill Terry

  7. Who hit a home run on opening day four years in a row?
    1. Dain Clay
    2. Carlton Fisk
    3. Todd Hundley
    4. Bill Melton
    5. Bobby Murcer

  8. Who was the first Chicago Cub to hit a grand slam on opening day?
    1. Jim Edmonds
    2. Fred McGriff
    3. Bobby Murcer
    4. Bill Nicholson
    5. Hank Sauer

  9. Which one time Saint Louis Cardinal filed for bankrupcy in 1992?
    1. Jack Clark
    2. Jim Edmonds
    3. Mark McGwire
    4. Hank Sauer
    5. Preston Wilson
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#2/8/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(39) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 39" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon