<%
Private Sub ShowItem (name, o)
Dim i, n
if isObject (o) then
Response.Write "est un objet: je ne sais pas les afficher."
else
Response.Write "" & name & ""
if isArray (o) then
n = UBound (o)
Response.Write " array [" & n+1 & "]:"
for i = 0 to n
Response.Write "- "
Call ShowItem (name & "(" & i & ")", o(i))
Response.Write "
"
next
Response.Write "
"
else
Response.Write " = """ & Server.HTMLEncode (o) & """"
end if
end if
end Sub
%>