<% Function GetClassName(ClassID) set GetClassNameRs=server.CreateObject("adodb.recordset") GetClassNameSql="select ClassName from PE_Class where ClassID="&ClassID GetClassNameRs.open GetClassNameSql,conn,3,1 GetClassName=GetClassNameRs("ClassName") GetClassNameRs.close set GetClassNameRs=nothing End Function %>