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

Daily Baseball Quiz

Friday, October 16, 2009
Today's theme is: Shortstops

  1. Who hit the most home runs in one season as a shortstop?
    1. Ernie Banks
    2. Rico Petrocelli
    3. Alex Rodríguez
    4. Vern Stephens
    5. Honus Wagner

  2. Who was the first Cubs shortstop to steal home twice in one game?
    1. Sparky Adams
    2. Ernie Banks
    3. Billy Jurges
    4. Don Kessinger
    5. Joe Tinker

  3. Who scored the most runs in one season as a shortstop?
    1. Luke Appling
    2. Rabbit Maranville
    3. Phil Rizzuto
    4. Alex Rodríguez
    5. Robin Yount

  4. Who was the first shortstop to win the National Leauge Most Valuable Player Award?
    1. Ernie Banks
    2. Dick Groat
    3. Barry Larkin
    4. Marty Marion
    5. Maury Wills

  5. Who was the first shortstop to win the American Leauge Most Valuable Player Award?
    1. Lou Boudreau
    2. Cal Ripken
    3. Phil Rizzuto
    4. Zoilo Versalles
    5. Robin Yount

  6. Who played the most number of games at shortstop?
    1. Luis Aparicio
    2. Rabbit Maranville
    3. Ozzie Smith
    4. Omar Vizquel
    5. Honus Wagner

  7. Who leads all shortstops in career putouts?
    1. Luis Aparicio
    2. Rabbit Maranville
    3. Cal Ripken
    4. Omar Vizquel
    5. Honus Wagner

  8. Who leads all shortstops in turning double plays?
    1. Dick Groat
    2. Rabbit Maranville
    3. Joe Tinker
    4. Omar Vizquel
    5. Honus Wagner

  9. Who was the first shortstop to participate in nine triple plays?
    1. Luke Appling
    2. Donie Bush
    3. Monte Cross
    4. Joe Tinker
    5. Glenn Wright
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/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(289) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 289" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon