<% ' If date is in the future redirect to default if DateDiff("d",CDate(#1/12/2009#),date()) < 0 then response.redirect("default.asp") end if %> New York Mets Who Have Hit For The Cycle

Daily Baseball Quiz

Monday, January 12, 2009
Today's theme is: New York Mets Who Have Hit For The Cycle

Who was the first New York Met to hit for the cycle?
Which former New York Met also hit for the cycle in the American League?
Which Rookie of the Year Award winner hit for the cycle while playing for the Mets?
Who was the first New York Met to hit for the cycle in the 21st century?
Who hit 69 home runs, a PAC-10 record, while playing at UCLA?
Who was the first player to steal more than 20 bases in a season without being caught?
Who is the first Met to score 100 runs in a season?
Who was the first Met to win the The Sporting News Comeback Player of the Year Award?
Who was the first Met to walk 125 times in one season?

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