<% ' If date is in the future redirect to default if DateDiff("d",CDate(#7/13/2009#),date()) < 0 then response.redirect("default.asp") end if %> Wild Pitches

Daily Baseball Quiz

Monday, July 13, 2009
Today's theme is: Wild Pitches

  1. Who, with 277, is the career leader in wild pitches?
    1. Pud Galvin
    2. Tim Keefe
    3. Phil Niekro
    4. Nolan Ryan
    5. Mickey Welch

  2. Who was the first pitcher to throw 200 wild pitches while pitching in the American League?
    1. Roger Clemens
    2. Tommy John
    3. Walter Johnson
    4. Sam McDowell
    5. Jack Morris

  3. Who was the first pitcher to lead the major leagues in wild pitches three years in a row?
    1. George Bradley
    2. Larry Cheney
    3. Christy Mathewson
    4. Will White
    5. Jim Whitney

  4. Who was the first American League pitcher to throw four wild pitches in one inning?
    1. R. A. Dickey
    2. Kevin Gregg
    3. Walter Johnson
    4. Jack Morris
    5. Phil Niekro

  5. Who holds the record for most wild pitches in one season?
    1. Hardie Henderson
    2. Matt Kilroy
    3. Tony Mullane
    4. Bill Stemmeyer
    5. Mickey Welch

  6. Who was the first National League pitcher to throw six wild pitches in one game?
    1. Bill Gullickson
    2. Ken Howell
    3. Phil Niekro
    4. J. R. Richard
    5. Bill Stoneman

  7. Who holds the New York Giants record for most wild pitches thrown?
    1. Red Ames
    2. Tim Keefe
    3. Christy Mathewson
    4. Amos Rusie
    5. Mickey Welch

  8. Who broke Jack Morris' American League record for most wild pitches in a season?
    1. José Contreras
    2. Freddy García
    3. Juan Guzmán
    4. Tim Leary
    5. Bobby Witt

  9. Who was the first pitcher to lead his league in wild pitches and win the Cy Young Award in the same year?
    1. Steve Carlton
    2. Roger Clemens
    3. Tim Lincecum
    4. Nolan Ryan
    5. John Smoltz
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/13/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(194) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 194" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon