<% ' If date is in the future redirect to default if DateDiff("d",CDate(#8/4/2009#),date()) < 0 then response.redirect("default.asp") end if %> Houston Astros Infielders

Daily Baseball Quiz

Tuesday, August 4, 2009
Today's theme is: Houston Astros Infielders

  1. Who won the Lou Gehrig award in 1990?
    1. Buddy Bell
    2. Ken Caminiti
    3. Casey Candaele
    4. Glenn Davis
    5. Bill Doran

  2. Who was the first Houston Astro to twice hit three home runs in one game?
    1. Jeff Bagwell
    2. Lance Berkman
    3. Vinny Castilla
    4. Glenn Davis
    5. Morgan Ensberg

  3. Who was the first Houston Astro to hit three triples in one game?
    1. Buddy Bell
    2. Bill Doran
    3. Morgan Ensberg
    4. Joe Morgan
    5. Craig Reynolds

  4. Who was the first Houston Astro to hit 14 triples in one season?
    1. Craig Biggio
    2. Bill Doran
    3. Roger Metzger
    4. Joe Morgan
    5. Doug Rader

  5. Who was the first Houston Astro to have a 25 game hitting streak?
    1. Jeff Bagwell
    2. Lance Berkman
    3. Craig Biggio
    4. Jeff Kent
    5. Lee May

  6. Who was the first to be hit by the pitch 100 times while playing for the Houston Astros?
    1. Jeff Bagwell
    2. Lance Berkman
    3. Craig Biggio
    4. Glenn Davis
    5. Doug Rader

  7. Who was the first first baseman to turn seven double plays in a nine inning game?
    1. Jeff Bagwell
    2. Lance Berkman
    3. Curt Blefary
    4. Denis Menke
    5. Bob Watson

  8. Who was the first Houston Astro to win a Gold Glove?
    1. Jeff Bagwell
    2. Craig Biggio
    3. Roger Metzger
    4. Joe Morgan
    5. Doug Rader

  9. Who was the first to hit 100 sacrifice flies while playing for the Houston Astros?
    1. Jeff Bagwell
    2. Lance Berkman
    3. Craig Biggio
    4. Bill Doran
    5. Doug Rader
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/4/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(216) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 216" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon