long = UsrID
Example Usage:
ASP Source Code:<% @ Language = VBScript EnableSessionState = False %> <% Dim a a = UsrID If IsNull(a) Then ' session disabled or unavailable due to error... response.write "SessionID not available at this time. " & _ "You will not be able to save " & _ "items into your shopping cart " & _ "at this time." End If %>
<% Private Function UsrID() On Error Resume Next UsrID = Session.SessionID If IsNumeric(UsrID) Then UsrID = CLng(UsrID) If Err Then UsrID = Null On Error GoTo 0 End Function %>