<% If Session("login")=True then %>

USER LIST

<% Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open StrConn Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "select * from author order by a_id desc", ObjConn, 0,1 %>
    <% ObjRs.MoveFirst While Not objRs.EOF %>
  • ">

    <%=objRs("a_name")%> - <%=objRs("a_email")%> <% objRs.Movenext wend %>

<% objRs.Close objConn.Close Set ObjRs=Nothing Set ObjConn=Nothing %> <% Else Response.Redirect("HOME.asp") End If %>