Die Codekopie lautet wie folgt:
<%
'// ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktionsüberwachung (en)
OnErrorresumeNext
Antwort.Write (S & VBCRLF)
Antwort.end ()
Endfunktion
%>
Das Folgende ist eine modifizierte und aktualisierte Version, die noch zu testen ist ...
Die Codekopie lautet wie folgt:
<%
'// ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktionsüberwachung (en)
OnErrorresumeNext
Ifisarray (s) dann
Fei = 0toubund (s)
Response.write (s (i) & vbcrlf)
Nächste
Anders
Antwort.Write (S & VBCRLF)
Endif
Antwort.end ()
Endfunktion
%>