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

Daily Baseball Quiz

Thursday, July 23, 2009
Today's theme is: Uniform Numbers

  1. What number did Jack Wilson wear on his uniform in 2001 and 2002 while playing for the Pittsburgh Pirates?
    1. 2
    2. 12
    3. 22
    4. 32
    5. 42

  2. Which player with a family name of Cabrera, wore number 20 his rookie year, and later switched to wearing number 24 on his uniform?
    1. Asdrubal Cabrera
    2. Daniel Cabrera
    3. Melky Cabrera
    4. Miguel Cabrera
    5. Orlando Cabrera

  3. What number was Josh Beckett wearing when the 2003 World Series ended?
    1. 19
    2. 21
    3. 25
    4. 41
    5. 61

  4. What number did Gil Hodges wear in 1943, his first year with the Brooklyn Dodgers?
    1. 4
    2. 14
    3. 24
    4. 34
    5. 37

  5. What number did Frank Howard wear when he played for the Los Angeles Dodgers?
    1. 9
    2. 19
    3. 25
    4. 33
    5. 44

  6. What number did Andy Pettitte wear when he played for the Houston Astros?
    1. 20
    2. 21
    3. 22
    4. 41
    5. 46

  7. What number did Nolan Ryan wear when he played for the Houston Astros and the Texas Rangers?
    1. 30
    2. 31
    3. 32
    4. 33
    5. 34

  8. What number did Jamie Moyer wear when he pitched for the Seattle Mariners?
    1. 39
    2. 41
    3. 49
    4. 50
    5. 51

  9. What number did Alvin Dark wear when playing for the New York Giants and Milwaukee Braves?
    1. 2
    2. 11
    3. 17
    4. 19
    5. 23
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#7/23/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(204) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 204" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon