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

Daily Baseball Quiz

Saturday, May 16, 2009
Today's theme is: Managers Of The Texas Rangers

  1. Who was the first manager of the Texas Rangers?
    1. Whitey Herzog
    2. Billy Martin
    3. Del Wilber
    4. Ted Williams
    5. Don Zimmer

  2. Who was the first person to manage the Texas Rangers and the Boston Red Sox?
    1. Whitey Herzog
    2. Darrell Johnson
    3. Kevin Kennedy
    4. Ted Williams
    5. Don Zimmer

  3. Which Texas Rangers manager hit three home runs in consecutive at bats?
    1. Toby Harrah
    2. Billy Martin
    3. Doug Rader
    4. Del Wilber
    5. Ted Williams

  4. Which Texas Rangers manager lead the major leagues in run scored in 1945?
    1. Whitey Herzog
    2. Connie Ryan
    3. Eddie Stanky
    4. Ted Williams
    5. Don Zimmer

  5. Which Texas Rangers manager won five consecutive Gold Glove awards?
    1. Kevin Kennedy
    2. Billy Martin
    3. Doug Rader
    4. Bobby Valentine
    5. Ron Washington

  6. Who is the son-in-law of former Brooklyn Dodgers pitcher Ralph Branca?
    1. Pat Corrales
    2. Toby Harrah
    3. Doug Rader
    4. Buck Showalter
    5. Bobby Valentine

  7. Which Texas Rangers manager did Lenny Randle punch in the face in 1977?
    1. Billy Hunter
    2. Frank Lucchesi
    3. Bill Martin
    4. Eddie Stanky
    5. Del Wilber

  8. Who was the first Texas Rangers manager to have his number retired by the Texas Rangers?
    1. Toby Harrah
    2. Whitey Herzog
    3. Johnny Oates
    4. Billy Martin
    5. Ted Williams

  9. Who was the first Texas Rangers manager to win a playoff game?
    1. Kevin Kennedy
    2. Jerry Narron
    3. Johnny Oates
    4. Buck Showalter
    5. Bobby Valentine
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/16/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(136) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 136" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon