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

Daily Baseball Quiz

Thursday, May 14, 2009
Today's theme is: Managers Of The Houston Astros

  1. Who was the manager of the Houston Astros in their first World Series?
    1. Cecil Cooper
    2. Leo Durocher
    3. Phil Garner
    4. Art Howe
    5. Jimy Williams

  2. Which Houston Astros manager once lead the American League in doubles?
    1. Cecil Cooper
    2. Phil Garner
    3. Preston Gómez
    4. Bob Lillis
    5. Bill Virdon

  3. Whose tenure as manager of the Houston Astros lasted for only one game?
    1. Lum Harris
    2. Grady Hatton
    3. Hal Lanier
    4. Salty Parker
    5. Harry Walker

  4. Which Houston Astros manager once won the National League batting championship?
    1. Cecil Cooper
    2. Phil Garner
    3. Preston Gómez
    4. Bill Virdon
    5. Harry Walker

  5. Who was suspended during the 1947 season by Commissioner Happy Chandler?
    1. Leo Durocher
    2. Preston Gómez
    3. Salty Parker
    4. Harry Walker
    5. Jimy Williams

  6. Who wrote the book "This Ain't Brain Surgery"?
    1. Larry Dierker
    2. Leo Durocher
    3. Phil Garner
    4. Bill Virdon
    5. Harry Walker

  7. Who was the first to manage the Baltimore Orioles and then the Atlanta Braves?
    1. Leo Durocher
    2. Lum Harris
    3. Bill Virdon
    4. Jimy Williams
    5. Harry Walker

  8. Which Houston Astros manager made his major league debut on his 18th birthday?
    1. Cecil Cooper
    2. Larry Dierker
    3. Phil Garner
    4. Preston Gómez
    5. Bill Virdon

  9. Which Houston Astros manager was a Rule 5 draftee and then selected in the 1969 expansion draft?
    1. Terry Collins
    2. Cecil Cooper
    3. Phil Garner
    4. Lum Harris
    5. Jimy Williams
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/14/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(134) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 134" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon