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

Daily Baseball Quiz

Monday, October 26, 2009
Today's theme is: Most Games Played By Position For The Cincinnati Reds

  1. Which pitcher started the most number of games for the Cincinnati Reds?
    1. Tom Browning
    2. Paul Derringer
    3. Dolf Luque
    4. Eppa Rixey
    5. Bucky Walters

  2. Who has caught the most number of games for the Cincinnati Reds?
    1. Johnny Bench
    2. Johnny Edwards
    3. Ernie Lombardi
    4. Joe Oliver
    5. Ivey Wingo

  3. Who played the most number of games for the Cincinnati Reds at first base?
    1. Sean Casey
    2. Dan Driessen
    3. Ted Kluszewski
    4. Frank McCormick
    5. Tony Pérez

  4. Who played the most number of games for the Cincinnati Reds at second base?
    1. Lonny Frey
    2. Bid McPhee
    3. Joe Morgan
    4. Ron Oester
    5. Johnny Temple

  5. Who played the most number of games for the Cincinnati Reds at third base?
    1. Hick Carpenter
    2. Heinie Groh
    3. Grady Hatton
    4. Tony Pérez
    5. Chris Sabo

  6. Who played the most number of games for the Cincinnati Reds at shortstop?
    1. Leo Cárdenas
    2. David Concepción
    3. Tommy Corcoran
    4. Barry Larkin
    5. Roy McMillan

  7. Who played the most number of games for the Cincinnati Reds in left field?
    1. Bob Bescher
    2. Pat Duncan
    3. Adam Dunn
    4. George Foster
    5. Frank Robinson

  8. Who played the most number of games for the Cincinnati Reds in center field?
    1. Gus Bell
    2. Eric Davis
    3. César Gerónimo
    4. Vada Pinson
    5. Edd Roush

  9. Who played the most number of games for the Cincinnati Reds in right field?
    1. Ival Goodman
    2. Ken Griffey, Jr.
    3. Mike Mitchell
    4. Paul O'Neill
    5. Curt Walker
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#10/26/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(299) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 299" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon