<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' check for an abacci cookie if session("uid") = "" then If Request.Cookies("abaccibooks") <> "" Then ' get this user's previous session uid session("uid") = Request.Cookies("abaccibooks")("uid") else ' new user, create a new cookie for them session("uid") = cstr(cdbl(cstr(year(now)) & cstr(month(now)) & cstr(day(now)) & cstr(timer())) * 100) response.Cookies("abaccibooks").expires = Now() + 90 response.Cookies("abaccibooks")("uid") = session("uid") End if end if Dim cmdListCount__list_ID cmdListCount__list_ID = "0" if(session("uid") <> "") then cmdListCount__list_ID = session("uid") %> <% set cmdListCount = Server.CreateObject("ADODB.Command") cmdListCount.ActiveConnection = MM_cnBooks_STRING cmdListCount.CommandText = "dbo.getListCount" cmdListCount.Parameters.Append cmdListCount.CreateParameter("@RETURN_VALUE", 3, 4) cmdListCount.Parameters.Append cmdListCount.CreateParameter("@list_ID", 200, 1,16,cmdListCount__list_ID) cmdListCount.CommandType = 4 cmdListCount.CommandTimeout = 0 cmdListCount.Prepared = true set rsListCount = cmdListCount.Execute rsListCount_numRows = 0 %> <% subject = request.QueryString("subject") Dim rsAuthor__MMColParam rsAuthor__MMColParam = "1" If (Request.QueryString("authorID") <> "") Then rsAuthor__MMColParam = Request.QueryString("authorID") Dim rsAuthor Dim rsAuthor_numRows Set rsAuthor = Server.CreateObject("ADODB.Recordset") rsAuthor.ActiveConnection = MM_cnBooks_STRING rsAuthor.Source = "SELECT authorName FROM dbo.cwcAmazonAuthors WHERE authorID = " + Replace(rsAuthor__MMColParam, "'", "''") + "" rsAuthor.CursorType = 0 rsAuthor.CursorLocation = 2 rsAuthor.LockType = 1 rsAuthor.Open() if not rsAuthor.eof then subject = (rsAuthor.Fields.Item("authorName").Value) calledfrom = "http://www.abacci.com/books/authorDetails.asp?authorID=" & request.QueryString("authorID") end if rsAuthor_numRows = 0 rsAuthor.Close() Set rsAuthor = Nothing end if %> <% Dim rsBook__MMColParam rsBook__MMColParam = "1" If (Request.QueryString("bookID") <> "") Then rsBook__MMColParam = Request.QueryString("bookID") Dim rsBook Dim rsBook_numRows Set rsBook = Server.CreateObject("ADODB.Recordset") rsBook.ActiveConnection = MM_cnBooks_STRING rsBook.Source = "SELECT bookTitle FROM dbo.cwcAmazonBooks WHERE bookID = " + Replace(rsBook__MMColParam, "'", "''") + "" rsBook.CursorType = 0 rsBook.CursorLocation = 2 rsBook.LockType = 1 rsBook.Open() rsBook_numRows = 0 if not rsBook.eof then subject = rsBook.Fields.Item("bookTitle").Value calledfrom = "http://www.abacci.com/books/book.asp?bookID=" & request.QueryString("bookID") end if rsBook.Close() Set rsBook = Nothing End If %> Contact Abacci Books

Abacci Books:
the world's best literature, free!
Categories

Home



Advanced Search
<% if not isnull(rsListCount.Fields.Item("item_count").Value) then %>

<%=session("username")%>
your book list
<% if ((rsListCount.Fields.Item("item_count").Value <= 0) or isnull(rsListCount.Fields.Item("item_count").Value)) then %> is empty <% else %> contains <%= rsListCount.Fields.Item("item_count").Value %> <% response.write(" title")%> <% if rsListCount.Fields.Item("item_count").Value <> 1 then response.write "s"%> <% rslistcount.close set rslistcount = nothing %>
View List | Checkout <% end if %>

<% end if %>

FAQ
<% if session("username") <> "" then%> Log Out
Your Account <% else %> Login <% end if %>
About Abacci
Contact Us
Site Map
Newsletter

 
Abacci > Contact Us  
 

Contact Abacci Books

Enter comments, questions, complaints and kudos here.

Please note, we cannot sell on consignment or do valuations on second hand books. If you're interested in these areas we suggest a visit to Abebooks or Powells

Return Address:
(if you want a reply)
" size="40">
Subject:
Message:
From:
(name/sig)
" size="40">


 

  

Authors | Titles | Categories | Your List | FAQ | <% if session("username") <> "" then%> Log Out | Your Account <% else %> Login <% end if %> | Site Map

Site Design: Megalong Multimedia