<% regno=session("regno") set Con=GetDataConnection() set result01=server.CreateObject ("adodb.recordset") result01.Open "select * from regno where usersno='"&sno2&"' order by admin desc",Con,adOpenKeyset set rs=Server.CreateObject("ADODB.Recordset") sql1 = "select * from regno order by regno" result.Open sql1,Con if not result.EOF then do while not result.EOF else alate ("applicant dose not fond") %>