Salinan kode adalah sebagai berikut:
<%
'// ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Functiontrace
OnerrorresumeNext
Response.write (s & vbcrlf)
Response.end ()
Fungsi endfungsi
%>
Berikut ini adalah versi yang dimodifikasi dan ditingkatkan, yang masih dalam pengujian ...
Salinan kode adalah sebagai berikut:
<%
'// ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Functiontrace
OnerrorresumeNext
IfisArray lalu
Fori = 0toubound (s)
Response.write (s (i) & vbcrlf)
Berikutnya
Kalau tidak
Response.write (s & vbcrlf)
Endif
Response.end ()
Fungsi endfungsi
%>