Possibile chkbox abilita/disabilita?

[Gio2011]

Ottimo questa è la righetta:

<td><input type="checkbox" id="checkbox" name="checkbox" <%if jj=1 then%>checked="checked"<%end if%>/></td>

e funziona.

Ora, next step

Mettere un bottoncino a fine pagina che mi legge le spunte, e mi salva le eventuali modifiche nel db.

[Vincent.Zeno]

c'è un po' di confusione, scusa... avevo dato per scontato alcune cose

la selezione dei record è diversa dall'update

cosa vuoi affrontare per primo e con quali vincoli?




EDIT: roby, lo segui tu?

[Gio2011]

[Roby_72]

Mi sono permesso di intervenire per cercare di chiarire il problema che mi sembra di html primancora che asp.
Cosa non e' chiaro applicando il mio esempio?

Roby

[Gio2011]

Non mi è chiaro, dopo aver modificato le spunte, come faccio ad inviarle al db.

ora ho integrato il checkbox in un form con un submit. Nella pagina di destinazione, come mi comporto?

[Roby_72]

Nei vale cosa hai messo? Cosa ti riporta la request?

[Gio2011]

Dopo ieri sera ho gravi capacità pensative..quindi eravamo rimasti al riportare dal request i value.

Fatto.

mi riporto nella pagina di destinazione, che poi è al stessa del form a cui aggiungo un parametro, gli id a true.

Avendo quelli, metto in un ciclo la scrittura nel db il cambiamento dello stato. Per meglio dire:

	<%
	
	dim RSX, CNN, ConnString, query, nome, cognome, cancella, arrcancella

	if request.QueryString("pass")=3 then
		Cancella = request.Form("spunta")
		ArrCancella = split(Cancella, ",")

	  
	 for i = lbound(ArrCancella) to ubound(ArrCancella)
        ConnString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.Mappath("/mdb-database/PROVA.mdb")
        set CNN = server.CreateObject("ADODB.CONNECTION")
        CNN.open ConnString
        set RSX = server.CreateObject("ADODB.RECORDSET")
        query = "select * from UTENTI where ID = " & cancella(i)
        RSX.open query, CNN, 3, 3
		
		RSX("ABILITATO")=true
		RSX.update	
		
		
        RSX.Close
        CNN.Close
        set RSX= Nothing
        set CNN = Nothing
		
	 next
	response.End()
	end if

ma c è qualcosa che mi sfugge, e corre veloce

[Roby_72]

Ti basta una riga di codice.

sql = "UPDATE UTENTI SET abilitato = true WHERE ID IN (" & cancella &")"
CNN.Execute(sql)

Verifica solamente che il campo di Access accetti il "true" come valore altrimenti passagli 1.

Roby

[Gio2011]

Scusa, la query che hai postata va al posto della mia attuale?

e l'execute dove lo metto?

[Roby_72]

<%
	
	dim RSX, CNN, ConnString, query, nome, cognome, cancella, sql

	if request.QueryString("pass")=3 then
		Cancella = request.Form("spunta")
        ConnString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.Mappath("/mdb-database/PROVA.mdb")
        set CNN = server.CreateObject("ADODB.CONNECTION")
        CNN.open ConnString

sql = "UPDATE UTENTI SET abilitato = true WHERE ID IN (" & cancella &")"
CNN.Execute(sql)
        set CNN = Nothing
		
	response.End()
	end if

Roby