<% Function GetClassChildID(ClassID) set GetClassChildIDRs=server.CreateObject("adodb.recordset") GetClassChildIDSql="select arrChildID from PE_Class where ClassID="&ClassID GetClassChildIDRs.open GetClassChildIDSql,conn,3,1 GetClassChildID=GetClassChildIDRs("arrChildID") GetClassChildIDRs.close set GetClassChildIDRs=nothing End Function %>