<% ' If date is in the future redirect to default if DateDiff("d",CDate(#7/26/2009#),date()) < 0 then response.redirect("default.asp") end if %> Hall Of Fame Left Fielders

Daily Baseball Quiz

Sunday, July 26, 2009
Today's theme is: Hall Of Fame Left Fielders

  1. Who was the first player to have 1000 career stolen bases?
    1. Lou Brock
    2. Kiki Cuyler
    3. Ed Delahanty
    4. Rickey Henderson
    5. Joe Kelley

  2. Who was the first American League player to twice win the triple crown?
    1. Goose Goslin
    2. Joe Medwick
    3. Al Simmons
    4. Ted Williams
    5. Carl Yaztrzemski

  3. Who was the first player to have 100 career triples?
    1. Jesse Burkett
    2. Fred Clarke
    3. Kiki Cuyler
    4. Joe Kelley
    5. Jim O'Rourke

  4. Which member of the Hall of Fame also played for the Newark Eagles?
    1. Lou Brock
    2. Monte Irvin
    3. Jim Rice
    4. Willie Stargell
    5. Billy Williams

  5. Who lead the National League in RBI in 1951?
    1. Goose Goslin
    2. Monte Irvin
    3. Ralph Kiner
    4. Joe Medwick
    5. Stan Musial

  6. Who lead the American League in batting average in 1931?
    1. Goose Goslin
    2. Chick Hafey
    3. Heinie Manush
    4. Joe Medwick
    5. Al Simmons

  7. Who was the first player to lead the league or be tied for the lead in home run for seven consecutive seasons?
    1. Ralph Kiner
    2. Stan Musial
    3. Willie Stargell
    4. Billy Williams
    5. Ted Williams

  8. Who holds the record for career at bats by a left handed hitter?
    1. Lou Brock
    2. Goose Goslin
    3. Stan Musial
    4. Billy Williams
    5. Carl Yaztrzemski

  9. Who died when he was swept over Niagara Falls?
    1. Jesse Burkett
    2. Fred Clarke
    3. Ed Delahanty
    4. Joe Kelley
    5. Jim O'Rourke
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/26/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(207) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 207" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon