<% ' If date is in the future redirect to default if DateDiff("d",CDate(#9/18/2009#),date()) < 0 then response.redirect("default.asp") end if %> Most Games Played By Position For The Kansas City Royals

Daily Baseball Quiz

Friday, September 18, 2009
Today's theme is: Most Games Played By Position For The Kansas City Royals

  1. Which pitcher started the most number of games for the Kansas City Royals?
    1. Kevin Appier
    2. Mark Gubicza
    3. Dennis Leonard
    4. Bret Saberhagen
    5. Paul Splittorff

  2. Who was the first to catch 600 games for the Kansas City Royals?
    1. John Buck
    2. Mike Macfarlane
    3. Brent Mayne
    4. Darrell Porter
    5. John Wathan

  3. Who played the most number of games for the Kansas City Royals at first base?
    1. Willie Aikens
    2. Steve Balboni
    3. Wally Joyner
    4. John Mayberry
    5. Mike Sweeney

  4. Who played the most number of games for the Kansas City Royals at second base?
    1. Carlos Febles
    2. Mark Grudzielanek
    3. José Offerman
    4. Cookie Rojas
    5. Frank White

  5. Who played the most number of games for the Kansas City Royals at third base?
    1. George Brett
    2. Gary Gaetti
    3. Joe Randa
    4. Paul Schaal
    5. Kevin Seitzer

  6. Who played the most number of games for the Kansas City Royals at shortstop?
    1. Angel Berroa
    2. Greg Gagne
    3. Freddie Patek
    4. Tony Peña, Jr.
    5. Kurt Stillwell

  7. Who played the most number of games for the Kansas City Royals in left field?
    1. David DeJesus
    2. Bo Jackson
    3. Lou Piniella
    4. Lonnie Smith
    5. Willie Wilson

  8. Who played the most number of games for the Kansas City Royals in center field?
    1. Carlos Beltrán
    2. Johnny Damon
    3. David DeJesus
    4. Amos Otis
    5. Willie Wilson

  9. Who played the most number of games for the Kansas City Royals in right field?
    1. Al Cowens
    2. Jermaine Dye
    3. Jim Eisenreich
    4. Danny Tartabull
    5. Mark Teahen
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#9/18/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(261) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 261" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon