Problemer med loop

Hej Eksperter,

Jeg har et problem, jeg er igang med at lave et modul som styrer brugerene i mit system, jeg ønsker så at tildele hver enkelt bruger forskellige rettigheder, dette virker som sådant også fint nok, det er først når jeg vil redigerere brugeren jeg får et problem.

Jeg løber alle mine moduler igennem, og skriver disse ud med en checkbox, problemet er bare hvordan får jeg "checked" i checkboxen hvis nu at brugeren er blevet tildelt denne rettighed?

eks.

Internet: []
Computersystem: []
Macromedia: []
Photoshop: []

i min database gemmer jeg værdien af checkboxen eks. internet:true, macromedia:true

det jeg ønsker er så at når jeg loader siden igen skal den vise flg.:


Internet: [x]
Computersystem: []
Macromedia: [x]
Photoshop: []


Jeg har lavet flg. kode som virker fint, bortset fra at den looper sig selv for mange gange når den skal chekke om brugeren har adgang til modulet:



<%

session("UserID2ModuleAccess") = rs("id")
ItemAccess = Rs("ModuleAccess")
admin = rs("administrator")

' Start File System Objectet...
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set rootFolder = fso.GetFolder(folderspec)
    Set files = rootFolder.Files
   
    For Each file in files
        on error resume next
       
        ' definer filnavn som variabel
        filnavn = file.name
        if lcase(filnavn) = lcase("mainDatabase.mdb") or lcase(filnavn) = lcase("filesystem") then
            ' ingen ting
        else         
           
            Set conn = Server.CreateObject("ADODB.Connection")
            Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../../access/"& filnavn)    
            tableName = replace(filnavn,".mdb","")
            ' Open USerDatabase
                       
            response.Write("<tr><td>" & tableName & "</td><td>")
            if admin = true then
                response.Write("<input type=""checkBox"" name=""" & tableName & """ Value=""" & tableName & """ disabled>")
            else
                itemAccess = split(ItemAccess,":")
                for each objItem in itemAccess
                    if tableName = objItem then
                    response.Write("<input type=""checkBox"" name=""" & tableName & """ Value=""" & tableName & """ checked>")
                    end if
                   
                next
                    response.Write("<input type=""checkBox"" name=""" & tableName & """ Value=""" & tableName & """ >")
            end if
                response.Write("</td><td>")
                response.Write("</TD></tr>")
           
           
           
        end if
   
    next
%>