<% ' If date is in the future redirect to default if DateDiff("d",CDate(#7/25/2009#),date()) < 0 then response.redirect("default.asp") end if %> Shortstops With 25 Or More Home Runs In One Season

Daily Baseball Quiz

Saturday, July 25, 2009
Today's theme is: Shortstops With 25 Or More Home Runs In One Season

  1. Who was the first shortstop to have 100 walks and hit 25 home runs in the same season?
    1. Ernie Banks
    2. Barry Larkin
    3. Rico Petrocelli
    4. Alex Rodríguez
    5. Vern Stephens

  2. Who lead the major leagues in strikeouts in 2002?
    1. Nomar Garciaparra
    2. José Hernández
    3. Alex Rodríguez
    4. Miguel Tejada
    5. José Valentín

  3. Who was the first shortstop to hit 30 home runs and steal 30 bases in the same season?
    1. Nomar Garciaparra
    2. Barry Larkin
    3. Hanley Ramírez
    4. Alex Rodríguez
    5. Jimmy Rollins

  4. Who was the first shortstop to have four seasons of 40 or more home runs?
    1. Ernie Banks
    2. Rico Petrocelli
    3. Cal Ripken
    4. Alex Rodríguez
    5. Miguel Tejada

  5. How many consecutive seasons of at least 25 home runs did José Valentín while playing for the Chicago White Sox?
    1. 2
    2. 3
    3. 4
    4. 5
    5. 6

  6. Who was the first player to reach base three times in a game when his team was no hit?
    1. Khalil Greene
    2. Bill Hall
    3. J. J. Hardy
    4. Woodie Held
    5. Vern Stephens

  7. Who lead the American League in doubles in 1997?
    1. Tony Batista
    2. Nomar Garciaparra
    3. Alex Rodríguez
    4. John Valentin
    5. Miguel Tejada

  8. Who was the first shortstop to have eight consecutive seasons with at least 20 home runs?
    1. Ernie Banks
    2. Cal Ripken
    3. Alex Rodríguez
    4. Miguel Tejada
    5. José Valentín

  9. Who appeared on an episode of the television show "Magnum PI"?
    1. Rich Aurilia
    2. Ernie Banks
    3. Alan Trammell
    4. John Valentin
    5. Robin Yount
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/25/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(206) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 206" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon