Ciao a tutti,

vorrei eliminare una serie di record selezionandoli con un checkbox, ho trovato un tutorial ma non riesco a farlo funzionare potreste aiutarmi per favore?

La pagina dove seleziono i record è la seguente:
----------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connessione_STRING
Recordset1.Source = "SELECT * FROM nomi"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form action="elim.asp" name="form1">
<table width="75%" border="1">
<tr>
<td width="5%"></td>
<td width="42%">nome</td>
<td width="53%">cognome</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td><input name="elimina" type="checkbox" id="elimina"></td>
<td><%=(Recordset1.Fields.Item("nome").Value)%></td>
<td><%=(Recordset1.Fields.Item("cognome").Value)%> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>



<input type="submit" name="Submit" value="Invia">
</p>
</form>


</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
---------------------------------------------------------------------

la pagina di eliminazione invece è:

---------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

dim cancella
cancella = request.Form(elimina)
%>
<%
if cancella = "" then
response.Write("nulla selezionato")
else
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_connessione_STRING
Command1.CommandText = "DELETE FROM nomi WHERE id In (" & cancella & ")"
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
set Command1 = nothing
end if

%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="refresh" content="1;URL=visualizza.asp">
</head>

<body>
</body>
</html>

---------------------------------------------------------------------

L'errore che mi dà è il seguente

------------------------------------------------------------------
Impossibile visualizzare la pagina
Si è verificato un problema a livello della pagina che si desidera visualizzare che ne impedisce la visualizzazione.

--------------------------------------------------------------------------------

Please try the following:

Fare clic sul pulsante Aggiorna o riprovare più tardi.

Aprire la localhost home page e cercare i collegamenti alle informazioni desiderate.
HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Oggetto Request, ASP 0102 (0x80004005)
Specificare una stringa come input per la funzione.
/prove_varie/elim.asp, line 6


Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)

Pagina:
GET /prove_varie/elim.asp

Ora:
sabato 5 giugno 2004, 17.40.07


Informazioni aggiuntive:
Supporto Microsoft

--------------------------------------------------------------------

Se potete aiutatemi ve ne sari grato davvero tantissimo

Alfonso