<% ' If date is in the future redirect to default if DateDiff("d",CDate(#5/27/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players Born On May 27

Daily Baseball Quiz

Wednesday, May 27, 2009
Today's theme is: Players Born On May 27

  1. Who was born the same day as Frank Thomas?
    1. Jeff Bagwell
    2. Jacob Brunfield
    3. Todd Hundley
    4. John Jaha
    5. Jim Vatcher

  2. Who was the youngest player in the American League in 1982?
    1. Bud Anderson
    2. Jacob Brunfield
    3. Scott Jordan
    4. Edwin Núñez
    5. Ron Tingley

  3. Which former infielder coached the University of Arizona to three College World Series titles?
    1. Dan Ardell
    2. John Dudra
    3. Pinky Higgins
    4. Tom Hurd
    5. Jerry Kindall

  4. Who won the 1994 American League Most Valuable Player award?
    1. Jeff Bagwell
    2. Todd Hundley
    3. John Jaha
    4. Gary Nolan
    5. Frank Thomas

  5. Which reliever had his uncle Bob as his bullpen coach while pitching for the Angels?
    1. Bud Anderson
    2. Ross Baumgarten
    3. Fred Bruckbauer
    4. Mark Clear
    5. Edwin Núñez

  6. Who was the first visiting player to hit a home run into McCovey Cove?
    1. Jeff Bagwell
    2. Mike Caruso
    3. Todd Hundley
    4. Scott Jordan
    5. Jim Vatcher

  7. Who took over as manager of the Philadelphia Phillies in July of 1954?
    1. Terry Collins
    2. Pinky Higgins
    3. Jim Holt
    4. Jerry Kindall
    5. Terry Moore

  8. Who was the first member of the Chickasaw Nation to play in the major leauges?
    1. Bill Ludwig
    2. Euel Moore
    3. Terry Moore
    4. Frank Snyder
    5. Hal Spindel

  9. Who won the 1975 Hutch Award?
    1. Ray Daviault
    2. Harvey Gentry
    3. Jimmy Hallinan
    4. Gary Nolan
    5. George O'Donnell
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/27/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(147) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 147" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 John Michael Pierobon