Desde Excel a ASP

[Yoston]

Hola..
Este script graba los datos de una database a una pag Microsoft Excel.


<%@ Language=VBScript%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "DSN=Tu_DSN"

RecSet.Open "Select * From... ", Conn
Response.ContentType = "application/vnd.ms-excel"
Response.Write "<table border=1><tr bgcolor=cccccc>"
For x = 0 to RecSet.Fields.Count-1
Response.Write "<td>" & RecSet.Fields(x).Name & " </td>"
Next
Response.Write "</tr>"
While Not RecSet.EOF
Response.Write "<tr>"
For y = 0 to RecSet.Fields.Count-1
Response.Write "<td>" & RecSet.Fields(y).Value & " </td>"
Next
Response.Write "</tr>"
RecSet.MoveNext
Wend
Response.Write "</table>"

RecSet.Close
Set RecSet = Nothing
Conn.Close
Set Conn = Nothing
%>

otra forma...

<%@ Language=VBScript %>
<%
Set DB = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
DB.Open "Tu_DSN"
RS.Open "select * from.. ",DB
Response.ContentType = "application/csv"
Response.AddHeader "Content-Disposition", "filename=mydata.csv;"
for i = 0 to RS.Fields.Count-1
if i = (RS.Fields.Count - 1) then
Response.Write RS.Fields(i).Name
else
Response.Write RS.Fields(i).Name & ","
end if
next
Response.write vbNewLine
Response.write vbNewLine
while not RS.EOF
for u=0 to RS.Fields.Count - 1
if u = (RS.Fields.Count - 1) then
Response.Write RS.Fields(u).Value
else
Response.Write RS.Fields(u).Value & ","
end if
next
response.write vbNewLine
rs.MoveNext
wend
Response.write vbNewLine
Response.write vbNewLine
Set RS = Nothing
Set DB = Nothing
%>

Chausito...ojala te sirva de algo
:cantar: