<% ' If date is in the future redirect to default if DateDiff("d",CDate(#5/24/2009#),date()) < 0 then response.redirect("default.asp") end if %> Pitchers With 240 Or More Career Losses

Daily Baseball Quiz

Sunday, May 24, 2009
Today's theme is: Pitchers With 240 Or More Career Losses

  1. Who was the first pitcher to lose 240 games in his career?
    1. Pud Galvin
    2. Bobby Mathews
    3. Walter Johnson
    4. Eppa Rixey
    5. Cy Young

  2. Who was the first pitcher to lose 240 games in his career and have a losing record?
    1. Bert Blyleven
    2. Pud Galvin
    3. Bobby Mathews
    4. Jack Powell
    5. Eppa Rixey

  3. Who was the first pitcher to lead the American League in wins three years in a row?
    1. Walter Johnson
    2. Bobby Mathews
    3. Jack Powell
    4. Eppa Rixey
    5. Cy Young

  4. Who was the first pitcher more than 40 years old to pitch a no hitter?
    1. Phil Niekro
    2. Nolan Ryan
    3. Warren Spahn
    4. Don Sutton
    5. Cy Young

  5. Who was the first pitcher to lead his league in strikeouts in consecutive years with different teams?
    1. Steve Carlton
    2. Gaylord Perry
    3. Nolan Ryan
    4. Early Wynn
    5. Cy Young

  6. Who won the Lou Gehrig award in 1962?
    1. Gaylord Perry
    2. Robin Roberts
    3. Warren Spahn
    4. Don Sutton
    5. Early Wynn

  7. Whose middle name is True?
    1. Pud Galvin
    2. Eppa Rixey
    3. Nolan Ryan
    4. Early Wynn
    5. Cy Young

  8. Who was the first pitcher to lead the American League in strikeouts eight years in a row?
    1. Walter Johnson
    2. Gaylord Perry
    3. Nolan Ryan
    4. Early Wynn
    5. Cy Young

  9. Who was the last National League pitcher in the 20th century to have 30 complete games in one season?
    1. Steve Carlton
    2. Gaylord Perry
    3. Robin Roberts
    4. Nolan Ryan
    5. Warren Spahn
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/24/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(144) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 144" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon