<%@ Language=VBScript EnableSessionState=FALSE%> <!--#include file="tzsessions.asp"--> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>TzSession Example - Counting</title> </head> <body> <% ' Call TzStartSession() before using TzSession and TzId. TzStartSession() ' Load any string into the TzSession Dictionary object. TzSession("login_id") = "Herten" TzSession("count") = TzSession("count") + 1 ' Write out any variables stored in the TzSession Dictionary object. Response.Write(TzSession("count")) Response.Write("<br/><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?TzId=" & TzId & """>Increase Count</a>") Response.Write("<br/><br/> TzId: " & TzId) Response.Write("<br/><br/><a href=""" & Request.ServerVariables("SCRIPT_NAME") & """>Zero Count (Link With No TzId)</a>") ' Call if TzWriteSession() if any changes are made to the TzSession Dictionary object. TzWriteSession() ' In a html form pass the TzId in a hidden input field: ' Response.Write("<input type=""hidden"" name=""TzId"" value="&TzId&">") %> <br/><br/><br/> Use the TzDumpDictionary() utility subroutine, during debugging, to print out the TzSession Dictionary object: <br /> <% TzDumpDictionary(TzSession) %> </body> </html>