lettura da excel

[KLINKO]

la pagina rimane in caricamento per un bel po e poi visualizza il titolo della colonna per il numero delle righe presenti.
invece di visualizare i dati delle righe sotto il titolo della colonna.

mi aiutate a trovare l'errore? grazie.


<%
Xls = Server.MapPath("dati.xls")
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Xls & "; Extended Properties=""Excel 8.0;HDR=Yes;"""
Set con = Server.CreateObject("ADODB.Connection")
con.Open dsn
StrSQL = "SELECT Articolo FROM [Foglio1$]"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open strSQL, con

Do Until RS.BOF or RS.EOF
Response.Write(("Articolo"))
Loop

RS.Close
Set RS = Nothing
%>

[Corwin]

Do Until RS.BOF or RS.EOF
Response.Write(rs("Articolo"))
rs.movenext
Loop

[KLINKO]

gli errori piu semplici nelle condizioni di stress sono sempre i peggiori

grazie