Ups
<%
'sæt cookie
Response.Cookies("HTMLTest")("tid") = Date + 100
Response.Cookies("HTMLTest").Expires = Date + 100
'Hent udløbstiden
udl=Request.Cookies("HTMLTest")("tid")
response.write udl
response.write"<br>Altså om "& DateDiff("d", Now, udl) & " dage"
%>