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

Daily Baseball Quiz

Saturday, May 9, 2009
Today's theme is: No Hitters

  1. Who threw the first no hitter without a strikeout?
    1. Al Atkinson
    2. Ted Breitenstein
    3. Pud Galvin
    4. Ken Holtzman
    5. Frank Smith

  2. Who threw the first no hitter in the history of the Cleveland Indians?
    1. Ray Caldwell
    2. Bob Feller
    3. Wes Ferrell
    4. Addie Joss
    5. Bob Rhoads

  3. Who was the first pitcher to throw a no hitter on opening day?
    1. Bob Feller
    2. Sandy Koufax
    3. Jack Morris
    4. Juan Nieves
    5. Nolan Ryan

  4. How many Oakland Athletics pitchers combined to no hit the California Angels in 1975?
    1. 2
    2. 3
    3. 4
    4. 5
    5. 6

  5. Who threw the first no hitter of the 21st century?
    1. A. J. Burnett
    2. Derek Lowe
    3. Kevin Millwood
    4. Hideo Nomo
    5. Bud Smith

  6. How many Houston Astros pitchers combined to no hit the New York Yankees in 2003?
    1. 2
    2. 3
    3. 4
    4. 5
    5. 6

  7. Which National League pitcher threw a no hitter and lost the game?
    1. Jim Bunning
    2. Ken Johnson
    3. Sandy Koufax
    4. Jim Maloney
    5. Juan Marichal

  8. Which was the first team to throw a combined no hitter?
    1. Baltimore Orioles
    2. Chicago White Sox
    3. Houston Astros
    4. New York Yankees
    5. Pittsburgh Pirates

  9. Which was the first team to throw an extra inning combined no hitter?
    1. Chicago White Sox
    2. Houston Astros
    3. New York Yankees
    4. Oakland Athletics
    5. Pittsburgh Pirates
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/9/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(129) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 129" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon