ASP - generacion de archivos txt

Señores:

Necesito saber como a partir de los resultados obtenidos en una pagina, los cuales corresponden a un listado puedo generar un archivo txt con separadores establecidos.

1.- va esto

<% OPTION EXPLICIT
Server.ScriptTimeout = 100
Response.Buffer = true
Response.contenttype = "text/csv"
%>

2.- Suponiendo que la data viene de alguna base de datos aca va
<%
Dim Conn,rs,sql,nombre,rut_prm,linea, fecha, cd_banco,fecarch

connect() ---- esta es una subrutina que tengo yo.... debes poner el string de conexion

ejecuta procedimiento almacenado

carga_datos()
disconnect()

response.redirect "txt/" & trim(fecarch) & ".dat"
fin()

3. Ahora va la subrutina para armar el archivo txt

Sub carga_datos
'--------------
dim lnis,lfecha,lpago,lbanco
dim strfile,fs,responce
strfile = trim(fecarch) & ".dat"
set fs = CreateObject("Scripting.FileSystemObject")
response.write server.MapPath(".") & "\txt\" & StrFile
set responce = fs.CreateTextFile(server.MapPath(".") & "\txt\" & StrFile,True)
set lnis = rs(0)
set lfecha = rs(1)
set lpago = rs(2)
set lbanco = rs(3)
rs.movefirst
while not(rs.eof)
responce.write(lnis.value)
responce.write(lfecha.value)
responce.write(lpago.value)
responce.write(lbanco.value)
responce.writeline()
rs.movenext
wend
end sub

Espero te sirva como base

Suerte