<% 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 author, reservation where r_author=a_id and r_author="&session("idauthor"), ObjConn, 0,1 If objRs.EOF Then Response.Write "
Not have a reservation..
" Else objRs.movefirst While Not objRs.EOF %> <% objRs.MoveNext wend end if %> <% end if %>