<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/4/2009#),date()) < 0 then response.redirect("default.asp") end if %> Those Whose Uniform Number 4 Was Retired

Daily Baseball Quiz

Friday, December 4, 2009
Today's theme is: Those Whose Uniform Number 4 Was Retired

  1. Who was the first player born in Louisiana inducted into the Baseball Hall of Fame?
    1. Luke Appling
    2. Joe Cronin
    3. Ralph Kiner
    4. Mel Ott
    5. Duke Snider

  2. Who was the first former player to be president of the American League?
    1. Luke Appling
    2. Joe Cronin
    3. Lou Gehrig
    4. Duke Snider
    5. Earl Weaver

  3. Who was the first third baseman in the American League to make 10 assists in a game?
    1. Luke Appling
    2. Joe Cronin
    3. Lou Gehrig
    4. Paul Molitor
    5. Mel Ott

  4. Who is the first manager to be ejected from both games of a doubleheader?
    1. Luke Appling
    2. Joe Cronin
    3. Paul Molitor
    4. Mel Ott
    5. Earl Weaver

  5. Who is the first American League player to hit a home run as a pinch hitter in both games of a doubleheader?
    1. Luke Appling
    2. Joe Cronin
    3. Lou Gehrig
    4. Paul Molitor
    5. Duke Snider

  6. Who was the first player to retire with more than 3000 career hits, 500 stolen bases, 200 home runs, and a batting average above .300?
    1. Luke Appling
    2. Lou Gehrig
    3. Paul Molitor
    4. Mel Ott
    5. Duke Snider

  7. Who also had the nickname "biscuit pants"?
    1. Luke Appling
    2. Lou Gehrig
    3. Ralph Kiner
    4. Mel Ott
    5. Earl Weaver

  8. Who lead the major leagues in doubles in 1938?
    1. Luke Appling
    2. Joe Cronin
    3. Lou Gehrig
    4. Mel Ott
    5. Duke Snider

  9. Who, in the American League, was ejected 97 times?
    1. Luke Appling
    2. Joe Cronin
    3. Lou Gehrig
    4. Paul Molitor
    5. Earl Weaver
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/4/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(338) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 338" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon