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

Daily Baseball Quiz

Wednesday, July 29, 2009
Today's theme is: Spitball Pitchers

  1. Who lead the American League in ERA in 1921?
    1. Bill Doak
    2. Red Faber
    3. Dutch Leonard
    4. Jack Quinn
    5. Urban Shocker

  2. Who lead the American League in ERA in 1922?
    1. Doc Ayres
    2. Ray Caldwell
    3. Stan Coveleski
    4. Red Faber
    5. Urban Shocker

  3. Who, in 1933, was replaced by Rogers Hornsby as manager of the Saint Louis Browns?
    1. Ray Caldwell
    2. Bill Doak
    3. Burleigh Grimes
    4. Urban Shocker
    5. Allen Sothoron

  4. Who lead the American League in ERA in 1914?
    1. Doc Ayres
    2. Ray Caldwell
    3. Bill Doak
    4. Red Faber
    5. Dutch Leonard

  5. Who was the oldest pitcher to hit a home run?
    1. Bill Doak
    2. Red Faber
    3. Marv Goodwin
    4. Clarence Mitchell
    5. Jack Quinn

  6. Who came up with a revolutionary new glove design that became a prototype of gloves for decades to come?
    1. Ray Caldwell
    2. Stan Coveleski
    3. Bill Doak
    4. Burleigh Grimes
    5. Urban Shocker

  7. Who was the first player to be killed in an airplane crash?
    1. Doc Ayres
    2. Phil Douglas
    3. Dana Fillingim
    4. Marv Goodwin
    5. Dick Rudolph

  8. Who was the head baseball coach at the University of Michigan for more than three decades?
    1. Ray Fisher
    2. Marv Goodwin
    3. Dutch Leonard
    4. Clarence Mitchell
    5. Allan Russell

  9. Who was the last pitcher legally allowed to throw a spitball in the major leagues?
    1. Red Faber
    2. Stan Coveleski
    3. Burleigh Grimes
    4. Dutch Leonard
    5. Jack Quinn
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/29/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(210) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 210" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon