<% ' If date is in the future redirect to default if DateDiff("d",CDate(#12/1/2009#),date()) < 0 then response.redirect("default.asp") end if %> World Baseball Classic

Daily Baseball Quiz

Tuesday, December 1, 2009
Today's theme is: World Baseball Classic

  1. Which team won the first World Baseball Classic in 2006?
    1. Cuba
    2. Dominican Republic
    3. Japan
    4. Korea
    5. Puerto Rico

  2. Which team won the second World Baseball Classic in 2009?
    1. Japan
    2. Korea
    3. Puerto Rico
    4. United States of America
    5. Venezuela

  3. Who was named the Most Valuable Player of the first World Baseball Classic in 2006?
    1. Ryoki Aikawa
    2. Kosuke Fukudome
    3. Ken Griffey, Jr.
    4. Daisuke Matsuzaka
    5. Ichiro Suzuki

  4. Who was named the Most Valuable Player of the second World Baseball Classic in 2009?
    1. Kosuke Fukudome
    2. Akinori Iwamura
    3. Kenji Johjima
    4. Daisuke Matsuzaka
    5. Ichiro Suzuki

  5. Which team was beaten twice and eliminated by the Netherlands in the second World Baseball Classic in 2009?
    1. Cuba
    2. Dominican Republic
    3. Italy
    4. Panama
    5. United States of America

  6. Which was the only team to win six games in the first World Baseball Classic in 2006?
    1. Cuba
    2. Dominican Republic
    3. Japan
    4. Korea
    5. Puerto Rico

  7. Who was the first player to have seven RBI in a World Baseball Classic game?
    1. Kosuke Fukudome
    2. Ken Griffey, Jr.
    3. Nobuhiko Matsunaka
    4. Iván Rodriíguez
    5. Ichiro Suzuki

  8. Who had the last two RBI of the second World Baseball Classic in 2009?
    1. Kosuke Fukudome
    2. Tadahito Higuchi
    3. Akinori Iwamura
    4. Kenji Johjima
    5. Ichiro Suzuki

  9. Who hit the last home run of the second World Baseball Classic in 2009?
    1. Frederich Cepeda
    2. Shin-Soo Choo
    3. Tae Kyun Kim
    4. Brian Roberts
    5. Ichiro Suzuki
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#12/1/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(335) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 335" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon