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

RESERVATION LIST

<% Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.Open StrConn Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open "select * from reservation", ObjConn, 0,1 %> <% ObjRs.MoveFirst While Not objRs.EOF %> "><%=objRs("r_date")%> - <%=objRs("r_status")%> <% objRs.Movenext wend %>

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