<% ' If date is in the future redirect to default if DateDiff("d",CDate(#7/10/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players With Ten Or More RBI In One Game

Daily Baseball Quiz

Friday, July 10, 2009
Today's theme is: Players With Ten Or More RBI In One Game

  1. Who was the first player with eleven RBI in one game?
    1. Jim Bottomley
    2. Tony Lazzeri
    3. Wilbert Robinson
    4. Phil Weintraub
    5. Rudy York

  2. Who was the first Boston Red Sox have ten RBI in one game?
    1. Nomar Garciaparra
    2. Fred Lynn
    3. Mark Whiten
    4. Rudy York
    5. Norm Zauchin

  3. Which Chicago-born National League player was nicknamed "Mickey"?
    1. Nomar Garciaparra
    2. Fred Lynn
    3. Phil Weintraub
    4. Wilbert Robinson
    5. Norm Zauchin

  4. Who said he was "the straw that stirs the drink"?
    1. Nomar Garciaparra
    2. Reggie Jackson
    3. Stan Musial
    4. Alex Rodríguez
    5. Mark Whiten

  5. Who lead the American League in strikeouts in 1955?
    1. Walker Cooper
    2. Tony Lazzeri
    3. Phil Weintraub
    4. Rudy York
    5. Norm Zauchin

  6. Who was given a black bear named Homer?
    1. Jim Bottomley
    2. Reggie Jackson
    3. Stan Musial
    4. Rudy York
    5. Norm Zauchin

  7. Who had the last hit in Philadelphia's Baker Bowl?
    1. Jim Bottomley
    2. Walker Cooper
    3. Phil Weintraub
    4. Rudy York
    5. Norm Zauchin

  8. Who was the first player to hit 18 home runs in the month of August?
    1. Garrett Anderson
    2. Jim Bottomley
    3. Reggie Jackson
    4. Alex Rodríguez
    5. Rudy York

  9. Who was the last player in the 20th century to have ten RBI in one game?
    1. Garrett Anderson
    2. Nomar Garciaparra
    3. Reggie Jackson
    4. Fred Lynn
    5. Alex Rodríguez
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/10/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(191) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 191" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon