eliminare dal db

[smile21]

Ciao a tutti, ho questo semplice script che mi permette di eliminare i file in una dir.

<%
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("/partnernews/"))
Set file3 = file2.Files
For Each file in file3
response.write "<A HREF=""delete.asp?file="& file.name &""">"
response.write file.name
response.write "</A><hr size=1 color=#FF0000>"
Next
%>


il problema è che dopo vane ricerche non sono riuscita e far si che mi venga eliminato anche il nome dal db.

seguendo vari esempi http://freeasp.html.it/guide/lezione.asp?id=114

e modificandoli mi da sempre questo errore:

Errore di run-time di Microsoft VBScript error '800a0035'

[optime]

*dove* ti da' errore?

[smile21]

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Driver ODBC Microsoft Access]Errore generale. Impossibile aprire la chiave 'Temporary (volatile) Jet DSN for process 0x1244 Thread 0x1ccc DBC 0x219808c Jet' del Registro di sistema.

[optime]

errore abbastanza comune. cerca nel forum

[smile21]

in effetti, risolto, ora mi da questo:

Microsoft][Driver ODBC Microsoft Access] Errore di sintassi (operatore mancante) nell'espressione della query 'bannerid ='.

<%
Dim id8
id8=request.querystring("bannerid")

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mio.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")


rs.Open "delete * from banner where bannerid ="&id8, conn


conn.Close
Set conn=Nothing



response.redirect("admin.asp")
%>


e credo che anche questo sia comunissimo, grazie dell'aiuto, cercherò nel forum.
ciao

[optime]

id8 è vuoto. controlla

[maximum]

id8 = request.querystring("bannerid")

In querystring non arriva nulla...

[smile21]

ho cambiato di tutto, ma lo so che è una ST....TA, ma non riesco a trovarla.
Ho sequito passo dopo passo, questo esempio:
http://www.amicopc.com/asp/aggiorna.asp

questa e la pagina remove.asp

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

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

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "select * from banner order by bannerid DESC", conn

Do while NOT RS.EOF
 
Dim id8
id8=rs("contenuto")
%>
 
<a href="elimina.asp?id=<% =id8 %>">

<%
Dim data
data=rs("data")
response.write(data)
%>
 - 
<%
Dim contenuto
contenuto=rs("contenuto")
response.write(contenuto)
%></a></p>
<%
RS.MoveNext
Loop
 


RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>

questa elimina.asp

<%
Dim id8
id8=request.querystring("Contenuto")

 
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mio.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
 

rs.Open "delete * from banner where id ="&id8, conn
 

conn.Close
Set conn=Nothing
 


response.redirect("admin.asp")
%>

[optime]

si' e' quello che dici tu

passi

<a href="elimina.asp?id=<% =id8 %>">

e leggi

id8=request.querystring("Contenuto")


prendi una decisione

[maximum]

id8 = request.querystring("id")

e ti liberi di ogni pensiero arcano proposto da optime.