ok, te dejo el codigo... espero te sirva
Código:
Set FSOXLS = Server.CreateObject("Scripting.FileSystemObject")
PathXLS = "ruta_del_archivo/archivo.xls"
PathXLS = server.MapPath(PathXLS)
Set Arch_Excel = FSOXLS.CreateTextFile(PathXLS, True)
FinLinea = "Columna1" & chr(9) & "Columna2"
Arch_Excel.writeline FinLinea
for I = 1 to 25
FinLinea = I & chr(9) & "fila " & I & chr(9)
Arch_Excel.writeline FinLinea
next
en vez del For utiliza un while si se trata de un recordset hasta que sea fin de archivo
nota: el archivo debe existir. si no existe entonces has una funcion para crear el archivo y si no sabes entra a esta dirección:
http://www.faqsdelweb.com/index.php?...f_id=2&s_id=30