<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/20/2009#),date()) < 0 then response.redirect("default.asp") end if %> Hall Of Famers Who Played For 20 Years With The Same Team

Daily Baseball Quiz

Sunday, December 20, 2009
Today's theme is: Hall Of Famers Who Played For 20 Years With The Same Team

  1. Who was the first player to have 17 season with at least 150 hits each season?
    1. Henry Aaron
    2. Ty Cobb
    3. Willie Mays
    4. Stan Musial
    5. Cal Ripken

  2. Who was the first player to win the American League Most Valuable Player award at two different positions on the field?
    1. George Brett
    2. Cal Ripken
    3. Brooks Robinson
    4. Carl Yaztrzemski
    5. Robin Yount

  3. Who was the first player to hit 300 home runs and have 3000 hits in his career?
    1. Henry Aaron
    2. Al Kaline
    3. Willie Mays
    4. Stan Musial
    5. Carl Yaztrzemski

  4. Who hit the first home run in Shea Stadium?
    1. Henry Aaron
    2. Willie Mays
    3. Stan Musial
    4. Willie Stargell
    5. Carl Yaztrzemski

  5. Which member of the Hall of Fame was the oldest player in the major leagues in 1950?
    1. Luke Appling
    2. Red Faber
    3. Ted Lyons
    4. Walter Johnson
    5. Mel Ott

  6. Who lead his team in home runs for 18 consecutive years?
    1. Henry Aaron
    2. Willie Mays
    3. Stan Musial
    4. Mel Ott
    5. Carl Yaztrzemski

  7. What is Red Faber's given name?
    1. Albert Fred
    2. Charles Herbert
    3. Fred Albert
    4. Herbert Charles
    5. Urban Clarence

  8. Who was the first National League player to have eight consecutive season with 100 RBI?
    1. Henry Aaron
    2. Willie Mays
    3. Stan Musial
    4. Mel Ott
    5. Willie Stargell

  9. Who became the head baseball coach at his alma mater after he retired?
    1. George Brett
    2. Tony Gwynn
    3. Al Kaline
    4. Warren Spahn
    5. Robin Yount
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/20/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(354) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 354" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon