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

Daily Baseball Quiz

Sunday, August 23, 2009
Today's theme is: Stolen Base Champions

  1. Who was the first rookie to steal 110 bases in one season?
    1. Vince Coleman
    2. Billy Hamilton
    3. Ichiro Suzuki
    4. Quilvio Veras
    5. Maury Wills

  2. Who was the first Boston Red Sox to lead the American League in stolen bases?
    1. Dom DiMaggio
    2. Tommy Harper
    3. Jackie Jensen
    4. Buddy Myer
    5. Billy Werber

  3. Who was the first player to have three consecutive seasons with 100 stolen bases?
    1. Lou Brock
    2. Ty Cobb
    3. Vince Coleman
    4. Billy Hamilton
    5. Rickey Henderson

  4. Who was the first player to lead the National League in stolen bases four years in a row?
    1. Bob Bescher
    2. Lou Brock
    3. Max Carey
    4. Willie Mays
    5. Tim Raines

  5. Who was the first player to have 50 consecutive stolen bases without being caught stealing?
    1. Max Carey
    2. Vince Coleman
    3. Carl Crawford
    4. Ichiro Suzuki
    5. Honus Wagner

  6. Who has stolen the most bases while playing for Pittsburgh Pirates?
    1. Max Carey
    2. Patsy Donovan
    3. Omar Moreno
    4. Frank Taveras
    5. Honus Wagner

  7. Who was the first player to have 700 career stolen bases and 700 career doubles?
    1. Lou Brock
    2. Ty Cobb
    3. Billy Hamilton
    4. Rickey Henderson
    5. Honus Wagner

  8. Who has been caught stealing the most?
    1. Lou Brock
    2. Bert Campaneris
    3. Rickey Henderson
    4. Omar Moreno
    5. Maury Wills

  9. How many times did Max Carey lead the National League in stolen bases?
    1. 1
    2. 2
    3. 4
    4. 8
    5. 10
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/23/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(235) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 235" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon