<%
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
%>