<% 
            Dim rs, strsql, rsCenCo, rsCenCoFog
        set rs = server.CreateObject("ADODB.Recordset")
      StrSql = "SELECT DISTINCT IDDIREZIONE AS CODICE, DESCRDIREZIONE AS DESCRIZIONE  FROM AOG_ANAGDIREZIONI ORDER BY IDDIREZIONE"
      rs.open StrSql, cn
      Do While Not rs.eof
        %>
        <optgroup class="IntestazioneTabellaOffice" label="<%=rs("DESCRIZIONE")%>">
        <%
        set rsCenCo = server.CreateObject("ADODB.Recordset")
        Response.Write StrSql
        StrSql = "SELECT DISTINCT * FROM AOG_ANAGFUNZIONI WHERE IDDIREZIONE = '" & Trim(rs("CODICE")) & "' AND IDPADRE = 0 ORDER BY IDFUNZIONE"
        rsCenCo.open StrSql, cn
        Do While Not rsCenCo.eof
          set rsCenCoFog = server.CreateObject("ADODB.Recordset")
          StrSql = "SELECT DISTINCT * FROM AOG_ANAGFUNZIONI WHERE IDPADRE = '" & Trim(rsCenCo("IDFUNZIONE")) & "' ORDER BY IDFUNZIONE"
          rsCenCoFog.open StrSql, cn
          If Not rsCenCoFog.Eof Then
            %>
            <optgroup class="IntestazioneTabellaOffice" label="&nbsp;----&nbsp;<%=rsCenCo("DESCRFUNZIONE")%>">
            <%
            Do While Not rsCenCoFog.eof
                %>
                <option class="text_box" value="<%=Trim(rsCenCoFog("IDFUNZIONE"))%>" <%If CentroDiCosto = Trim(rsCenCoFog("IDFUNZIONE")) Then Response.Write "selected" End If%>><%=rsCenCoFog("DESCRFUNZIONE")%></option>
                <%
              rsCenCoFog.movenext
            loop
              %>
                  </optgroup>
              <%
            Else
            %>
            <option class="text_box" value="<%=Trim(rsCenCo("IDFUNZIONE"))%>" <%If CentroDiCosto = Trim(rsCenCo("IDFUNZIONE")) Then Response.Write "selected" End If%>><%=rsCenCo("DESCRFUNZIONE")%></option>
            <%
          End If
          rsCenCoFog.close
          set rsCenCoFog = nothing
          rsCenCo.movenext
        loop
        rsCenCo.close
        set rsCenCo = nothing
        %>
        </optgroup>
        <%
        rs.movenext
      loop
      rs.close
      set rs = nothing
      %>