% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/database/recommended_books.mdb")) set rs = Server.CreateObject("ADODB.recordset") rs.Open "SELECT * FROM Query_all_Books_by_date_current'", conn %>
|
|
||
|
/kenandoylebranam/" target="_blank">
|
/kenandoylebranam/" target="_blank">
<%Response.Write rs("Title")%>:<%Response.Write rs("Subtitle")%> Author(s): <%Response.Write rs("Author")%> Notes: <%Response.Write rs("Notes")%> |
"> <% rs.MoveNext Loop If rs.BOF Then Response.Write "No Items in the database!" & vbNewLine End If rs.close conn.close %> |