<% ' If date is in the future redirect to default if DateDiff("d",CDate(#11/21/2009#),date()) < 0 then response.redirect("default.asp") end if %> National League Pitchers Who Threw A No Hitter

Daily Baseball Quiz

Saturday, November 21, 2009
Today's theme is: National League Pitchers Who Threw A No Hitter

  1. Who, in 1974, hit the first three batters he faced at the start of a game?
    1. Dock Ellis
    2. Bob Gibson
    3. Ken Holtzman
    4. Bill Singer
    5. Rick Wise

  2. Who was the first National League pitcher to give up two runs in the game he threw a no hitter?
    1. Bumpus Jones
    2. Don Nottebart
    3. Ben Sanders
    4. Dazzy Vance
    5. Vic Willis

  3. Who was the last pitcher to pitch 13 shutouts in one season?
    1. Bob Gibson
    2. Sandy Koufax
    3. Juan Marichal
    4. Mike Scott
    5. Tom Seaver

  4. Who lead the National League in strikeouts, in wins, and in ERA in 1924?
    1. Jesse Barnes
    2. Jesse Haines
    3. Carl Hubbell
    4. Rube Marquard
    5. Dazzy Vance

  5. Who was the first pitcher to hit 35 career home runs in the National League?
    1. Bob Gibson
    2. Milt Pappas
    3. Warren Spahn
    4. Cy Young
    5. Carlos Zambrano

  6. Who lead the National League in ERA in 1962?
    1. Bob Gibson
    2. Sandy Koufax
    3. Juan Marichal
    4. Phil Niekro
    5. Warren Spahn

  7. Who was the first pitcher to throw a no hitter in Colorado?
    1. Darryl Kile
    2. Al Leiter
    3. Ramón Martínez
    4. Kent Mercker
    5. Hideo Nomo

  8. Who gave up Willie Mays' 500th career home run in 1965?
    1. Jim Bunning
    2. Ken Johnson
    3. Sandy Koufax
    4. Jim Maloney
    5. Don Nottebart

  9. Who, in 1969, was traded by the Cincinnati Reds to the Saint Louis Cardinals for Ray Washburn?
    1. Lew Burdette
    2. George Culver
    3. Bob Forsch
    4. Jim Maloney
    5. Don Nottebart
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/21/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(325) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 325" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon