<% ' If date is in the future redirect to default if DateDiff("d",CDate(#3/6/2009#),date()) < 0 then response.redirect("default.asp") end if %> Pitchers Who Won 25 Games & Hit .300 In The Same Season

Daily Baseball Quiz

Friday, March 6, 2009
Today's theme is: Pitchers Who Won 25 Games & Hit .300 In The Same Season

  1. Who pitched 1001 innings without allowing a home run?
    1. Joe Bush
    2. Burleigh Grimes
    3. Ed Killian
    4. Carl Mays
    5. George Uhle

  2. Who was told to warm up in the bullpen during Johnny Vander Meer's second no hitter?
    1. Joe Bush
    2. Wes Ferrell
    3. Burleigh Grimes
    4. Carl Mays
    5. Bucky Walters

  3. Who was the first American League pitcher to pitch 13 shutouts in one season?
    1. Joe Bush
    2. Jack Coombs
    3. Ed Killian
    4. George Uhle
    5. Cy Young

  4. Which pitcher has hit the most home runs in major league history?
    1. Joe Bush
    2. Wes Ferrell
    3. Burleigh Grimes
    4. Carl Mays
    5. Cy Young

  5. Which pitcher had his brother, Rick, as a battery mate for five seasons?
    1. Joe Bush
    2. Wes Ferrell
    3. Burleigh Grimes
    4. Carl Mays
    5. Cy Young

  6. Who was the first pitcher to lead the National League and the American League in strikeouts?
    1. Joe Bush
    2. Jack Coombs
    3. Ed Killian
    4. Carl Mays
    5. Cy Young

  7. Whose brother is in the Hall of Fame?
    1. Joe Bush
    2. Wes Ferrell
    3. Ed Killian
    4. Carl Mays
    5. George Uhle

  8. Who threw the pitch that struck Ray Chapman in the head, causing his death?
    1. Joe Bush
    2. Wes Ferrell
    3. Burleigh Grimes
    4. Carl Mays
    5. George Uhle

  9. The baseball fields of Duke University and Colby College are named after which pitcher?
    1. Joe Bush
    2. Jack Coombs
    3. Wes Ferrell
    4. Burleigh Grimes
    5. Cy Young
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#3/6/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(65) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 65" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon