La copie de code est la suivante:
<%
'// ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunctionTrace (s)
Onerrorresumenext
Response.Write (S & VBCRLF)
Réponse.end ()
Finition de fin
%>
Ce qui suit est une version modifiée et mise à niveau, qui est toujours en train de tester ...
La copie de code est la suivante:
<%
'// ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunctionTrace (s)
Onerrorresumenext
IfisArray (s) alors
Fori = 0Toubound (s)
Response.Write (S (I) & VBCRLF)
Suivant
Autre
Response.Write (S & VBCRLF)
Endire
Réponse.end ()
Finition de fin
%>