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