<% ' If date is in the future redirect to default if DateDiff("d",CDate(#10/24/2009#),date()) < 0 then response.redirect("default.asp") end if %> Those With A Career Batting Average Above .340

Daily Baseball Quiz

Saturday, October 24, 2009
Today's theme is: Those With A Career Batting Average Above .340

  1. Who was the last National League player in the 20th century to hit .400 for the entire season?
    1. Rogers Hornsby
    2. Willie Keeler
    3. Lefty O'Doul
    4. Bill Terry
    5. Ted Williams

  2. Who was the first National League player to have 250 hits in one season?
    1. Ed Delahanty
    2. Rogers Hornsby
    3. Lefty O'Doul
    4. George Sisler
    5. Bill Terry

  3. Who was the first player to have 350 sacrifice hits in his career?
    1. Ty Cobb
    2. Harry Heilmann
    3. Joe Jackson
    4. Willie Keeler
    5. Tris Speaker

  4. Who holds the New York Yankee record for sacrifice hits in one season with 42?
    1. Pete Browning
    2. Lou Gehrig
    3. Willie Keeler
    4. Lefty O'Doul
    5. Babe Ruth

  5. Who was the first player to have a 100 RBI season for five different teams?
    1. Dan Brouthers
    2. Pete Browning
    3. Ed Delahanty
    4. Willie Keeler
    5. Lefty O'Doul

  6. Who hit safely in all 14 opening day games he played in?
    1. Lou Gehrig
    2. Billy Hamilton
    3. Willie Keeler
    4. Tris Speaker
    5. Ted Williams

  7. Who missed the entire 1923 season because of a sinus infection that caused him to see double?
    1. Ty Cobb
    2. Harry Heilmann
    3. George Sisler
    4. Tris Speaker
    5. Bill Terry

  8. Who was the first player to have eight consecutive seasons with 200 or more hits?
    1. Ty Cobb
    2. Lou Gehrig
    3. Willie Keeler
    4. Babe Ruth
    5. George Sisler

  9. Who lead the Players League in batting average and doubles in 1890?
    1. Dan Brouthers
    2. Pete Browning
    3. Ed Delahanty
    4. Billy Hamilton
    5. Dave Orr
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/24/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(297) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 297" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon