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

Daily Baseball Quiz

Friday, January 2, 2009
Today's theme is: Baseball Players Born On January 2

Who pitched a perfect game as a member of the New York Yankees on July 18, 1999?
Who won the American League Cy Young Award in 1994?
Who hit a home run in the third inninng of the 1997 All-Star Game?
Which player played for eleven different teams?
Which player was born on the same day as David Cone?
Who played for the Arizona Diamondbacks in the 2001 World Series?
Who was a member of the 1984 U. S. Olympic Team?
Who won the 2004 Roberto Clemente Award?
Who won the 1998 Hutch Award?

<% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#1/2/2009#) ' Compare dates comparison = DateDiff("d",expdate,currentDate) ' If date is in the past display the link if comparison > 0 then %>

<% 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(2) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 2" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>