<% ' If date is in the future redirect to default if DateDiff("d",CDate(#9/8/2009#),date()) < 0 then response.redirect("default.asp") end if %> 1998 World Series

Daily Baseball Quiz

Tuesday, September 8, 2009
Today's theme is: 1998 World Series

Who struck out 13 batters and pitched the most innings during the 1998 World Series?
Who hit two home runs in game 1 of the 1998 World Series?
Who hit two home runs in game 3 of the 1998 World Series?
Who hit a grand slam during the 1998 World Series?
Which pitcher gave up a grand slam during the 1998 World Series?
Who was named the Most Valuable Player of the 1998 World Series?
Who struck out seven times during the 1998 World Series?
Who hit the only triple of the 1998 World Series?
Who made the last out of the 1998 World Series?

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