ID=clng(request("ID"))
   sql="Select * From " & SQLDatabase & "Specializations Where ParentID IS NULL"
   set rs1 = Server.CreateObject("ADODB.Recordset")
   rs1.open sql,db,1,3
   if rs1.recordcount>0 then
      do while not rs1.eof
      ID=clng(rs1("ID"))
      Title=trim(rs1("Title"))
      if Ubound(specArray)>0 then
         for j = 0 to Ubound(specArray)
            if clng(specArray(j)) = ChildID then
           pCheckValue = "checked"
           exit for
        end if
     next
      end if
      sql2 = "Select * From " & SQLDatabase & "Specializations Where ParentID=" & ID
      set rs2 = Server.CreateObject("ADODB.Recordset")
      rs2.open sql2,db,1,3
      if rs2.recordcount>0 then %>
         <div style="margin-left:20px; margin-bottom:5px;"><img src="images/plus.gif" id="node<%=ID%>" alt="" onclick="SwitchImage(this.id);ShowDiv(this.id);" style="padding-bottom:5px;">&nbsp;&nbsp;<%=Title%><br></div>
         <div id="div<%=ID%>" style="margin-left:50px;display:none;">
     <%do while not rs2.eof
     ChildID=clng(rs2("ID"))
     ChildTitle=trim(rs2("Title"))
     if Ubound(specArray)>0 then
        for j = 0 to Ubound(specArray)
          if clng(specArray(j)) = ChildID then
             cCheckValue = "checked"
         exit for
          end if
        next
     end if
    %>
    <input type="checkbox" name="<%=ChildID%>" id="<%=ChildID%>" <%=cCheckValue%>>&nbsp;<%=ChildTitle%><br>
    <%
        rs2.movenext
    cCheckValue=""
     loop
%>
</div>
<% else %>
   <div style="margin-left:20px; margin-bottom:5px;"><input type="checkbox" name="<%=ID%>" id="<%=ID%>" <%=pCheckValue%>>&nbsp;<%=Title%><br></div>
<% end if
rs2.close
pCheckValue=""
rs1.movenext
loop

for each item in request.form
   key = item
   value = request.form(item)
   if value="on" then
      sql="Select * From " & SQLDatabase & "AgentsSpecializations Where AgentID=0 And SpecializationID=0"
      rs.open sql,db,1,3
      rs.addnew
      rs("AgentID")=AgentID
      rs("SpecializationID")=key
      rs.update
      rs.close        
   end if
next

<form action="processSpecializations.asp" method=post>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "...your connection string ..."

SQL = "SELECT 1 AS level, S.id AS groupID, S.id AS childID, S.title, IIF(A.SpecializationID IS NULL,'','CHECKED') AS chk " _
    & "FROM Specializations AS S LEFT JOIN AgentSpecializations AS A " _
    & "ON S.id = A.SpecializationID " _
    & "WHERE S.ParentID IS NULL " _
    & " UNION " _
    & "SELECT 2 AS level, S.parentID AS groupID, id AS childID, S.title,  IIF(A.SpecializationID IS NULL,'','CHECKED') AS chk " _
    & "FROM Specializations AS S LEFT JOIN AgentSpecializations AS A " _
    & "ON S.id = A.SpecializationID " _
    & "WHERE S.ParentID IS NOT NULL " _
    & "ORDER BY 2, 1, 3 "

Set rs = db.Execute( SQL ) ' by FAR the fastest way to get and use a recordset
priorGroup = rs("groupID")

Do Until rs.EOF
    level = rs("level")
    groupID = rs("groupID")
    id = rs("childID")
    title = rs("title")
    checked = rs("chk")

    rs.MoveNext ' we do this now so we can make the hasChildren check

    hasChildren = False
    If Not rs.EOF
        ' if next record is a child, parent has children
        If rs("level") <> 1 Then hasChildren = True
    End If

    ' so... 
    If Not hasChildren Then
        ' a level 1 specialization with no children...
        ' so it gets a simple div and checkbox for itself
%>
        <div style="margin-left:20px; margin-bottom:5px;">
             <input type="checkbox" name="AgentSpec" value="<%=id%>" <%=checked%> >&nbsp;<%=Title%><br>
        </div>
<%  
    Else
        ' so this is a level 1 parent with children...
        ' it's appearance is a lot different: 
        ' -- no checkbox for it, only children have them
        ' -- it has a hidden div that contains the children & a + image to show them
%>
        <div style="margin-left:20px; margin-bottom:5px;">
            <img src="images/plus.gif" id="node<%=ID%>" alt="" 
                 onclick="SwitchImage(this.id);ShowDiv(this.id);" 
                 style="padding-bottom:5px;">
            &nbsp;&nbsp;<%=Title%><br>
        </div>
        <div id="div<%=ID%>" style="margin-left:50px;display:none;">
<%
        ' and now get all the children for the hidden div:
        level = rs("level")
        Do While level = 2 ' for all children 
            groupID = rs("groupID")
            id = rs("childID")
            title = rs("title")
            checked = rs("chk")
            ' output one child checkbox:
%>
            <input type="checkbox" name="AgentSpec" Value="<%=id%>" <%=checked%> >>&nbsp;<%=Title%><br>
<%
            rs.MoveNext ' to next record
            If rs.EOF Then 
                level = 1 ' this will force an end to the hidden div of parent
            Else
                level = rs("level") ' so if not a child will terminate inner loop
            End If
        Loop
%>
        </div>
<%
    End If ' end of parent-with-children
Loop ' go get next parent, if any
rs.Close
db.Close
%>
<input type=hidden name="AgentID" value="<%=agentID%>" >
<input type=submit value="Process Changes">
</form>

*************************************************

***** FILE:  processSpecializations.asp *********

<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "...your connection string ..."

agentID = CLNG(Request("agentID")) ' or get it from session variable??

db.Execute "DELETE FROM AgentSpecializations WHERE agentID = " & agentID

Set reSafe = New RegExp
reSafe.Pattern = "[^\d\,]"
reSafe.Global = True

specList = reSafe.Replace( Request("AgentSpec"), "" ) ' zap all but digits and commas

SQL = "INSERT INTO AgentSpecializations( AgentID, SpecializationID ) " _
    & " SELECT " & agentID & ", id FROM Specializations " _
    & " WHERE id IN (" & specList & ")"

howMany = -1
db.Execute SQL, howMany

Response.Write "Agent " & agentID & " now has " & howMany & " specializations."
db.Close
%>