I am trying to itterate through Session.Content and I receive:
An error occurred in the OnEndPage method of an external object.
I do not have OnEndPage method in my code.
Thanks in advance
Leonard
Here is the fragment of my code that is failing:
Dim oCol, strKey, intType, strType, strValue, i
Dim oRS, nSize, nValSize, bReadableItem
intType = 0
strType = ""
bReadableItem = CBool("True")
Set oCol = Session.Contents
Response.Write " object count: " & Session.Contents.Count & "<br>"
i = 1
For Each strKey In oCol
If IsObject( oCol(strKey) ) Then
Response.Write i & " object" & "<br>"
bReadableItem = "False"
ElseIf IsArray( oCol(strKey) ) Then
Response.Write i & " array" & "<br>"
bReadableItem = "False"
Else
Response.Write i & " readable" & "<br>"
intType = VarType(oCol(strKey))
strType = TypeName(oCol(strKey))
bReadableItem = "True"
End If
If bReadableItem = "True" Then
Response.Write i & " " & strKey & " " & strType & "<br>"
strValue = oCol(strKey)
End If
i = i + 1
Next
Here is my output:
object count: 19
1 readable
1 DBUser String
2 readable
2 DBPwd String
3 readable
3 WorkDB String
4 readable
4 gaVRoot String
5 readable
5 paReportPath String
6 readable
6 fakeUser String
7 readable
7 user String
8 readable
8 SpecialAccessIDs String
9 readable
9 IsExpandCurrencySelectionUser Boolean
10 readable
10 xmlFilePath String
11 object
12 object
13 object
14 object
15 object
16 object
17 object
18 object
Exiting...
Active Server Pages error 'ASP 0194'
OnEndPage Failed
/aspx/BR/BRDefault.asp
An error occurred in the OnEndPage method of an external object.