A cópia do código é a seguinte:
<%
'// -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunctionTrace (s)
OnErrorReSumenext
Response.Write (S & VBCRLF)
Response.end ()
Função final
%>
A seguir, é apresentada uma versão modificada e atualizada, que ainda está em teste ...
A cópia do código é a seguinte:
<%
'// -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunctionTrace (s)
OnErrorReSumenext
IfisArray (s) então
Fori = 0TOUBULT (s)
Response.write (s (i) e vbcrlf)
Próximo
Outro
Response.Write (S & VBCRLF)
Endif
Response.end ()
Função final
%>