The code copy is as follows:
<%
'//-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunctionTrace(s)
OnErrorResumeNext
Response.Write(s&vbCrLf)
Response.End()
EndFunction
%>
The following is a modified and upgraded version, which is still under testing...
The code copy is as follows:
<%
'//-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
FunctionTrace(s)
OnErrorResumeNext
IfIsArray(s)Then
Fori=0ToUBound(s)
Response.Write(s(i)&vbCrLf)
Next
Else
Response.Write(s&vbCrLf)
EndIf
Response.End()
EndFunction
%>