<% ' If date is in the future redirect to default if DateDiff("d",CDate(#6/19/2009#),date()) < 0 then response.redirect("default.asp") end if %> New York Yankees

Daily Baseball Quiz

Friday, June 19, 2009
Today's theme is: New York Yankees

Who was the first New York Yankee player to later manage the Kansas City Royals?
Who was the first New York Yankee to hit two home runs in one inning?
Who was the first New York Yankee to be caught stealing three times in one game?
Who was the first New York Yankee pitcher to commit four balks in one game?
Who was the first New York Yankee pitcher to give up five home runs in one game?
Who was the first New York Yankee to have six hits in one game?
Who pitched the first no hitter for the New York Yankees?
Who was the first person to play 2400 games for the New York Yankees?
Who was the first person to hit 150 triples for the New York Yankees?

<% ' Get the current date currentDate = date() ' Convert the expiration date expdate = CDate(#6/19/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(170) set rs = conn.execute(sql) counter = cint(rs("Count")) counter = counter + 1 sql = "UPDATE counter set Count ='"& counter &"' WHERE counterID = 170" set rs = conn.execute(sql) Set rs = Nothing conn.close set conn = nothing %>