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

Daily Baseball Quiz

Saturday, November 7, 2009
Today's theme is: Nicknames

  1. Which National League All-Star catcher had the nickname "Ace"?
    1. Johnny Bench
    2. Gary Carter
    3. Ernie Lombardi
    4. Andy Seminick
    5. Jimmie Wilson

  2. Which pitcher had the nickname "The Arkansas Hummingbird"?
    1. Bill Dinneen
    2. Bob Emslie
    3. Charles Ferguson
    4. Bill Kunkel
    5. Lon Warneke

  3. Which Los Angeles Dodger was nicknamed "Three Dog"?
    1. Tommy Davis
    2. Willie Davis
    3. Steve Garvey
    4. Russell Martin
    5. Don Sutton

  4. Whose nickname was ironically "Jurassic" because he did not believe dinosaurs existed?
    1. Milton Bradley
    2. Carl Everett
    3. Billy Koch
    4. Bill Lee
    5. Dale Murphy

  5. Which home run and RBI champion was nicknamed "Swish"?
    1. Ernie Banks
    2. George Foster
    3. Bill Nicholson
    4. Mike Schmidt
    5. Sammy Sosa

  6. Which Los Angeles Dodger was nicknamed "The Bison"?
    1. Tommy Davis
    2. Jim Gilliam
    3. Steve Garvey
    4. Shawn Green
    5. Matt Kemp

  7. Which home run champion had the nickname "The Destroyer"?
    1. Johnny Bench
    2. George Foster
    3. Ken Griffey, Jr.
    4. Dave Kingman
    5. Ted Kluszewski

  8. Which Dodger had the nickname "The Reading Rifle"?
    1. Roy Campanella
    2. Tommy Davis
    3. Carl Furillo
    4. Johnny Podres
    5. Jackie Robinson

  9. Which pitcher had the nickname "Boomer"?
    1. Steve Carlton
    2. Ron Darling
    3. Dennis Eckersley
    4. Cliff Lee
    5. David Wells
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/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(311) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 311" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon