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

Daily Baseball Quiz

Saturday, August 29, 2009
Today's theme is: Most Games Played By Position For The Houston Astros

  1. Who was the first pitcher to start 300 games for the Houston Astros?
    1. Larry Dierker
    2. Bob Knepper
    3. Joe Niekro
    4. Roy Oswalt
    5. Nolan Ryan

  2. Who caught the most number of games for the Houston Astros?
    1. Alan Ashby
    2. Brad Ausmus
    3. John Bateman
    4. Johnny Edwards
    5. Tony Eusebio

  3. Who played the most number of games for the Houston Astros at first base?
    1. Jeff Bagwell
    2. Lance Berkman
    3. Glenn Davis
    4. Lee May
    5. Bob Watson

  4. Who played the most number of games for the Houston Astros at second base?
    1. Craig Biggio
    2. Bill Doran
    3. Tommy Helms
    4. Art Howe
    5. Joe Morgan

  5. Who played the most number of games for the Houston Astros at third base?
    1. Bob Aspromonte
    2. Enos Cabell
    3. Ken Caminiti
    4. Morgan Ensberg
    5. Doug Rader

  6. Who played the most number of games for the Houston Astros at shortstop?
    1. Adam Everett
    2. Roger Metzger
    3. Rafael Ramírez
    4. Craig Reynolds
    5. Dickie Thon

  7. Who played the most number of games for the Houston Astros in left field?
    1. Lance Berkman
    2. José Cruz
    3. Luis González
    4. Al Spangler
    5. Bob Watson

  8. Who played the most number of games for the Houston Astros in center field?
    1. César Cedeño
    2. Steve Finley
    3. Richard Hidalgo
    4. Jimmy Wynn
    5. Gerald Young

  9. Who played the most number of games for the Houston Astros in right field?
    1. Kevin Bass
    2. Derek Bell
    3. José Cruz
    4. Terry Puhl
    5. Rusty Staub
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/29/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(241) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 241" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon