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 "
|