Welcome to My Bookshelf! Below you can see all of my books and links to my reviews (if there is one). I have lots of notes for a lot of the other books I have read so I will be posting more book reports soon. If you see a book that interests you please email me or leave a comment here and I will lend it to you.

Here are a few books that are currently on loan:
<% 'First let's open the DB set conn=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("files/other/bookshelf.mdb") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath 'BOOKS ON LOAN LIST response.write "
    " sql="select * FROM tbl_book WHERE fld_loaned <>'' ORDER BY fld_loaned_date ASC" set RS=conn.execute(sql) do until RS.eof Book_Title=split(RS("fld_title"),":") response.write "
  • " & DateDiff("d", RS("fld_loaned_date"), Date()) & " days ago " & RS("fld_loaned") & " borrowed " & Book_Title(0) & "
    • " RS.moveNext loop response.write "

" RS.close sql= "select * FROM tbl_cat WHERE fld_order>0" set RS=conn.execute(sql) do until RS.eof response.write "

" & RS("fld_cat_name") & " Books



" response.write "
" sql2 = "select * FROM tbl_book WHERE fld_cat_id=" & RS("fld_order") 'response.write sql2 set RS2=conn.execute(sql2) bookCount = 4 response.write "" do while not RS2.eof if bookCount<1 then response.write "" bookCount=4 end if bookCount = bookCount-1 'SET THE LAST READ FIELD If RS2("fld_times_read") = 0 then Last_Read = "never" else Last_Read = Month(RS2("fld_last_read")) & "/" & Year(RS2("fld_last_read")) If Last_Read = "/" then Last_Read = "can't remember" else Last_Read = Month(RS2("fld_last_read")) & "/" & Year(RS2("fld_last_read")) end if end if 'SET THE READ REVIEW LINK (IF IT EXISTS) If len(RS2("fld_review_link")) > 0 then Review_Link = "Read My Review
" else Review_Link = "" end if 'SET THE BORROW LINK If len(RS2("fld_loaned")) > 0 then Loaned_Info = "" & RS2("fld_loaned") & " (" & DateDiff("d", RS2("fld_loaned_date"), Date()) & " days)
" else Loaned_Info = "Borrow this book
" end if 'SET THE BOOK TITLE Book_Title=split(RS2("fld_title"),":") response.write "" RS2.moveNext loop RS2.Close set RS2 = Nothing response.write "

" response.write Book_Title(0)'RS2("fld_title") response.write "

" response.write RS2("fld_author") & "

" & Review_Link response.write "Last Read: " & Last_Read & "
" response.write "On Loan: " & Loaned_Info response.write "Times Read: " & RS2("fld_times_read") & "" response.write " (buy)



" RS.moveNext loop RS.close %>