<% ' If date is in the future redirect to default if DateDiff("d",CDate(#5/12/2009#),date()) < 0 then response.redirect("default.asp") end if %> Runs Scored

Daily Baseball Quiz

Tuesday, May 12, 2009
Today's theme is: Runs Scored

  1. Which player has scored the most runs in the National League?
    1. Henry Aaron
    2. Cap Anson
    3. Barry Bonds
    4. Stan Musial
    5. Mel Ott

  2. Who was the first player to score 2000 runs in his career?
    1. Henry Aaron
    2. Ty Cobb
    3. Lou Gehrig
    4. Willie Mays
    5. Babe Ruth

  3. Who, in 1953, was the first player in the American League to score three runs in one inning?
    1. Dick Gernert
    2. Billy Goodman
    3. Mickey Mantle
    4. Sammy White
    5. Ted Williams

  4. Who was the first player to score at least one run in 24 consecutive games?
    1. Ty Cobb
    2. Billy Hamilton
    3. Kenny Lofton
    4. Mel Ott
    5. Red Rolfe

  5. Who was the first player to twice score six runs in one game?
    1. Cap Anson
    2. Mel Ott
    3. Spike Owen
    4. Johnny Pesky
    5. Joe Randa

  6. How many times did Babe Ruth score at least 150 runs in a season?
    1. 4
    2. 5
    3. 6
    4. 7
    5. 8

  7. Who was the first player to score 100 runs in one season and was also the first player to score 125 runs in one season?
    1. Cap Anson
    2. Ross Barnes
    3. Joe Hornung
    4. Harry Stovey
    5. George Wright

  8. How many times did Babe Ruth lead the American League in runs scored?
    1. 6
    2. 7
    3. 8
    4. 9
    5. 12

  9. Who holds the record for most runs scored in one season with 192?
    1. Tom Brown
    2. Lou Gehrig
    3. Billy Hamilton
    4. Tip O'Neill
    5. Babe Ruth
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/12/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(132) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 132" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon