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

Daily Baseball Quiz

Tuesday, July 28, 2009
Today's theme is: Washington Senators

  1. Who was the first Washington Senator to pitch in an All-Star game?
    1. General Crowder
    2. Wes Ferrell
    3. Sid Hudson
    4. Dutch Leonard
    5. Jack Russell

  2. Who holds the Washington Senators record for most double plays?
    1. Joe Cronin
    2. Joe Judge
    3. Bucky Harris
    4. Buddy Myer
    5. Mickey Vernon

  3. In how many World Series did the Washington Senators play?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

  4. Who had the most career at bats for the Washington Senators?
    1. Ossie Bluege
    2. Joe Judge
    3. Clyde Milan
    4. Buddy Myer
    5. Sam Rice

  5. Which Washington Senator was the first player to lead the American League in stolen bases for five consecutive seasons?
    1. John Anderson
    2. George Case
    3. Clyde Milan
    4. Danny Moeller
    5. Sam Rice

  6. Who had 495 stolen bases while playing for the Washington Senators?
    1. George Case
    2. Joe Judge
    3. Clyde Milan
    4. Danny Moeller
    5. Sam Rice

  7. Who is the only Washington Senator to have 20 triples in one season?
    1. Joe Cassidy
    2. Goose Goslin
    3. Heinie Manush
    4. Sam Rice
    5. Stan Spence

  8. Who is the only Washington Senator to lead the American League in doubles in back-to-back years?
    1. Joe Cronin
    2. Goose Goslin
    3. Sam Mele
    4. Mickey Vernon
    5. Eddie Yost

  9. For how many seasons did Clark Griffith manage the Washington Senators?
    1. 5
    2. 6
    3. 7
    4. 8
    5. 9
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/28/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(209) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 209" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon