<% ' If date is in the future redirect to default if DateDiff("d",CDate(#11/22/2009#),date()) < 0 then response.redirect("default.asp") end if %> Players With A Kennedy Family Name

Daily Baseball Quiz

Sunday, November 22, 2009
Today's theme is: Players With A Kennedy Family Name

Which Kennedy threw the first no hitter in Comiskey Park?
Which Kennedy managed the Texas Rangers and the Boston Red Sox?
Which pitcher died at age 28 at his in-laws' home in Florida?
Which player was the father of catcher Terry Kennedy?
Which Kennedy lead the American League in games pitched in 1952?
Which infielder is the brother of former Cardinals infielder Jim Kennedy?
Who was the first with a Kennedy family name to win a Silver Slugger award?
Which Kennedy was a first round draft pick of the New York Yankees and received a signing bonus of over US$2,000,000?
Who was the first with a Kennedy family name to get a hit in a World Series game?

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