יצירה דינאמית של קובץ אקסל

Set rs=Server.CreateObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "myDSN"
sql="SELECT * FROM tbl"
rs.open sql,conn

totalfields=rs.fields.count

response.write "<table border=1><tr>"
For each item in rs.fields
    response.write "<td><b>" & item.name & "</b></td>"
Next
If not rs.eof then
    arrAllData=rs.getrows
    totalrecs=rs.recordcount
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "</tr>"
If totalrecs=0 then
    response.write "<tr><td colspan=" & totalfields & ">No data was returned</td></tr>"
Else
    For rowcount=0 to totalrecs-1
        response.write "<tr>"
        For colcount=0 to totalfields-1
            response.write "<td>" & arrAllData(colcount,rowcount) & "</td>"
        Next
        response.write "</tr>"
    Next
End If
response.write "</table>"