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

EVENT LIST

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

    <%=objRs("e_date")%> - <%=objRs("e_line1")%> <% objRs.Movenext wend %>

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