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

Daily Baseball Quiz

Friday, November 6, 2009
Today's theme is: Walter Johnson

  1. How many consecutive seasons of winning 20 or more games did Walter Johnson have?
    1. 8
    2. 9
    3. 10
    4. 11
    5. 12

  2. How many opening day shutouts did Walter Johnson pitch in his career?
    1. 3
    2. 4
    3. 5
    4. 6
    5. 7

  3. How many American League pitching triple crowns did Walter Johnson win in his career?
    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

  4. Against which team did Walter Johnson strike out ten and walked none during his nine inning no hitter?
    1. Boston Red Sox
    2. Cleveland Indians
    3. Chicago White Sox
    4. Detroit Tigers
    5. New York Yankees

  5. For how many seasons did Walter Johnson pitch in the American League?
    1. 14
    2. 15
    3. 20
    4. 21
    5. 22

  6. Which Hall of Famer did Walter Johnson strike out for his 3000th strike out?
    1. Ty Cobb
    2. Stan Coveleski
    3. Sam Crawford
    4. Lou Gehrig
    5. Babe Ruth

  7. In what city is Walter Johnson High School?
    1. Bethesda, Maryland
    2. Bridgeport, Connecticut
    3. Cleveland, Ohio
    4. Humboldt, Kansas
    5. Rockville, Maryland

  8. Which batter did Walter Johnson face the most?
    1. Ty Cobb
    2. Stan Coveleski
    3. Sam Crawford
    4. Lou Gehrig
    5. Babe Ruth

  9. Where was Walter Johnson born?
    1. Bethesda, Maryland
    2. Bridgeport, Connecticut
    3. Cleveland, Ohio
    4. Humboldt, Kansas
    5. Los Angeles, California
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/6/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(310) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 310" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon