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

Daily Baseball Quiz

Monday, July 6, 2009
Today's theme is: Philadelphia Athletics

  1. To whom did the Mack family sell the Philadelphia Athletics?
    1. Charlie Finley
    2. Walter Haas
    3. Arnold Johnson
    4. Ben Shibe
    5. Charles Somers

  2. Who was the last Philadelphia Athletic to have 200 hits in one season?
    1. Ferris Fein
    2. Jimmie Foxx
    3. Napoleon Lajoie
    4. Wally Moses
    5. Al Simmons

  3. Who was the first to hit 100 triples as a member of the Athletics?
    1. Frank Baker
    2. Eddie Collins
    3. Wally Moses
    4. Danny Murphy
    5. Al Simmons

  4. Who was the first Philadelphia Athletic to lead the American League in home runs four years in a row?
    1. Frank Baker
    2. Harry Davis
    3. Jimmie Foxx
    4. Napoleon Lajoie
    5. Socks Seybold

  5. Who was the first Philadelphia Athletic to win back-to-back batting titles?
    1. Frank Baker
    2. Ferris Fein
    3. Jimmie Foxx
    4. Napoleon Lajoie
    5. Al Simmons

  6. Who was the only Philadelphia Athletic to have 100 extra base hits in one season?
    1. Frank Baker
    2. Jimmie Dykes
    3. Jimmie Foxx
    4. Napoleon Lajoie
    5. Al Simmons

  7. Which pitcher won the most games as a member of the Philadelphia Athletics?
    1. Chief Bender
    2. Joe Bush
    3. Lefty Grove
    4. Eddie Plank
    5. Rube Waddell

  8. Who hit the most doubles as a member of the Philadelphia Athletics?
    1. Harry Davis
    2. Jimmie Dykes
    3. Napoleon Lajoie
    4. Danny Murphy
    5. Socks Seybold

  9. Who managed the Philadelphia Athletics after Connie Mack?
    1. Lou Boudreau
    2. Harry Craft
    3. Jimmie Dykes
    4. Bob Elliott
    5. Joe Gordon
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/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(187) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 187" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon