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

Daily Baseball Quiz

Sunday, June 28, 2009
Today's theme is: Texas Rangers

  1. Who was the first Texas Ranger shortstop to have played an entire doubleheader without having a single fielding chance?
    1. Bert Campaneris
    2. Scott Fletcher
    3. Toby Harrah
    4. Alex Rodríguez
    5. Michael Young

  2. Who were the first pair of Texas Rangers to hit back-to-back inside the park home runs?
    1. Kurt Bevacqua and Bobby Bonds
    2. Bert Campaneris and Toby Harrah
    3. Toby Harrah and Bump Wills
    4. Mark McLemore and Otis Nixon
    5. Al Oliver and Bump Wills

  3. Who was the first Texas Ranger to hit three grand slams in one week?
    1. Pete Incaviglia
    2. Rafael Palmeiro
    3. Larry Parrish
    4. Iván Rodríguez
    5. Rubén Sierra

  4. Who is the first Texas Ranger to steal 40 bases in one season?
    1. Cecil Espy
    2. Dave Nelson
    3. Otis Nixon
    4. Billy Sample
    5. Bump Wills

  5. Who is the first Texas Ranger to win a Silver Slugger award in consecutive years?
    1. Julio Franco
    2. Juan González
    3. Al Oliver
    4. Iván Rodríguez
    5. Rubén Sierra

  6. Who is the first pitcher to save 150 games for the Texas Rangers in his career?
    1. Francisco Cordero
    2. Tom Henke
    3. Jim Kern
    4. Jeff Russell
    5. John Wetteland

  7. Who was the first Texas Ranger to hit a home run in seven consecutive games?
    1. Kevin Mench
    2. Rafael Palmeiro
    3. Alex Rodríguez
    4. Iván Rodríguez
    5. Rubén Sierra

  8. Who is the first pitcher to throw a perfect game as a Texas Ranger?
    1. Jim Bibby
    2. Bert Blyleven
    3. Kenny Rogers
    4. Nolan Ryan
    5. Bobby Witt

  9. Who, in 2007, got the save in the game that the Texas Rangers beat the Baltimore Orioles 30 to 3?
    1. Joaquín Benoit
    2. Eric Gagné
    3. Wes Littleton
    4. Akinori Otsuka
    5. C. J. Wilson
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#6/28/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(179) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 179" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon