ADO: combinar escribir en pantalla + en archivo

Tengo lo siguiente:

<code>' Name for the ouput document
file_being_created= "tabla.xls"

' create a file system object
set fso = createobject("scripting.filesystemobject")

' create the text file - true will overwrite any previous files
' Writes the db output to a .xls file in the same directory
Set act = fso.CreateTextFile(server.mappath(file_being_created), true)
</code>

Hago esto para escribir en un excel:

<code>act.WriteLine("&lt;table&gt;")
act.WriteLine("&lt;tr&gt;")
</code>etc etc

¿Como puedo hacer para que tambien aparezca por pantalla (response.write), a poder ser en tiempo real (en el mismo paso del loop? Cuando intento un response.write habiendo usado el act.WriteLine me dice que nanai de la china.

Gracias