<% Function GetParentClassID(ClassID) set GetParentClassIDRs=server.CreateObject("adodb.recordset") GetParentClassIDSql="select ParentID from PE_Class where ClassID="&ClassID GetParentClassIDRs.open GetParentClassIDSql,conn,3,1 GetParentClassID=GetParentClassIDRs("ParentID") GetParentClassIDRs.close set GetParentClassIDRs=nothing End Function %>