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

Daily Baseball Quiz

Monday, November 30, 2009
Today's theme is: Nicknames

  1. Which American League All-Star catcher had the nickname "Blimp"?
    1. Bill Dickey
    2. Carlton Fisk
    3. Frankie Hayes
    4. Elston Howard
    5. Iván Rodríguez

  2. Which American League infielder had the nickname "Darkie"?
    1. Harlond Clift
    2. Frankie Crosetti
    3. Alvin Dark
    4. Bobby Richardson
    5. George Sisler

  3. Which Yankee shortstop was nicknamed "The Scooter"?
    1. Frankie Crosetti
    2. Bucky Dent
    3. Tony Kubek
    4. Gil McDougald
    5. Phil Rizzuto

  4. Which 1944 All-Star pitcher was known as "Abba Dabba"?
    1. Hank Borowy
    2. Bob Muncrief
    3. Ken Raffensberger
    4. Jim Tobin
    5. Bucky Walters

  5. Which stolen base leader was nicknamed "Deerfoot"?
    1. Lou Brock
    2. Rickey Henderson
    3. Clyde Milan
    4. Tim Raines
    5. George Sisler

  6. Who is the "Crime Dog"?
    1. Ken Griffey, Jr.
    2. Ken Griffey, Sr.
    3. Fred McGriff
    4. Eduardo Pérez
    5. Tony Pérez

  7. Which pitcher is known as the "D Train"?
    1. Don Drysdale
    2. Don Gullett
    3. Walter Johnson
    4. Don Sutton
    5. Dontrelle Willis

  8. Which pitcher was nicknamed "Dragon Slayer"?
    1. Josh Beckett
    2. Aaron Cook
    3. Josh Fogg
    4. Jason Marquis
    5. Jeff Suppan

  9. Which Japanese player was nicknamed "Godzilla"?
    1. Akinori Iwamura
    2. Hidecki Matsui
    3. Daisuke Matsuzaka
    4. Ichiro Suzuki
    5. So Taguchi
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/30/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(334) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 334" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon