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

Daily Baseball Quiz

Monday, August 17, 2009
Today's theme is: Nicknames

  1. Which spitball pitcher had the nickname "Pick"?
    1. Stan Coveleski
    2. Bill Doak
    3. Ray Fisher
    4. Dick Rudolph
    5. Urban Shocker

  2. Which spitball pitcher had the nickname "Ol' Stubblebeard"?
    1. Phil Douglas
    2. Dana Fillingim
    3. Burleigh Grimes
    4. Allen Russell
    5. Allen Sothoron

  3. Who was nicknamed "Footsie" because had difficulty finding shoes that fit him?
    1. Don Demeter
    2. Mel Hoderlein
    3. Don Lenhardt
    4. Sherm Lollar
    5. Don Mattingly

  4. Which member of the Hall of Fame was nicknamed "Ducky"?
    1. Yogi Berra
    2. Lou Brock
    3. Ralph Kiner
    4. Joe Medwick
    5. Stan Musial

  5. Which Cy Young award winner was nicknamed "Bedrock"?
    1. Steve Bedrosian
    2. Willie Hernández
    3. Pedro Martínez
    4. Don Newcombe
    5. Steve Stone

  6. Which Cy Young award winner was nicknamed "Sweet Music"?
    1. Dean Chance
    2. John Denny
    3. Bob Turley
    4. Frank Viola
    5. Barry Zito

  7. Which Rookie of the Year award winner had the nickname "Clank"?
    1. Tommie Agee
    2. Curt Blefary
    3. Frank Howard
    4. Harvey Kuenn
    5. Don Schwall

  8. Which Rookie of the Year award winner had the nickname "Sarge"?
    1. Tommie Agee
    2. Bob Grim
    3. Tommy Helms
    4. Frank Howard
    5. Gary Matthews

  9. Which pitcher was known as the "Rocket"?
    1. Roger Clemens
    2. Ron Darling
    3. Sid Fernández
    4. Tim Hudson
    5. Mike Scott
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#8/17/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(229) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 229" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon