Non riesco ad eliminare un record

[matrics21]

Ciao!

sono sempre quello che voleva imparare ASP giusto per presentare alla fine dell'anno un sito che gestisse un database.

Ho trovato un sito che fa al caso mio, dove vengono riportati i codici per visualizzare i record,codici per eliminarli e per aggiungerli.

Sto provando quello che elimina i record, ma non mi funziona

sono 2 file, rimuovi.asp ed elimina.asp

ripeto che il codice non è mio, ma è stato scritto da altre persone

Rimuovi.asp:
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/link.mdb")

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from link order by id DESC", conn
Do while NOT RS.EOF
Dim id1
id1=rs("id")
%>
<a href="elimina.asp?id=<% =id1 %>">

<%
Dim link
link=rs("link")
response.write(link)
%></a></p>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>

Elimina.asp:
<%
Dim id1
id1=request.querystring("id")
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/link.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "delete * from link where id ="&id1, conn
conn.Close
Set conn=Nothing
response.redirect("ok.htm")
%>

Quando clicco sul record che intendo eliminare,arrivo sulla pagina elimina.asp con riportatyo questo errore:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Impossibile eliminare dalle tabelle specificate.
/elimina.asp, line 11

[Roby_72]

Elimina.asp:
<%
Dim id1
id1=request.querystring("id")
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/link.mdb")

strSQL="delete * from link where id ="& id1
conn.Execute(strSQL)

conn.Close
Set conn=Nothing
response.redirect("ok.htm")
%>

Roby

[matrics21]

Originariamente inviato da Roby_72

Elimina.asp:
<%
Dim id1
id1=request.querystring("id")
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/link.mdb")

strSQL="delete * from link where id ="& id1
conn.Execute(strSQL)

conn.Close
Set conn=Nothing
response.redirect("ok.htm")
%>

mi da ancora quell'errore

Roby

[teorema55]

strSQL="delete * from link where id ="& id1 &""...........ma sei sicuro di avere i permessi di scrittura (e di eliminazione dati.........)sul database?

[matrics21]

Originariamente inviato da teorema55
strSQL="delete * from link where id ="& id1 &""...........ma sei sicuro di avere i permessi di scrittura (e di eliminazione dati.........)sul database?

a dire il vero non saprei,
cmq la cartella che contiene il db non è protetta e nel file mdb non ho messo delle protezioni.
Dove vedo se il db è protetto?

[teorema55]

Se sei in localhost devi settare IIS, se in remoto dipende dal contratto di hosting, devi chiedere all'admin del servizio.

Hai provato ad aggiungere le due coppie di virgolette alla stringa?

[matrics21]

Originariamente inviato da teorema55
Se sei in localhost devi settare IIS, se in remoto dipende dal contratto di hosting, devi chiedere all'admin del servizio.

Hai provato ad aggiungere le due coppie di virgolette alla stringa?

ho provato a settare IIS,sembra tutto apposto

[matrics21]

up

[teorema55]

...a posto?

[matrics21]

Originariamente inviato da teorema55
...a posto?

no