<% ' If date is in the future redirect to default if DateDiff("d",CDate(#11/29/2009#),date()) < 0 then response.redirect("default.asp") end if %> 2009 National League Opening Day Pitchers

Daily Baseball Quiz

Sunday, November 29, 2009
Today's theme is: 2009 National League Opening Day Pitchers

  1. Who was the 2007 and 2009 opening day starting pitcher for the Colorado Rockies?
    1. Aaron Cook
    2. Jorge De La Rosa
    3. Jeff Francis
    4. Ubaldo Jiménez
    5. Jason Marquis

  2. Who was the 2006, 2007, 2008, and 2009 opening day starting pitcher for the San Diego Padres?
    1. Frankie De La Cruz
    2. Shawn Hill
    3. Jake Peavy
    4. Mark Worrell
    5. Chris Young

  3. Who was the 2009 opening day starting pitcher for the Cincinnati Reds?
    1. Bronson Arroyo
    2. Johnny Cueto
    3. Aaron Harang
    4. Micah Owings
    5. Edinson Volquez

  4. Who was the 2009 opening day starting pitcher for the Los Angeles Dodgers?
    1. Chad Billingsley
    2. Clayton Kershaw
    3. Hiroki Kuroda
    4. James McDonald
    5. Randy Wolf

  5. Who was the 2009 opening day starting pitcher for the Chicago Cubs?
    1. Ryan Dempster
    2. Rich Harden
    3. Aaron Heilman
    4. Ted Lilly
    5. Carlos Zambrano

  6. Who was the 2003, 2004, 2005, 2006, 2007, 2008, and 2009 opening day starting pitcher for the Houston Astros?
    1. Mike Hampton
    2. Brian Moehler
    3. Russ Ortiz
    4. Roy Oswalt
    5. Wandy Rodríguez

  7. Who was the 2009 opening day starting pitcher for the Washington Nationals?
    1. Jason Bergmann
    2. Daniel Cabrera
    3. Michael Hinckley
    4. John Lannan
    5. Scott Olsen

  8. Who was the 2009 opening day starting pitcher for the Saint Louis Cardinals?
    1. Chris Carpenter
    2. Kyle Lohse
    3. Joel Pineiro
    4. Adam Wainwright
    5. Todd Wellemeyer

  9. Who was the 2008 and 2009 opening day starting pitcher for the New York Mets?
    1. John Maine
    2. Mike Pelfrey
    3. Oliver Pérez
    4. Tim Redding
    5. Johan Santana
[PREVIOUS DAY] [INDEX] <% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#11/29/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(333) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 333" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>

© 2009 John Michael Pierobon