ASP Excel

[dguerr]

Set fs = Server.CreateObject("Scripting.FileSystemObje ct")
Set fichero = fs.CreateTextFile("c:\datos\algo.xls",Tr ue)'path

Dim pag, iEstado
Dim oConn, SQL, rs
Dim aDatos, iTotal
Dim I, J

set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.open "DSN=cancela"
SQL="SELECT clsid,central,count(*) as num FROM diario Group By central WHERE tele = ANY (SELECT tele FROM acumave ) "
rs.Open SQL, oConn

do while not rs.EOF
fichero.write rs("central")
fichero.write(chr(9))
fichero.write rs("clsid")'registros
fichero.write(chr(13))
rs.MoveNext
loop

fichero.close
set fichero = nothing
%>

Salu2, cualquier cosa no dudes en escribir