<% ' If date is in the future redirect to default if DateDiff("d",CDate(#5/13/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players With A Black Or Blue Family Name

Daily Baseball Quiz

Wednesday, May 13, 2009
Today's theme is: Players With A Black Or Blue Family Name

  1. Who was the first with the family name of Black to play in major league baseball?
    1. Bill Black
    2. Bob Black
    3. Dave Black
    4. Don Black
    5. John Black

  2. Which Black played in the Federal League?
    1. Bill Black
    2. Bob Black
    3. Dave Black
    4. Don Black
    5. John Black

  3. Who, in 1917, hit a grand slam for each side of the plate in one game while playing the minor leagues?
    1. Bill Black
    2. Dave Black
    3. John Black
    4. Bert Blue
    5. Lu Blue

  4. Who, at age 19, was the youngest player in the National League in 1952?
    1. Bud Black
    2. Dave Black
    3. Don Black
    4. Joe Black
    5. Bert Blue

  5. Who won the National League Rookie of the Year award in 1952?
    1. Bud Black
    2. Don Black
    3. Joe Black
    4. Bert Blue
    5. Vida Blue

  6. On which team were Bud Black and Vida Blue teammates for two seasons?
    1. Cleveland Indians
    2. Kansas City Athletics
    3. Kansas City Royals
    4. Oakland Athletics
    5. San Francisco Giants

  7. Who was the first with the family name of Black to pitch a shutout?
    1. Bob Black
    2. Bud Black
    3. Dave Black
    4. Don Black
    5. Joe Black

  8. Which Black graduated from Morgan State University?
    1. Bob Black
    2. Bud Black
    3. Dave Black
    4. Don Black
    5. Joe Black

  9. Who was the first with the family name of Black to win a World Series game?
    1. Bill Black
    2. Bud Black
    3. Dave Black
    4. Don Black
    5. Joe Black
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#5/13/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(133) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 133" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2008 - 2009 John Michael Pierobon