Aiuto update/delete multiplo

[mic3000]

ciao a tutti ho una pagina con un form che recupera valori multipli tramite checkbox e li passa a questa pagina

<%
DataNow = Now() 
Oggetto = Split(Replace(Request.form("Oggetto"), "'", "''"),",") 
TestoNews = Split(Replace(Request.form("TestoNews"), "'", "''"),",") 
ID = Split(Request.form("IDcheck"),",")


If Len(ID(0)) = 0 then
Response.Write("Nessuna News é stata selezionata per la pubblicazione") 
Response.Write("</br>Torna indietro e seleziona almeno una News.") 
Response.End 
End if

If Len(ID(0)) > 0 then
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath ("/mdb-database/News.mdb")
For x=0 to (ID) 
SQL = "DELETE * FROM [News] WHERE ID IN (" & ID(x) & ")" 
Conn.Execute SQL 
Next 

For x=0 to ubound(ID) 
SQL = "INSERT INTO News(Data, Oggetto, TestoNews, Pubblica) VALUES ('"& DataNow &"', '"& Oggetto(x) &"', '"& TestoNews(x) &"' ,'S')" 
Conn.Execute SQL 
Next 
conn.close 
set conn = nothing 
end if 
Response.Write("News Pubblicate Correttamente" & "</br>") 
Response.Write("</br>Visualizza News") 
Response.Write("</br>Torna indietro") 
%>

ma mi restituisce questo errore

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 0]'

/Pubblica.asp, line 78 che poi sarebbe questa

If Len(ID(0)) > 0 then

Qualcuno sa dirmi dove sbaglio?
Ringrazio anticipatamente
Ciao a tutti!

[Mems]

Togli (0) dopo ID

[mic3000]

ciao e grazie ma togliendo lo 0 ho questo errore

Microsoft VBScript runtime error '800a000d'

Type mismatch

/Pubblica.asp, line 78

[optime]

hai già gli ID nel modo giusto...

tuaLista="1,2,3,4"

ti basta

sql = "DELETE * FROM tabelle WHERE ID IN (" & tualista & ")"

that easy!

[mic3000]

e quindi?
ragazzi aiuto!!!

comunque sia ho visto che recupero tutti i valori che passa il form, di questo ne sono sicuro!
Ma come devo procedere per fare update delete nel modo corretto e soprattutto associare all'id(x) il testo(x)?

per il delete ok, se non ho capito male gli passo tutti i valori degli id e con SQL = "DELETE * FROM [News] WHERE ID IN (" & ID & ")" dovrei riuscire a cancellare tutto ciò che è associato a quegli id...se non ho capito male!
Aiutooooo

[optime]

mic, niente scene di panico. ti ho già risposto. rifletti invece di frignare

[mic3000]

ciao optime scusa ma ci sto sbattendo la testa da due giorni!!!

allora..ho fatto un bel response per vedere che cosa passava la pagina e con
Oggetto = Split(Replace(Request.form("Oggetto"), "'", "''"),",") recupero solo il primo valore che passa
mentre con
Oggetto = Replace(Request.form("Oggetto"), "'", "''") recupero gia tutti i valori separati dalle virgole.
In teoria fin qui ci siamo...se provo con l'id invece non funziona!
Dim ID
Dim i

DataNow = Now()
TestoNews = Split(Replace(Request.form("TestoNews"), "'", "''"),",")
Oggetto = Split(Replace(Request.form("Oggetto"), "'", "''"),",")
ID = Split(Replace(Request.form("ID"), "'", "''"),",")

Response.Write(ID)
Response.End

e ricevo questo errore

Response object error 'ASP 0106 : 80020005'

Type Mismatch

/Pubblica.asp, line 0

An unhandled data type was encountered.

dove sbaglio?

[optime]

come ricavi la serie di ID?

[optime]

visto

ID = Split(Replace(Request.form("ID"), "'", "''"),",")


non va bene

usa

ListaID = Replace(Request.form("ID"), "'", "''")

e fai una delete ... IN (" & ListaID & ")"...

[mic3000]

allora ho fatto un response.write(ListaID) e mi restituisce tutti gli id presenti nel form, ma quando faccio il controllo

If len(ListaID(i)) = 0 then
Response.Write("Nessuna News é stata selezionata per la pubblicazione")
Response.Write("</br>Torna indietro e seleziona almeno una News.")
Response.End
End if

mi da errore

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ID'