<% ' If date is in the future redirect to default if DateDiff("d",CDate(#11/1/2009#),date()) < 0 then response.redirect("default.asp") end if %> Old Saint Paul Saints

Daily Baseball Quiz

Sunday, November 1, 2009
Today's theme is: Old Saint Paul Saints

  1. Who was the longest tenured manager of the Saint Paul Saints?
    1. Nick Allen
    2. Walter Alston
    3. Mike Kelley
    4. Max Macon
    5. Danny Ozark

  2. Which Saint Paul Saints infielder was the first manager to win World Series titles with two different teams?
    1. Charlie Dressen
    2. Leo Durocher
    3. Miller Huggins
    4. Bill McKechnie
    5. Dick Williams

  3. Who was drafted in the thirteenth round of the 1939 NFL Draft by the Washington Redskins?
    1. Clem Labine
    2. Pat McGlothin
    3. Tom Sunkel
    4. Eric Tipton
    5. Phil Weintraub

  4. Which Saint Paul Saint managed to win four World Series?
    1. Walter Alston
    2. Leo Durocher
    3. Miller Huggins
    4. Gabby Street
    5. Dick Williams

  5. Who hit 25 triples for the Saint Paul Saints in 1925?
    1. Charlie Dressen
    2. Cedric Durst
    3. Fred Hofmann
    4. Fritz Mollwitz
    5. Johnny Neun

  6. Which former Saint Paul Saint walked 16 and threw 3 wild pitches in his major league debut?
    1. Bruno Haas
    2. Clem Labine
    3. Louis Leroy
    4. Tom Sheehan
    5. Stan Williams

  7. Which former Saint Paul Saint was replaced by Walter Alston as manager of the Dodgers?
    1. Otto Bluege
    2. Charlie Dressen
    3. Leo Durocher
    4. Herman Franks
    5. Salty Parker

  8. Who won 31 games for the Saint Paul Saints in 1923?
    1. Clem Labine
    2. Louis Leroy
    3. John Merritt
    4. Wilcy Moore
    5. Tom Sheehan

  9. How many times did the Saint Paul Saints finish the season in first place in the American Association?
    1. 1
    2. 3
    3. 5
    4. 7
    5. 9
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/1/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(305) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 305" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon