<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On Error Resume Next %> <% Dim Levelsa Levelsa = "Admin" Levelsb = "Author" 'test query = "SELECT Logon.logonId, Logon.UserName, Logon.Passwords, Logon.Levels "_ &"FROM Logon "_ &"WHERE Logon.Levels= '" & Levelsa & "' "_ &"ORDER BY Logon.UserName DESC " Set RSconn = Conn.Execute(Query) query2 = "SELECT Logon.logonId, Logon.UserName, Logon.Passwords, Logon.Levels "_ &"FROM Logon "_ &"WHERE Logon.Levels= '" & Levelsb & "' "_ &"ORDER BY Logon.UserName DESC " Set RSconn2 = Conn.Execute(Query2) %> <%= WebsiteTitle %>
 
 
Select User
Admin :
 
Select User
Author :