<% ' If date is in the future redirect to default if DateDiff("d",CDate(#9/15/2009#),date()) < 0 then response.redirect("default.asp") end if %> Federal League

Daily Baseball Quiz

Tuesday, September 15, 2009
Today's theme is: Federal League

  1. Which Federal League pitcher lead the major leagues in wins in 1914 with 29?
    1. Cy Falkenberg
    2. Claude Hendrix
    3. Jack Quinn
    4. Tom Seaton
    5. George Suggs

  2. Who is the only Federal League pitcher to have back-to-back seasons with 20 wins?
    1. Nick Cullop
    2. Claude Hendrix
    3. Elmer Knetzer
    4. George McConnell
    5. Gene Packard

  3. Who played for three different Federal League teams and is a member of the Hall of Fame?
    1. Chief Bender
    2. Mordecai Brown
    3. Eddie Plank
    4. Edd Roush
    5. Joe Tinker

  4. Which team won the Federal League pennant in 1914?
    1. Baltimore Terrapins
    2. Indianapolis Hoosiers
    3. Kansas City Packers
    4. Pittsburgh Rebels
    5. Saint Louis Terriers

  5. Which team won the Federal League pennant in 1915?
    1. Baltimore Terrapins
    2. Buffalo Blues
    3. Chicago Whales
    4. Kansas City Packers
    5. Pittsburgh Rebels

  6. Who threw the first no hitter in the Federal League?
    1. Frank Allen
    2. Dave Davenport
    3. Claude Hendrix
    4. Ed Lafitte
    5. Miles Main

  7. For which Federal League team was Eddie Plank pitching for when he won his 300th major league game?
    1. Baltimore Terrapins
    2. Buffalo Blues
    3. Kansas City Packers
    4. Pittsburgh Rebels
    5. Saint Louis Terriers

  8. How many teams were there in the Federal League?
    1. 6
    2. 8
    3. 10
    4. 12
    5. 14

  9. Who threw the last no hitter in the Federal League?
    1. Frank Allen
    2. Dave Davenport
    3. Claude Hendrix
    4. Ed Lafitte
    5. Miles Main
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#9/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(258) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 258" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon