<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
' Ensure that this page is not cached
Response.Expires = 0
%>
<HTML>
<HEAD>
<TITLE>Using Session Variables</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Using Session Variables</b></font><br>
<hr size="1" color="#000000">
<%
' If this is the first time a user has visited
' the page, initialize Session Value
If (Session("SessionCountVB") = "") Then
Session("SessionCountVB") = 0
End If
' Increment the Session PageCount by one.
' Note that this PageCount value is only
' for this user's individual session
Session("SessionCountVB") = Session("SessionCountVB") + 1
%>
<!-- Output the Session Page Counter Value -->
You have personally visited this page
<%=Session("SessionCountVB")%> times!
<!-- Provide a link to revisit the page -->
<p><A href = "Session_VBScript.asp">Click here to visit it again</A>
</BODY>
</HTML>