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