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

Daily Baseball Quiz

Wednesday, October 28, 2009
Today's theme is: New York Mets Pitchers

  1. Who struck out the most batters while pitching for the New York Mets?
    1. David Cone
    2. Sid Fernández
    3. Dwight Gooden
    4. Nolan Ryan
    5. Tom Seaver

  2. Who was the first New York Met to lead the National League in saves?
    1. Armando Benítez
    2. John Franco
    3. Jesse Orosco
    4. Nolan Ryan
    5. Billy Wagner

  3. Who was the first New York Mets pitcher to pitch three consecutive complete games?
    1. Roger Craig
    2. Al Jackson
    3. Jerry Koosman
    4. Tom Seaver
    5. Carl Willey

  4. Who was the first pitcher to save 40 games in one season for the New York Mets?
    1. Armando Benítez
    2. John Franco
    3. Jesse Orosco
    4. Francisco Rodríguez
    5. Billy Wagner

  5. Who was the first pitcher to win 25 games in one season for the New York Mets?
    1. David Cone
    2. Dwight Gooden
    3. Jerry Koosman
    4. Tom Seaver
    5. Frank Viola

  6. Which pitcher has hit the most batters while pitching for the New York Mets?
    1. Ron Darling
    2. Dwight Gooden
    3. Jerry Koosman
    4. Al Leiter
    5. Tom Seaver

  7. Which pitcher has started the most number of games for the New York Mets?
    1. Ron Darling
    2. Sid Fernández
    3. Dwight Gooden
    4. Jerry Koosman
    5. Tom Seaver

  8. Who was the first New York Mets pitcher to pitch eight consecutive complete games?
    1. Ron Darling
    2. Dwight Gooden
    3. Jerry Koosman
    4. John Matlack
    5. Tom Seaver

  9. Which pitcher won the most number of games for the New York Mets?
    1. Ron Darling
    2. Sid Fernández
    3. Dwight Gooden
    4. Jerry Koosman
    5. Tom Seaver
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/28/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(301) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 301" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon