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

Daily Baseball Quiz

Monday, October 12, 2009
Today's theme is: Most Games Played By Position For The Pittsburgh Pirates

  1. Which pitcher started the most number of games for the Pittsburgh Pirates?
    1. Babe Adams
    2. Wilbur Cooper
    3. Bob Friend
    4. Vern Law
    5. Ed Morris

  2. Who has caught the most number of games for the Pittsburgh Pirates?
    1. George Gibson
    2. Jason Kendall
    3. Tony Peña
    4. Manny Sanguillén
    5. Walter Schmidt

  3. Who played the most number of games for the Pittsburgh Pirates at first base?
    1. Jake Beckley
    2. Donn Clendenon
    3. Elbie Fletcher
    4. Gus Suhr
    5. Kevin Young

  4. Who played the most number of games for the Pittsburgh Pirates at second base?
    1. Jose Lind
    2. Bill Maseroski
    3. Johnny Ray
    4. Claude Ritchey
    5. Rennie Stennett

  5. Who played the most number of games for the Pittsburgh Pirates at third base?
    1. Lee Handley
    2. Richie Hebner
    3. Tommy Leach
    4. Bill Madlock
    5. Pie Traynor

  6. Who played the most number of games for the Pittsburgh Pirates at shortstop?
    1. Jay Bell
    2. Dick Groat
    3. Arky Vaughn
    4. Honus Wagner
    5. Jack Wilson

  7. Who played the most number of games for the Pittsburgh Pirates in left field?
    1. Jason Bay
    2. Barry Bonds
    3. Fred Clarke
    4. Ralph Kiner
    5. Willie Stargell

  8. Who played the most number of games for the Pittsburgh Pirates in center field?
    1. Ginger Beaumont
    2. Max Carey
    3. Andy Van Slyke
    4. Bill Virdon
    5. Lloyd Waner

  9. Who played the most number of games for the Pittsburgh Pirates in right field?
    1. Roberto Clemente
    2. Patsy Donovan
    3. Dave Parker
    4. Paul Waner
    5. Chief Wilson
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/12/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(285) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 285" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon