<%
Dim SysAdmin,AdmSQL,AdmRs,membername
SysAdmin=False
membername=session("txl_Admin_name")
if membername<>"" Then
		AdmSQL="select A.* from admin A inner join student S "&_
		"on A.managerid=S.studid where S.userid='"&membername&"'"
		Set AdmRs=Conn.Execute(AdmSQL)
		if Not (AdmRs.eof and AdmRs.bof) Then
			SysAdmin=True
		End if
		set AdmRs=nothing
End if
%>
