<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/9/2009#),date()) < 0 then response.redirect("default.asp") end if %> Kansas City Royals Outfielders

Daily Baseball Quiz

Wednesday, December 9, 2009
Today's theme is: Kansas City Royals Outfielders

  1. Who was the first Kansas City Royal to win the American League Rookie of the Year Award?
    1. Carlos Beltrán
    2. David DeJesús
    3. Jon Nunnally
    4. Amos Otis
    5. Lou Piniella

  2. Who was the first Kansas City Royal to win two Silver Slugger Awards?
    1. Carlos Beltrán
    2. Jermaine Dye
    3. Bo Jackson
    4. Lou Piniella
    5. Willie Wilson

  3. Who holds the Kansas City Royals team record for most triples in one season with 21?
    1. Al Cowens
    2. Johnny Damon
    3. Hal McRae
    4. Amos Otis
    5. Willie Wilson

  4. Who was the first Kansas City Royal to hit 45 doubles in one season?
    1. Carlos Beltrán
    2. Johnny Damon
    3. Jermaine Dye
    4. José Guillén
    5. Hal McRae

  5. Who was the first Kansas City Royal to ground into 25 double plays in one season?
    1. Al Cowens
    2. José Guillén
    3. Darryl Motley
    4. Lou Piniella
    5. Mark Teahen

  6. Who was the first Kansas City Royal to lead the major leagues in runs scored?
    1. Carlos Beltrán
    2. Johnny Damon
    3. Jermaine Dye
    4. Amos Otis
    5. Willie Wilson

  7. Who was the first Kansas City Royal to win a Gold Glove?
    1. Jermaine Dye
    2. Bo Jackson
    3. Hal McRae
    4. Amos Otis
    5. Willie Wilson

  8. Who lead the Texas League in batting average the year before he lead the Pacific Coast League in batting average?
    1. Carlos Beltrán
    2. David DeJesús
    3. Aaron Guiel
    4. Raúl Ibáñez
    5. Mark Quinn

  9. Who was suspended for steroid use just days after signing a US$36,000,000 contract with the Kansas City Royals?
    1. Carlos Beltrán
    2. Joey Gathright
    3. José Guillén
    4. Reggie Sanders
    5. Mark Teahen
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/9/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(343) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 343" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon