innanzi tutto grazie per la risposta, però non funziona. sia che tolgo sia che metto la spunta non mi effettua la modifica
innanzi tutto la checkbox l'ho scritta cosi:
codice:
<input type="checkbox" name="vds_enable" value="vds_enable" <%if rs("VDS_enable")=true then%> checked="checked"<%end if%>/>
dando il value="vds_enable" in modo che sia uguale per tutti
nella pagina dove avviene la modifica ho scritto:
codice:
if (request.form("vds_enable")="on") then
VDS = true
else
VDS = false
end if
SQL="Update Config Set vds_enable="&vds&" Where nome_completo = '"&strcodice&"' "
dalla prima faccio passare come valore il nome_completo dell'utente e il campo da modificare si chiama vds_enable
provo a metterti tutto il codice dealla pagina di modifica cosi se magari puoi notare qualche errore che io non ho visto..
codice:
<%
dim strCodice
strCodice = request("Nome_completo")
if strCodice<>"" then
dim strCode
strCode="innovatel"
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/SITO/database/verifichedisistema.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM utenti as A INNER JOIN ruoli as B ON a.Nome_completo = b.nominativo WHERE a.nome_completo = '"&strcodice&"' "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs("e_mail")=request.form("e_mail")
rs("ruolo")=request.form("ruolo")
if (request.form("vds_enable")="on") then
VDS = true
else
VDS = false
end if
SQL="Update Config Set vds_enable="&vds&" Where nome_completo = '"&strcodice&"' "
rs.update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
<HTML>
<HEAD>
<TITLE> Aggiornamento Dati </TITLE>
</HEAD>
<BODY>
<TABLE width="100%" height="100%" valign="middle">
<TR>
<TD><center>
<table width="80%" border="1" align="center" bgcolor="#bee3ef">
<TR>
<TD height="67"><CENTER>Aggiornamento eseguito
correttamente</CENTER></TD> </TR>
<TR>
<TD height="76"><CENTER><a href="modifica1.asp">Verifica Le
Modifiche</a></CENTER></TD> </TR>
</TABLE>
</center></TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
else
response.redirect "modifica1.asp"
end if
%>
Rispondi quotando
