<% ' If date is in the future redirect to default if DateDiff("d",CDate(#11/10/2009#),date()) < 0 then response.redirect("default.asp") end if %> Marines Who Played In The Major Leagues

Daily Baseball Quiz

Tuesday, November 10, 2009
Today's theme is: Marines Who Played In The Major Leagues

  1. What was the highest rank Jerry Coleman, the radio voice of the San Diego Padres, attained in the Marine Corps?
    1. Corporal
    2. First Lieutenant
    3. Lieutenant Coronel
    4. Major
    5. Second Lieutenant

  2. Who caught an entire game without a putout or an assist in 1942?
    1. Chick Autry
    2. George Bradshaw
    3. Nig Clarke
    4. Gene Desautels
    5. Aubrey Epps

  3. Who served as an anti-aircraft gunner in the battles of Tinian and Okinawa, and received a Bronze Star?
    1. Buddy Hancken
    2. Gil Hodges
    3. Dee Moore
    4. Ted Pawelek
    5. Joe Pignatano

  4. Which catcher was killed in action on Iwo Jima?
    1. Gene Desautels
    2. Aubrey Epps
    3. Buddy Hancken
    4. Harry O'Neill
    5. Johnny Pramesa

  5. Which Marine cultivated a vegetable garden in the bullpen at Shea Stadium?
    1. Bob Addis
    2. Grant Dunlap
    3. Gil Hodges
    4. Mike Kosman
    5. Joe Pignatano

  6. Who managed the Minnesota Twins in 1968?
    1. Hank Bauer
    2. Cal Ermer
    3. Gil Hodges
    4. Sam Mele
    5. Wayne Terwilliger

  7. Which American League player started two triple plays from right field in 1948?
    1. Hank Bauer
    2. Alvin Dark
    3. Bob Kennedy
    4. Bill Renna
    5. Ted Williams

  8. Who was drafted by the New York Giants in the first round in the 1943 NFL Draft?
    1. Alvin Dark
    2. Grant Dunlap
    3. Steve Filipowicz
    4. Warren Hacker
    5. Ernie Nevers

  9. Who was the last major league pitcher to face Babe Ruth?
    1. James Atkins
    2. Dan Bankhead
    3. Joe Berry
    4. Jim Bivin
    5. John Carden
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/10/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(314) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 314" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon