Rätt person som kan ha checkbox

Ni känner igen denna meny kod:

<!-- #include file="database.asp" -->
<form name="vbform" action="show.asp?skickat=japp" method=post>

<%
arrLinks = GetRows("SELECT pID,sub_dir,name,finish,progress FROM [progress]")
intGrpId = 0 
	
Call LinkTree(intGrpId,0)

Sub LinkTree(intParent,intIndent) : Dim X,Z
  For X = 0 To Ubound(arrLinks,2)		
    If arrLinks(1,X) = intParent Then
      strIndent=""
      For Z = 1 To intIndent : strIndent = strIndent & "--" : Next
        if arrLinks(3,X) = true then
          check = "checked"
        else
          check = ""
        end if

        if arrLinks(4,x) = 0 then
          Response.Write(""&strIndent&" "&arrLinks(2,X)&"<br>"&VbCrlf)
        else
          Response.Write(""&strIndent&" "&arrLinks(2,X)&"<input type='checkbox' name='ID' value='"& arrlinks(0,x) &"' "&check&"><br>"&VbCrlf)
        end if

      Call LinkTree(arrLinks(0,X),intIndent + 1)			
    End If
  Next 
End Sub

Function GetRows(ByVal SQL)
  Dim arrRecords, rs	
  Set rs = databas.Execute(SQL)
    If Not rs.BOF Or Not rs.EOF Then
      arrRecords = rs.GetRows()
    ELSE
      arrRecords = ""
    End If		
  rs.Close
  Set rs = nothing
  GetRows = arrRecords 
End Function
%><input type=submit></form>
<%if request.querystring("skickat") = "japp" then
for each id in Request.Form("id")
  sql = "update progress set finish "&len(Request.Form("id"))&" where table where id = " & id
  set rs = Conn.execute(sql)
next
end if
%>

något ändrat kanske. jag har glömt en hel del med vem som ska kunna ha checkbox och inte. Det jag har är en extra data i databasen (userID och adminID) där båda är tal. Jag vill att om adminID stämmer ihop med detta id i denna kod ovan. Om den finns med med rätt användare då ska checkboxen finnas med... hoppas ni förstå vad jag menar... så att rätt person kan göra uppdateringar och sånt.