Problema di permessi (credo).... solo con questo script

[satwanted]

Ciao a tutti

stavoprovando a popolare una tabella del mio mdb da un file xls e mi esce fuori

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Impossibile aggiornare. Attualmente bloccato dall'utente "admin" sulla macchina "PCWIN".
/test/import_xls.asp, line 17

posto anche lo script, magari serve a qualcuno

<%@LANGUAGE="VBSCRIPT"%>
<% Server.ScriptTimeOut = 3600 %>
<%
SQL="SELECT * FROM [Foglio1$]"
strProvider="DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath("../datidb/file-excel.xls")
set rs = Server.CreateObject("ADODB.recordset")

rs.Open SQL, strProvider
Do while not rs.eof

'response.write("descrizione") & "
"

Set ConnDown = Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)}; dbq="& server.MapPath("../datidb/database.mdb")
desc = Replace(rs("descrizione"),"'","")
SQL1 = "INSERT into tabella (descrizione) VALUES ('"& desc &"')"
set rs1 = connDown.execute(SQL1) 

rs.MoveNext
loop

rs.close
set rs=nothing

ConnDown.Close
set ConnDown=nothing
%>

solo che nella mio dominio questo utente non esiste mentre la macchina PCWIN si....

qualcuno ha un idea di cosa devo guardare,
oppure
è possibile accedere al file con nome utente e password

GRAZIE

[viki1967]

http://www.aspfaq.com/show.asp?id=2009

[satwanted]

ti ringrazio ma i permessi li ho gia guardati tutti

e poi l' utente 'admin' non esiste

qualcuno mi sa dare una dritta


vi prego , sono bloccato

[Giuseppe C]

Anche se con mooolto ritardo...

devi chiudere la connessione nel loop...

fai così:
<%@LANGUAGE="VBSCRIPT"%>
<% Server.ScriptTimeOut = 3600 %>
<%
SQL="SELECT * FROM [Foglio1$]"
strProvider="DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath("../datidb/file-excel.xls")
set rs = Server.CreateObject("ADODB.recordset")

rs.Open SQL, strProvider
Do while not rs.eof

'response.write("descrizione") & "
"

Set ConnDown = Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)}; dbq="& server.MapPath("../datidb/database.mdb")
desc = Replace(rs("descrizione"),"'","")
SQL1 = "INSERT into tabella (descrizione) VALUES ('"& desc &"')"
set rs1 = connDown.execute(SQL1)

ConnDown.Close
set ConnDown=nothing

rs.MoveNext
loop

rs.close
set rs=nothing


%>

spero di esser stato utile... ciao ciao

[Roby_72]

Creare il recordset per eseguire una INSERT non ha senso (anche perché poi non lo distruggi e rimane appeso...

set rs1 = connDown.execute(SQL1)

usa solo questo:

connDown.execute(SQL1)

Roby