[déplacé VB.NET -> ASP.NET] gestion de checkbox

<?xml version="1.0" encoding="iso-8859-1"?>
<%@ page language="vb" debug="true" autoeventwireup="false" %>
<%@ import namespace="system.data.sqlclient" %>


<script runat="server">
    private sub page_load()
        
        if (isnumeric(session("id_user"))) or (isnumeric(session("id_agent"))) then
         
            dim cn as new sqlconnection()
            cn.connectionstring = configurationsettings.appsettings("base")
            cn.open()

            dim commandtext as string
           
            commandtext = "select user, user.adresse_mail, password, contact, num_tel1, num_tel2, num_tel3, num_fax, administrateur_client, devis, facture  , contact.adresse_mail from  wts_user, contact where id_user='" & request("utilisateur") & "' and contact.adresse_mail = user.adresse_mail"
            
            dim cmd as new sqlcommand(commandtext, cn)
            dim utilisateur as string = request("utilisateur")
            
            session("modifuser") = "0"
            
            if (request("utilisateur") <> "") then
                session("modifuser") =  request("utilisateur")  
                myreader = cmd.executereader()
               
                if (not (myreader.hasrows)) then
                    'on vide les zones de saisie
                    tb_user.text = ""
                    tb_mdp.text = ""
                    tb_nom.text = ""
                    tb_tel1.text = ""
                    tb_tel2.text = ""
                    tb_tel3.text = ""
                    tb_fax.text = ""
                    chkadmin_o.checked = false
                    chkadmin_n.checked = true
                    chkdev_o.checked = false
                    chkdev_n.checked = true
                    chkfact_o.checked = false
                    chkfact_n.checked = true

                else
                    ' récupération des données de l'agent pour mis à jour
                    myreader.read()
                    tb_user.text = myreader.getstring(1)
                    tb_mdp.text = myreader.getstring(2)
                    tb_nom.text = myreader.getstring(3)
                    tb_tel1.text = myreader.getstring(4)
                    if(myreader.isdbnull(5))then
                    tb_tel2.text = ""
                    else
                    tb_tel2.text = myreader.getstring(5)
                    end if
                     if(myreader.isdbnull(6))then
                    tb_tel3.text = ""
                    else
                    tb_tel3.text = myreader.getstring(6)
                    end if
                    if(myreader.isdbnull(7))then
                    tb_fax.text = ""
                    else
                   tb_fax.text = myreader.getstring(7)
                    end if
                    
                
                    if (myreader.getboolean(8) = 1) then
                        chkadmin_o.checked = true
                        chkadmin_n.checked = false
                    else
                        chkadmin_o.checked = false
                        chkadmin_n.checked = true
                    end if
                         
                    
                    if (myreader.getboolean(9) = 1) then
                        chkdev_o.checked = true
                        chkdev_n.checked = false
                    else
                        chkdev_o.checked = false
                        chkdev_n.checked = true
                    end if
                    if (myreader.getboolean(10) = 1) then
                        chkfact_o.checked = true
                        chkfact_n.checked = false
                    else
                        chkfact_o.checked = false
                        chkfact_n.checked = true
                    end if
                end if
            
                if not cn is nothing andalso cn.state = data.connectionstate.open then
                    cn.close()
                    cn = nothing
                end if
            else
                response.redirect("login.aspx")
            end if
        end if
    end sub
    
    protected sub ajout_user(byval sender as object, byval e as system.eventargs)
        
        dim updatetext, updatetext1, instext, instext1 as string
        dim j, bitadmin, bitfacture, bitdevis as integer
        
        if (chkadmin_n.checked = true) then
            bitadmin = 0
        else
            bitadmin = 1
        end if
        
        if (chkfact_n.checked = true) then
            bitfacture = 0
        else
            bitfacture = 1
        end if
        if (chkdev_n.checked = true) then
            bitdevis = 0
        else
            bitdevis = 1
        end if
        
        ' connection à la base de données
        dim cn as new sqlconnection()
        dim commandtext2 as string
        cn.connectionstring = configurationsettings.appsettings("wts_extrasql")
        cn.open()

        if (session("modifuser") <> "0") then
            dim semail as string
            'session("utilisateur") = utilisateur
            commandtext2 = "select adresse_mail from wts_user where id_user = " & session("modifuser")
            response.write(commandtext2)
            dim cmd2 as new sqlcommand(commandtext2, cn) 
            dim myreader2 as sqldatareader
            myreader2 = cmd2.executereader()
            semail = myreader2.getstring(0)
            
            updatetext = "update contact set contact='" & tb_nom.text & "', num_tel1='" & tb_tel1.text & "', num_tel2='" & tb_tel2.text & "', num_tel3='" & tb_tel3.text & "',num_fax='" & tb_fax.text & "',adresse_mail='" & tb_user.text & "'  where wts_contact.adresse_mail = '" & semail & "'"
            
            updatetext1 = "update user set password='" & tomd5(tb_mdp.text) & "', adresse_mail='" & tb_user.text & "', administrateur_client='" & bitadmin & "',devis='" & bitdevis & "',facture='" & bitfacture & "' where id_user='" & session("modifuser") & "'"
            response.write(updatetext1+"<br/>")
            dim upd1 as new sqlcommand(updatetext, cn)
            try
                j = upd1.executenonquery()
            catch ex as exception
            end try
            upd1 = nothing
            
            dim upd as new sqlcommand(updatetext1, cn)
            try
                j = upd.executenonquery()
            catch ex as exception
            end try
            upd = nothing

        else
            'ecriture dans la table 
            
            instext1 = "insert into user (id_societe, adresse_mail, password,   administrateur_client, devis, facture ) values ('" & session("id_societe") & "','" & tb_user.text & "','" & tomd5(tb_mdp.text) & "','" & bitadmin & "', '" & bitdevis & "' ,'" & bitfacture & "' )"
            instext = "insert into wts_contact (adresse_mail, contact, num_tel1, num_tel2, num_tel3, num_fax ) values ('" & tb_user.text & "', '" & tb_nom.text & "','" & tb_tel1.text & "','" & tb_tel2.text & "','" & tb_tel3.text & "','" & tb_fax.text & "')"
                  
            dim inssql2 as new sqlcommand(instext, cn)
            dim x as integer
            try
                x = inssql2.executenonquery()
                response.write(" enregistré avec succes" + "<br />")
            catch ex as exception
                response.write(ex)
            end try
            inssql2 = nothing
            
            dim inssql as new sqlcommand(instext1, cn)
            try
                x = inssql.executenonquery()
                response.write(" enregistré avec succes" + "<br />")
            catch ex as exception
                response.write(ex)
            end try
            inssql = nothing
            
        end if
        
        if not cn is nothing andalso cn.state = connectionstate.open then
            cn.close()
            cn = nothing
        end if
        
        'response.redirect("modification_user.aspx")
        
    end sub
    
    protected sub chkfact_o_checkedchanged(byval sender as object, byval e as system.eventargs) handles chkfact_o.checkedchanged
        if (chkfact_o.checked = true) then
            chkfact_n.checked = false
        else
            chkfact_n.checked = true
            chkfact_o.checked = false
        end if
    end sub

    protected sub chkfact_n_checkedchanged(byval sender as object, byval e as system.eventargs) handles chkfact_n.checkedchanged
        if (chkdev_n.checked = true) then
            chkfact_o.checked = false
        else
            chkfact_n.checked = false
            chkdev_o.checked = true
        end if

    end sub

    protected sub chkdev_o_checkedchanged(byval sender as object, byval e as system.eventargs) handles chkdev_o.checkedchanged
        if (chkdev_o.checked = true) then
            chkdev_n.checked = false
        else
            chkdev_n.checked = true
            chkdev_o.checked = false
        end if
    end sub

    protected sub chkdev_n_checkedchanged(byval sender as object, byval e as system.eventargs) handles chkdev_n.checkedchanged
        if (chkdev_n.checked = true) then
            chkdev_o.checked = false
        else
            chkdev_n.checked = true
            chkdev_n.checked = false
        end if
    end sub

    protected sub chkadmin_o_checkedchanged(byval sender as object, byval e as system.eventargs) handles chkadmin_o.checkedchanged
        if (chkadmin_o.checked = true) then
            chkadmin_n.checked = false
        else
            chkadmin_n.checked = true
            chkadmin_o.checked = false
        end if
    end sub

    protected sub chkadmin_n_checkedchanged(byval sender as object, byval e as system.eventargs) handles chkadmin_n.checkedchanged
        if (chkadmin_n.checked = true) then
            chkadmin_o.checked = false
        else
            chkadmin_o.checked = true
            chkadmin_n.checked = false
        end if
    end sub

    protected sub btnretour_click(byval sender as object, byval e as system.eventargs)
        response.redirect("modification_user.aspx")
    end sub
    
    public function tomd5(byval strtext as string) as string
        dim buffer as byte() = system.text.encoding.default.getbytes(strtext)
        try
            dim check as system.security.cryptography.md5cryptoserviceprovider
            check = new system.security.cryptography.md5cryptoserviceprovider
            dim somme as byte() = check.computehash(buffer)
            dim ret as string = ""
 
            for each a as byte in somme
                if (a < 16) then
                    ret += "0" + a.tostring("x")
                else
                    ret += a.tostring("x")
                end if
            next
            return ret
        catch exc as exception
            throw exc
        end try
    end function

    protected sub page_load(byval sender as object, byval e as system.eventargs)

    end sub

protected sub radio_o_checkedchanged(byval sender as object, byval e as system.eventargs) handles radio_o.checkedchanged
        
        if (radio_o.checked = true) then
            radio_n.checked = false
        else
            radio_n.checked = false
            radio_o.checked = true
        end if

    end sub

    protected sub radio_n_checkedchanged(byval sender as object, byval e as system.eventargs) handles radio_n.checkedchanged
        if (radio_n.checked = true) then
            radio_o.checked = false
        else
            radio_o.checked = true
            radio_o.checked = false
        end if
    end sub