home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch38 / cookies.asp < prev    next >
Encoding:
Text File  |  1997-07-02  |  288 b   |  18 lines

  1. <%
  2. Counter = Request.Cookies("Counter")
  3.  
  4. If len(Counter) = 0 Then
  5.     Counter = 0
  6. Else
  7.     Counter = Counter + 1
  8. End If
  9.  
  10. Response.Cookies("Counter") = Counter
  11.  
  12. %>
  13. <HTML>
  14. <HEAD><TITLE>Cookie Demonstration</TITLE></HEAD>
  15. <BODY>
  16. <H1>Cookie Value: <%=Counter%></H1>
  17. </BODY>
  18. </HTML>