<%@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 %> <% Dim rsTitles__MMColParam rsTitles__MMColParam = "A" If (Request.QueryString("tl") <> "") Then rsTitles__MMColParam = Request.QueryString("tl") End If If (Request.QueryString("tl") = "ALL") Then rsTitles__MMColParam = "%" end if %> <% Dim rsTitles Dim rsTitles_numRows dim firsttitle dim lasttitle Set rsTitles = Server.CreateObject("ADODB.Recordset") rsTitles.ActiveConnection = MM_cnBooks_STRING rsTitles.Source = "SELECT * FROM dbo.cwcAmazonBooks WHERE bookTitle LIKE '" + Replace(rsTitles__MMColParam, "'", "''") + "%' ORDER BY booktitle ASC" rsTitles.CursorType = 3 rsTitles.CursorLocation = 2 rsTitles.LockType = 1 rsTitles.Open() rsTitles_numRows = 0 %> <% Dim rsTitleLetters Dim rsTitleLetters_numRows Set rsTitleLetters = Server.CreateObject("ADODB.Recordset") rsTitleLetters.ActiveConnection = MM_cnBooks_STRING rsTitleLetters.Source = "SELECT * FROM dbo.vCWCtitleLetters" rsTitleLetters.CursorType = 0 rsTitleLetters.CursorLocation = 2 rsTitleLetters.LockType = 1 rsTitleLetters.Open() rsTitleLetters_numRows = 0 %> <% Dim rsMisspellings__MMColParam rsMisspellings__MMColParam = "A" If (Request.QueryString("tl") <> "") Then rsMisspellings__MMColParam = Request.QueryString("tl") End If If (Request.QueryString("tl") = "ALL") Then rsMisspellings__MMColParam = "%" end if %> <% Dim rsMisspellings Dim rsMisspellings_numRows Set rsMisspellings = Server.CreateObject("ADODB.Recordset") rsMisspellings.ActiveConnection = MM_cnBooks_STRING rsMisspellings.Source = "SELECT misspellID, bookID, misspell FROM dbo.cwcMisspellTitle WHERE misspell LIKE '" + Replace(rsMisspellings__MMColParam, "'", "''") + "%'" rsMisspellings.CursorType = 0 rsMisspellings.CursorLocation = 2 rsMisspellings.LockType = 1 rsMisspellings.Open() 'response.Write(rsmisspellings.source) rsMisspellings_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsTitles_numRows = rsTitles_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsTitleLetters_numRows = rsTitleLetters_numRows + Repeat2__numRows %> Book Titles List

the world's best literature, free!

Titles

Categories

Abacci
Books

<% 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
Links
Site Map
Newsletter

Abacci > Books > Titles

<% While ((Repeat2__numRows <> 0) AND (NOT rsTitleLetters.EOF)) %> <% if rsTitleLetters.Fields.Item("Expr1").Value = rsTitles__MMColParam then %> <%=(rsTitleLetters.Fields.Item("Expr1").Value)%> . <% else %> " class="navletter"><%=(rsTitleLetters.Fields.Item("Expr1").Value)%> . <% end if %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsTitleLetters.MoveNext() Wend %> <% If (rsTitles__MMColParam = "%") Then %> ALL <% else %> ALL <% end if %>

Book Titles

<% if session("supervisor") = "true" then %>

Add a New Title

<% end if %> <% While ((Repeat1__numRows <> 0) AND (NOT rsTitles.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsTitles.MoveNext() Wend %><% if not rsMisspellings.eof then %> <% do while not rsMisspellings.eof %> <% rsMisspellings.movenext loop end if ' got some misspellings %>

"><%=(rsTitles.Fields.Item("bookTitle").Value)%>	<% if session("supervisor") = "true" then %> ">Edit \| ">Delete <% end if %>
Some common mis-spellings
&misspellID=<%=(rsMisspellings.Fields.Item("misspellID").Value)%>"><%=(rsMisspellings.Fields.Item("misspell").Value)%>	<% if session("supervisor") = "true" then %> ">Edit \| ">Delete \| ">Add Mis-spelling <% end if %>

Site Design: Megalong Multimedia

<% rsTitles.Close() Set rsTitles = Nothing %> <% rsTitleLetters.Close() Set rsTitleLetters = Nothing %> <% rsMisspellings.Close() Set rsMisspellings = Nothing %>