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

Daily Baseball Quiz

Monday, December 7, 2009
Today's theme is: Players Born In Delaware

  1. Who played the role of Juan Vasquez in the movie "For The Love Of The Game"?
    1. Jeff Baldwin
    2. Bill Johnson
    3. Renie Martin
    4. Pedro Swann
    5. Chris Welsh

  2. Who was the first player born in Delaware to have thrown 20 or more shutouts in his career?
    1. Huck Betts
    2. Bert Cunningham
    3. Sadie McMahon
    4. Chris Short
    5. Happy Townsend

  3. Which player, born in Delaware, was nicknamed "Shrek" because of the size of his head?
    1. Wayne Franklin
    2. Dallas Green
    3. Kevin Mench
    4. John O'Donoghue
    5. Ken Szotkiewicz

  4. Who was the first player to have four hits in his major league debut?
    1. Delino DeShields
    2. Spook Jacobs
    3. Dave May
    4. John Morris
    5. Al Neiger

  5. Who was the first pitcher to throw five wild pitches in one inning?
    1. Bert Cunningham
    2. Wes Curry
    3. Bill Hawke
    4. Sadie McMahon
    5. George Prentiss

  6. Who threw the first no hitter after the distance between the mound and home plate was moved to 60 feet 6 inches?
    1. Bill Crouch
    2. Bill Hawke
    3. Harry Hoch
    4. Joseph Meyers
    5. Barney Slaughter

  7. Who, in 1997, lead the National League in triples with 14?
    1. Delino DeShields
    2. John Mabry
    3. Gino Minutelli
    4. Pedro Swann
    5. Chris Widger

  8. Who was the first player born in Delaware to appear in an All-Star game?
    1. Randy Bush
    2. Dallas Green
    3. Hans Lobert
    4. Dave May
    5. Chris Short

  9. Which player, who became an umpire, lead to rule 7.09(e)?
    1. Wes Curry
    2. George Fisher
    3. Bill Huggins
    4. Will Holland
    5. John Newell
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/7/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(341) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 341" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon