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

Daily Baseball Quiz

Saturday, July 18, 2009
Today's theme is: Saint Louis Browns

  1. Who was the first Saint Louis Brown to play in an All-Star game?
    1. Beau Bell
    2. Harlond Clift
    3. Rick Ferrell
    4. Rollie Hemsley
    5. Sam West

  2. Who was the only Saint Louis Brown to twice win a batting title?
    1. Beau Bell
    2. George Sisler
    3. Vern Stephens
    4. Jack Tobin
    5. Ken Williams

  3. Who was the only Saint Louis Browns pitcher to pitch 36 complete games in one season?
    1. Red Donahue
    2. Fred Glade
    3. Harry Howell
    4. Barney Pelty
    5. Jack Powell

  4. In what year did the Saint Louis Browns win their one and only American League pennant?
    1. 1902
    2. 1906
    3. 1922
    4. 1944
    5. 1945

  5. Who was the first Saint Louis Brown to lead the American League in RBI?
    1. Del Pratt
    2. George Sisler
    3. Moose Solters
    4. Vern Stephens
    5. Ken Williams

  6. Who won the most games while pitching for the Saint Louis Browns?
    1. Red Donahue
    2. Bobo Holloman
    3. Barney Pelty
    4. Jack Powell
    5. Urban Shocker

  7. Who holds the Saint Louis Browns record for most hits in one season?
    1. Beau Bell
    2. Heinie Manush
    3. George Sisler
    4. Vern Stephens
    5. Jack Tobin

  8. Who did not throw a no hitter for the Saint Louis Browns?
    1. Bob Groom
    2. Earl Hamilton
    3. Bobo Holloman
    4. Harry Howell
    5. Ernie Koob

  9. Who was the last owner of the Saint Louis Browns?
    1. Philip Ball
    2. Donald Barnes
    3. August Busch
    4. Robert Hedges
    5. Bill Veeck
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/18/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(199) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 199" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon