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
Rispondi quotando
