lettura dati da Excel [errore]

[andropoff]

so che è un argomento già trattato, ho cercato ma non ho trovato nulla che rispondesse alle mie domande.

allora sto cercando di prelevare tutte le riche di un file in excel e di visualizzarle a video. per semplificare ho usato un file excel con 2 colonne con all'interno poche righe compilate.

ho trovato questo script che sembra funzionare:

 <% 
strConnection = "DBQ=" & Server.MapPath("../../excel/test.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};"
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.open strConnection


sql="select * from Foglio1;"

rs.Open sql, cn

rs.close
Set rs = nothing
cn.close
Set cn = nothing
%>

ovviamente non fa nulla mancando il do while, ma per semplificare il codice lo ometto.

questo è l'errore:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
[Microsoft][Driver ODBC Excel] Il modulo di gestione di database Microsoft Jet non è riuscito a trovare l'oggetto 'campo1'. Assicurarsi che l'oggetto esista e che il nome e il percorso siano digitati correttamente.

alla linea "rs.Open sql, cn"

credo che il problema sia la query. quello che non capisco è :
la select va fatta 'from' cosa?!
cioè devo fare:
"select from nomefoglio;" o "select nomecolonna;" o cosa?

ho provato utlizzando il nome de foglio ma l'errore resta, la colonna invece non ha nome.. cioè si chiama "A" come in tutti i file excel....

qualcuno ha qualche idea o ha giò avuto a che fare con questo discorso?!


grazie

[mexican]

<%
Xls = server.MapPath(".") & "AllegatoExcel\nomefile.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 * FROM [Foglio1$]"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open strSQL, con

if not rs.eof then
Set rss = Server.CreateObject("ADODB.RecordSet")

do until rs.eof

response.write(RS("colonna")) & "
"
response.write(RS("colonna2"))

rs.movenext
loop
rs.close




Set RS = Nothing
response.Write("fatto")

else
response.Write("non ci sono dati")
end if
%>