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

Daily Baseball Quiz

Thursday, December 3, 2009
Today's theme is: Triples

  1. Who was the first Minnesota Twin to hit 20 triples in one season?
    1. Carlos Gómez
    2. Christian Guzmán
    3. Kirby Puckett
    4. Cesar Tovar
    5. Zoilo Versalles

  2. Who lead the American League in triples in 1920?
    1. Ty Cobb
    2. Joe Jackson
    3. George Sisler
    4. Tris Speaker
    5. Bobby Veach

  3. Who is the first player to hit a triple for the 3000th hit of his career?
    1. Craig Biggio
    2. Wade Boggs
    3. Tony Gwynn
    4. Al Kaline
    5. Paul Molitor

  4. Who is the first player to hit 100 triples as a Saint Louis Cardinal?
    1. Jim Bottomley
    2. Lou Brock
    3. Rogers Hornsby
    4. Stan Musial
    5. Enos Slaughter

  5. Who is the first player in the American League to hit two bases loaded triples in one game?
    1. Bill Burton
    2. Eddie Collins
    3. Shano Collins
    4. Duane Kuiper
    5. Elmer Valo

  6. Who was the last Brooklyn Dodger to hit a bases loaded triple and a grand slam in the same game?
    1. Dolph Camilli
    2. Roy Campanella
    3. Luis Olmo
    4. Jackie Robinson
    5. Duke Snider

  7. Who was the first player to hit three bases loaded triples in one season?
    1. Bill Burton
    2. Eddie Collins
    3. Shano Collins
    4. Duane Kuiper
    5. Elmer Valo

  8. Who hit his only triple of the season when hit for the cycle in 2008?
    1. Adrián Beltré
    2. Stephen Drew
    3. Carlos Gómez
    4. Cristian Guzmán
    5. Mark Kotsay

  9. Who was the first player to hit two triples in the only major league game of his career?
    1. Spike Brady
    2. Hal Deviney
    3. Aubrey Epps
    4. Ed Irvin
    5. Chuck Lindstrom
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/3/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(337) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 337" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon