Ciao a tutti,

Questo codice, in teoria, dovrebbe trasformare una pagina asp in un report excel, dico dovrebbe perchè non mi visualizza niente...

il problema è che mi sembra giusto come codice quindi ho deciso di postarlo per vedere se voi riuscite a trovare l'errore...


<%

' stringa di conn
strConn = "Provider=sqloledb; Data Source=localhost; Initial Catalog=pubs; Integrated Security=SSPI;"

' apro la connessione
Set Conn = Server.CreateObject( "ADODB.Connection" )
Conn.Open "Select"

' estraggo i dati
Set rs = conn.Execute("SELECT Pool FROM Base_Dati")
for i = 0 to rs.Fields.Count-1
risultato = risultato & rs.Fields(i).Name & "</td><td>"
next
risultato = risultato & "</td></tr><tr><td>"
risultato = risultato & rs.GetString(,,"</td><td>","</td></tr><tr><td>", "-")

' chiusura
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

' modifico header per forzare l'apertura in Excel
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=tabella.xsl"

' scrivo a video
Response.Write ("<table><tr><td>" & risultato & "</td></tr></table>")

%>