<% ' If date is in the future redirect to default if DateDiff("d",CDate(#10/23/2009#),date()) < 0 then response.redirect("default.asp") end if %> American League Pitchers Who Threw A No Hitter

Daily Baseball Quiz

Friday, October 23, 2009
Today's theme is: American League Pitchers Who Threw A No Hitter

  1. Who threw the first no hitter in Comiskey Park?
    1. Nixey Callahan
    2. Bill Dinneen
    3. Vern Kennedy
    4. Frank Smith
    5. Jesse Tannehill

  2. Who was the first pitcher to twice no hit the Chicago White Sox?
    1. Bill Dinneen
    2. Bob Groom
    3. Addie Joss
    4. Ernie Koob
    5. Jesse Tannehill

  3. Who was the head baseball coach at Yale University for twenty years?
    1. Joe Benz
    2. Ray Caldwell
    3. George Mullin
    4. Ed Walsh
    5. Smoky Joe Wood

  4. Who, in 1948, collapsed at home plate after suffering a brain hemorrhage?
    1. Don Black
    2. Dick Fowler
    3. Bobo Holloman
    4. Bill McCahan
    5. Monte Pearson

  5. Which pitcher had 15 seasons of winning more than 20 games?
    1. Bob Feller
    2. Randy Johnson
    3. Walter Johnson
    4. Nolan Ryan
    5. Cy Young

  6. Who lead the National League in ERA in 1910?
    1. Addie Joss
    2. Dutch Leonard
    3. Ed Walsh
    4. Smoky Joe Wood
    5. Cy Young

  7. Who was the first pitcher to throw a no hitter in the 21st century?
    1. David Cone
    2. Derek Lowe
    3. Eric Milton
    4. Hideo Nomo
    5. David Wells

  8. Who, in 1988, was the first pitcher to lose a no hitter with two outs in the ninth innning on consecutive starts?
    1. Randy Johnson
    2. Nolan Ryan
    3. Dave Stewart
    4. Dave Stieb
    5. Mike Witt

  9. Who threw a no hitter at Fenway Park with only 1,247 in attendance?
    1. Jim Bunning
    2. Jon Lester
    3. Dave Morehead
    4. Mel Parnell
    5. Earl Wilson
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/23/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(296) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 296" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon