Buongiorno.

Cosa c'è di sbagliato in questo code? perchè restituisce:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Excel Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x320 Thread 0x5e8 DBC 0x2352084 Excel'.
/vazi.asp, line 139
codice:
dim xls
xls = "example.xls"
dim ConnStr, i, errore, flag_errore, valore_campo
flag_errore=false
errore=""

ConnStr = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & server.MapPath(".") & ";"

set conn = createobject("adodb.connection")
SET RS = createobject("adodb.recordset")

Conn.Open ConnStr <---- LINE 139
set rs = conn.execute("select * from "&xls) 
for i=0 to rs.fields.count -1
response.Write(rs(i).name&" ") 'visualizzo i nomi dei campi per sfizio
next
response.Write("

"&rs.fields.count&"

") ' lo stesso il numero dei campi

do while not rs.eof
for i=0 to rs.fields.count -1

valore_campo=rs(i)
if not isnull(valore_campo) then 
flag_errore = false
else
errore=errore&" ["&rs(i).name&"] "
flag_errore=true
end if
valore_campo=""
next

if flag_errore = false then
response.Write("inserisco il record nr. blah blah------>"&rs(0)&"
")
else
errore=errore&"
"
end if

rs.movenext
loop

response.Write("

"&errore&"
non contiene alcun valore")