Newsgroup: it.comp.www.asp
Titolo: Errore pagina ASP

Salve,
ho un problema con una pagina asp, ma non so dove mettere le mani; sul sito
mi viene visualizzato questo errore:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Could not delete from specified
tables.
/proxy/default.asp, line 69
La riga di codice in questione è la seguente:
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("..\proxy\asp\db\db.mdb"))
Allego anche l'intero codice del file:
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>WebCallBack</title>
<meta name="Microsoft Border" content="tlb, default">
</head>
<body><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0"
width="100%"><tr><td>
<h1 align="center"><span lang="it">WebCallBack</span></h1>
</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0"
cellpadding="0" cellspacing="0" width="100%"><tr><td valign="top"
width="1%">
<p>
<nobr>Home</nobr><br><nobr><a href="faq.htm">F.A.Q.</a></nobr><br><nobr><a
href="download.htm">Download</a></nobr><br><nobr><a
href="manuale.htm">Manuale</a></nobr><br><nobr><a
href="cronologia.htm">Cronologia</a></nobr> </p>
</td><td valign="top" width="24"></td><!--msnavigation--><td valign="top">
<%
if Request.Form("login")="" then
%>
<h2><span lang="it">Accesso</span></h2>
<form id="FORM1" name="FORM1" action="default.asp" method="post">
  <p></p>
  <table cellSpacing="1" cellPadding="1" width="50%" border="0">
    <tr>
      <td>Login</td>
      <td><input id="login" name="login" size="20"></td>
    </tr>
    <tr>
      <td>Password</td>
      <td><input id="password" type="password" name="password"
size="20"></td>
    </tr>
    <tr>
      <td>Indirizzo IP</td>
      <td>
      <input id="IP" name="IP" size="20"
value="<%=Request.ServerVariables("REMOTE_ADDR")%>"></td>
    </tr>
    <tr>
      <td></td>
      <td><input id="submit" type="submit" value="Connetti"
name="submit"></td>
    </tr>
  </table>
  <p></p>
</form>
<%
else
    strToEncode = Request.Form("login") & Request.Form("password")
    I = Int(Len(strToEncode) / 2)
    P1 = Left(strToEncode, I)
    P2 = Mid(strToEncode, I + 1)
    If Len(P1) <> Len(P2) Then P1 = P1 & "#"
    For I = 1 To Len(P1)
        K = K & Hex(Asc(Mid(P1, I, 1)) Xor Asc(Mid(P2, I, 1)))
    Next
        IF Request.Form("IP")<>"" then
            IP=split(Request.Form("IP"),".")
        else
       IP=split(Request.ServerVariables("REMOTE_ADDR"),".")
        end if
 HEXIP=right("0" & hex(IP(0)),2) & right("0" & hex(IP(1)),2) & right("0" &
hex(IP(2)),2) & right("0" & hex(IP(3)),2)
 Set oConn = Server.CreateObject("ADODB.Connection")
 oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("..\proxy\asp\db\db.mdb"))
 oConn.Execute("DELETE * FROM Connections WHERE
(((DateDiff('n',[Connections].[LoginTime],Now()))>5)) OR
(((DateDiff('n',[Connections].[PollTime],Now()))>10));")
 sSQL = "SELECT * FROM Connections WHERE Code='" & K & "';"
 Set oRS = oConn.Execute(sSQL)
 if oRS.EOF then
%>
<p>Non esiste nessun client in attesa per questa combinazione di Login /
Password </p>
<%
 else
  oConn.Execute("UPDATE Connections SET LoginTime = Now(), IP = '" & HEXIP &
"' WHERE Code='" & K & "';")
%>
<p>In attesa di collegamento da parte di VncProxy</p>
<%
 end if
 oConn.Close
 Set oRS = Nothing
 Set oConn = Nothing
 Response.End
end if
%>
<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><
table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>
<p>&nbsp;</p>
<p align="center"><span lang="it">Idea e realizzazione di
<a href="mailto:
Fantasy...@hotmail.com
">Corrado Casoni</a>, ©
FantasyFactory</span>
</p>
<p align="center"><span lang="it">Il serivizio è totalmente libero, gratuito
e
anonimo; non ci sono log o spyware !</span></p>
</td></tr><!--msnavigation--></table></body>
</html>
Grazie a tutti per l'aiuto

 Grazie a tutti per l'aiuto
Domanda: solo con le cancellazioni hai problemi? Gli inserimenti e modifiche
funzionano?
Mi pare un problema di permessi della cartella dove č memorizzato il
database.
Controlla anche che l'istruzione SQL che invii al database sia corretta con
un response.write...
Ciao
--
AZ [Microsoft .NET MVP]

 Mi pare un problema di permessi della cartella dove è memorizzato il


 mandare i file in questione tramite e-mail?
Se è un problema di permessi delle varie cartelle non potrei farci molto...
com'è il codice?


> com'è il codice?


 (((DateDiff('n',[Connections].[PollTime],Now()))>10));")
Se non mi sbaglio, il DateDiff non č accettato da Access (da SQL Server sě).
Dovresti modificare tale SQL inserendo valori assoluti...
