<% ' If date is in the future redirect to default if DateDiff("d",CDate(#3/16/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players With 160 RBI In One Season

Daily Baseball Quiz

Monday, March 16, 2009
Today's theme is: Players With 160 RBI In One Season

  1. Who wore a blue glove in the outfield?
    1. Joe DiMaggio
    2. Chuck Klein
    3. Babe Ruth
    4. Sammy Sosa
    5. Hack Wilson

  2. Who is the first player to have two seasons with more that 160 RBI?
    1. Jimmie Foxx
    2. Lou Gehrig
    3. Hank Greenberg
    4. Babe Ruth
    5. Sam Thompson

  3. Who, in 1932, lead the National League in stolen bases with 20?
    1. Jimmie Foxx
    2. Hank Greenburg
    3. Chuck Klein
    4. Al Simmons
    5. Hack Wilson

  4. Who holds the American League record for most RBI in one season?
    1. Jimmie Foxx
    2. Lou Gehrig
    3. Hank Greenburg
    4. Babe Ruth
    5. Al Simmons

  5. Whose great-great-grandson is Chris Thile, the mandolinist and vocalist for the musical trio Nickel Creek?
    1. Lou Gehrig
    2. Babe Ruth
    3. Al Simmons
    4. Sam Thompson
    5. Hack Wilson

  6. Who was about to be suspended by the Boston Red Sox before he was traded away?
    1. Jimmie Foxx
    2. Manny Ramírez
    3. Babe Ruth
    4. Al Simmons
    5. Hal Trosky

  7. How many grand slams did Hack Wilson hit the year he had 191 RBI?
    1. 0
    2. 1
    3. 2
    4. 3
    5. 4

  8. Who was the first player to hit 50 home runs and have 160 RBI in the same season?
    1. Jimmie Foxx
    2. Hank Greenburg
    3. Babe Ruth
    4. Sammy Sosa
    5. Hack Wilson

  9. Who lead the American League in total bases and RBI in 1936?
    1. Joe DiMaggio
    2. Jimmie Foxx
    3. Lou Gehrig
    4. Hank Greenburg
    5. Hal Trosky
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#3/16/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(75) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 75" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon