<% ' If date is in the future redirect to default if DateDiff("d",CDate(#4/18/2009#),date()) < 0 then response.redirect("default.asp") end if %> New York Mets

Daily Baseball Quiz

Saturday, April 18, 2009
Today's theme is: New York Mets

  1. Who was the first player to bat for the New York Mets?
    1. Richie Ashburn
    2. Gus Bell
    3. Gil Hodges
    4. Ed Kranepool
    5. Felix Mantilla

  2. Who was the first New York Met to twice steal four bases in one game?
    1. Roger Cedeño
    2. Vince Coleman
    3. Bud Harrelson
    4. Tom Harkness
    5. Cleon Jones

  3. In what year did Dwight Gooden lead the National League in complete games, wins, ERA, and strikeouts?
    1. 1984
    2. 1985
    3. 1986
    4. 1987
    5. 1988

  4. Who was the first New York Met to hit a home run in his first major league at bat?
    1. Marlon Anderson
    2. Benny Ayala
    3. Mike Fitzgerald
    4. Mike Jacobs
    5. Kaz Matsui

  5. Which New York Met, in 1993, threw a lit firecracker into a crowd of baseball fans waiting for autographs in the Dodger Stadium parking lot, injuring three children, including a two-year-old girl?
    1. Vince Coleman
    2. Dwight Gooden
    3. Todd Hundley
    4. Darrin Jackson
    5. Eddie Murray

  6. Who is the first New York Met to have six hits in one game?
    1. Edgardo Alfonzo
    2. Bernard Gilkey
    3. Lee Mazzilli
    4. Lenny Randle
    5. Darryl Strawberry

  7. Who was the first New York Met to collect 150 hits in one season?
    1. Tommie Agee
    2. Joe Christopher
    3. Cleon Jones
    4. Felix Millan
    5. Frank Thomas

  8. Who was the first New York Met to have 100 RBI in one season?
    1. Gary Carter
    2. Howard Johnson
    3. Mike Piazza
    4. Rusty Staub
    5. Darryl Strawberry

  9. Who was the first New York Met to hit 40 doubles in one season?
    1. Edgardo Alfonzo
    2. Carlos Beltrán
    3. Bernard Gilkey
    4. Howard Johnson
    5. David Wright
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#4/18/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(108) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 108" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon