home *** CD-ROM | disk | FTP | other *** search
- <%
- Counter = Request.Cookies("Counter")
-
- If len(Counter) = 0 Then
- Counter = 0
- Else
- Counter = Counter + 1
- End If
-
- Response.Cookies("Counter") = Counter
-
- %>
- <HTML>
- <HEAD><TITLE>Cookie Demonstration</TITLE></HEAD>
- <BODY>
- <H1>Cookie Value: <%=Counter%></H1>
- </BODY>
- </HTML>