<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/15/2009#),date()) < 0 then response.redirect("default.asp") end if %> Pitchers With 1500 Career Walks

Daily Baseball Quiz

Tuesday, December 15, 2009
Today's theme is: Pitchers With 1500 Career Walks

  1. Which was the first pitcher to allow 1500 walks in his career?
    1. Bobo Newsom
    2. Red Ruffing
    3. Amos Rusie
    4. Nolan Ryan
    5. Gus Weyhing

  2. Who was the last pitcher of the 20th century to have two season where he allowed 200 bases on balls?
    1. Bob Feller
    2. Tom Glavine
    3. Bobo Newsom
    4. Phil Niekro
    5. Nolan Ryan

  3. Who was the last pitcher in the 20th century to have three consecutive seasons with 20 or more wins?
    1. Steve Carlton
    2. Roger Clemens
    3. Tom Glavine
    4. Charlie Hough
    5. Phil Niekro

  4. Which pitcher walked the most batters in one season?
    1. Tom Glavine
    2. Phil Niekro
    3. Amos Rusie
    4. Nolan Ryan
    5. Gus Weyhing

  5. How many consecutive seasons did Amos Rusie have where he allowed 200 or more bases on balls?
    1. 3
    2. 4
    3. 5
    4. 6
    5. 7

  6. Who broke Bob Feller's record for most career walks allowed?
    1. Steve Carlton
    2. Charlie Hough
    3. Phil Niekro
    4. Nolan Ryan
    5. Early Wynn

  7. Who is the only pitcher with 1500 career walks and a losing record?
    1. Charlie Hough
    2. Phil Niekro
    3. Bobo Newsom
    4. Amos Rusie
    5. Gus Weyhing

  8. Which pitcher lead the major leagues in walks allowed in 1988?
    1. Steve Carlton
    2. Tom Glavine
    3. Charlie Hough
    4. Phil Niekro
    5. Nolan Ryan

  9. Who was the first president of the Major League Baseball Players Association?
    1. Steve Carlton
    2. Bob Feller
    3. Tom Glavine
    4. Bobo Newsom
    5. Early Wynn
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/15/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(349) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 349" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon