Ciao a tutti ho un problema con una query per cancellare delle news in un
database access

L'errore che mi da è questo

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto
1.
/nibbaru/delete.asp, line 15

questo è il codice che utilizzo:

<%
action=request("Action") 'questo lo uso per decidere se cancellare tutte
le news oppure una sola
ID=request("ID") ' l'identificativo della news
Set cn = Server.CreateObject("ADODB.Connection")
%>
<!--#include file="OpenConn.asp"--> ' la connessione funziona
<%
Set rs = Server.CreateObject("ADODB.Recordset")
if action="TUTTI" then <============== SE CANCELLO TUTTE LE NEWS
FUNZIONA==>
strSQL="DELETE * FROM t_news"
cn.Execute(strSQL)
response.redirect("modifica_offerte.asp?del=TUTTE LE OFFERTE")
else
strSQL="SELECT * FROM t_news WHERE ID= '" & ID & "'"
rs.Open strSQL,cn <<===================== QUESTA E' LA LINEA 15
==>
news=rs("titolo_news")
strSQL="DELETE FROM t_news WHERE ID=" & ID
cn.Execute(strSQL)
response.redirect("modifica_offerte.asp?del=" & news)
end if
set cn = nothing
set rs = nothing
%>

Non sò perchè mi da questo errore !!
Aiutatemi per favore !!

Grazie

scusatemi l'errore era che sbagliavo il nome del campo id (non era ID ma id_news) scusatemiiii !!

Adesso però ho un'altro problema non mi funziona la pagina di update !!

Ecco il codice

<%
ID=request("ID")
Set cn = Server.CreateObject("ADODB.Connection")
%><!--#include file="OpenConn.asp"--><%
titolo=request("titolo")
intestazione=request("intestazione")
prezzo=request("prezzo")
foto=request("foto")
strSQL="UPDATE t_news SET " &_
"titolo_news='" & titolo & "', " &_
"intestazione_news='" & intestazione & "', " &_
"prezzo='" & prezzo & "', " &_
"id_foto='" & foto & "', " &_
"WHERE id_news='" & ID & "'"

cn.Execute(strSQL)
response.redirect("modifica_offerte.asp")
set cn = nothing
%>

Aiutatemiiiii !!

Grazie !!

Se Id_news è numerico\contatore non ci vogliono gli apici

Nella variabile Titolo hai un apice che blocca il codice Sql...

fai un:
titolo=Replace(titolo,"'",chr(146))