<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% response.buffer = true ' 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") %> <% Dim rsAuthor__MMColParam rsAuthor__MMColParam = "39" If (Request.QueryString("authorID") <> "") Then rsAuthor__MMColParam = Request.QueryString("authorID") End If %> <% Dim rsAuthor Dim rsAuthor_numRows Dim authorname dim commapos set cmBookAuthor = Server.CreateObject("ADODB.Command") cmBookAuthor.ActiveConnection = MM_cnBooks_STRING cmBookAuthor.CommandText = "dbo.spCwcAuthorsBooks" cmBookAuthor.CommandType = 4 cmBookAuthor.CommandTimeout = 0 cmBookAuthor.Prepared = true cmBookAuthor.Parameters.Append cmBookAuthor.CreateParameter("@RETURN_VALUE", 3, 4) cmBookAuthor.Parameters.Append cmBookAuthor.CreateParameter("@authorID", 200, 1,40,rsAuthor__MMColParam) set rsAuthor = cmBookAuthor.Execute if rsAuthor.eof then response.Redirect("searchplus.asp?author=yes") end if commapos = instr(rsAuthor.Fields.Item("authorName").Value,",") if commapos > 0 then authorname = mid(rsAuthor.Fields.Item("authorName").Value, commapos + 1) & " " & left(rsAuthor.Fields.Item("authorName").Value, commapos - 1) else authorname = rsAuthor.Fields.Item("authorName").Value end if rsAuthor_numRows = 0 Dim rsMisspell__MMColParam rsMisspell__MMColParam = "1" If (Request.QueryString("misspellID") <> "") Then rsMisspell__MMColParam = Request.QueryString("misspellID") End If Dim rsMisspell Dim rsMisspell_numRows On Error Resume Next set cmdMisspell = Server.CreateObject("ADODB.Command") cmdMisspell.ActiveConnection = MM_cnBooks_STRING cmdMisspell.CommandText = "dbo.spCwcMisspellAuthor" cmdMisspell.Parameters.Append cmdMisspell.CreateParameter("@RETURN_VALUE", 3, 4) cmdMisspell.Parameters.Append cmdMisspell.CreateParameter("@misspellID", 200, 1,40,rsMisspell__MMColParam) cmdMisspell.CommandType = 4 cmdMisspell.CommandTimeout = 0 cmdMisspell.Prepared = true set rsMisspell = cmdMisspell.Execute if rsMisspell.eof then response.redirect("authorDetails.asp?authorID=" & rsAuthor__MMColParam) end if %><% Dim rsEbook__MMColParam rsEbook__MMColParam = rsAuthor.Fields.Item("authorName").Value If (Request("MM_EmptyValue") <> "") Then rsEbook__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsComment Dim rsComment_numRows cmBookAuthor.CommandText = "dbo.spCwcAuthorComments" set rsComment = cmBookAuthor.Execute rsComment_numRows = 0 %> <% Dim rsCategories Dim rsCategories_numRows cmBookAuthor.CommandText = "dbo.spCwcCategories" set rsCategories = cmBookAuthor.Execute rsCategories_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsAuthor_numRows = rsAuthor_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsCategories_numRows = rsCategories_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsComment_numRows = rsComment_numRows + Repeat2__numRows %> <% Dim rsABCD__MMColParam rsABCD__MMColParam = rsAuthor.Fields.Item("authorName").Value %> <% Dim rsABCD Dim rsABCD_numRows Set rsABCD = Server.CreateObject("ADODB.Recordset") rsABCD.ActiveConnection = MM_cnBooks_STRING rsABCD.Source = "SELECT top 1 authorid FROM dbo.abCDauthor WHERE authorname = '" + Replace(rsABCD__MMColParam, "'", "''") + "'" rsABCD.CursorType = 0 rsABCD.CursorLocation = 2 rsABCD.LockType = 1 rsABCD.Open() rsABCD_numRows = 0 %> <%=authorname%> <% rsMisspell_numRows = 0 realauthorname = trim(authorname) authorname = replace(authorname,rsMisspell.Fields.Item("correctWord").Value,rsMisspell.Fields.Item("misspell").Value) %><% if rsComment.eof then %> <% else %> "> <% end if %>

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

Categories

Abacci
Books



Advanced Search
<% 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 %> <% 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 %>
AuthorAbebooks
Author
Title
Title

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

Search for <%=authorname%>:
">

 
&mode=books">

">Recommend
this page
to a friend

RSS 1.0
bloglines
yahoo
newsgator
pluck

Abacci > Books > ">Authors > <%=authorname%>

<%=authorname%>
go to books by this author
  <% if session("supervisor") = "true" then %>
">Edit Name | ">Delete Name | ">Add book <% end if %>


Note: at Abacci the primary listing for
<%=authorname%> is: "><%=realauthorname%>

Researching <%=authorname%> for a term paper or essay?
try HighBeam Research for articles on
Sign up for a free 7 day trial with HighBeam Research to gain full access to a database of thousands of articles, reviews and news items.

<% if rsComment.eof then %> Be the first to ">comment on this author

<% else %>
<% While ((Repeat2__numRows <> 0) AND (NOT rsComment.EOF)) %>

<%=replace(replace(rsComment.Fields.Item("comment").Value,rsMisspell.Fields.Item("correctWord").Value,rsMisspell.Fields.Item("misspell").Value),"href=" & chr(34) & "detail.asp", "href=" & chr(34) & "page/detail.asp")%>
<% if session("supervisor") = "true" then %> ">Edit | &authorID=<%=(rsAuthor.Fields.Item("authorID").Value)%>">Delete <% end if %>

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsComment.MoveNext() Wend %>

">Add a comment

<% end if %> <% rsComment.Close() Set rsComment = Nothing dim rsabcdfound %> <% if not rsABCD.eof then rsabcdfound = true %> <% else rsabcdfound = false %>
The Best of Abacci Books on CD
1,400 of Abacci Books' most popular e-text titles on CD for around 1¢ a title. Details...
Normally: $19.95, this <%=monthname(month(now))%>: $9.95
 Buy the Best of Abacci Books on CD
<% end if ' this author's on the ABCD %>



<% dim remoteip, ip, bits, ccode remoteip = Request.Servervariables("REMOTE_ADDR") 'response.Write("remoteip = " & remoteip) bits = split(remoteip,".") ipnum = 16777216*bits(0) + 65536*bits(1) + 256*bits(2) + bits(3) 'response.Write("
ipnum = " & ipnum) Dim rscountry__MMColParam rscountry__MMColParam = ipnum %> <% Dim rscountry Dim rscountry_numRows Set rscountry = Server.CreateObject("ADODB.Recordset") rscountry.ActiveConnection = MM_cnBooks_STRING rscountry.Source = "SELECT top 1 * FROM dbo.mgCountryIPs WHERE l <= " + Replace(rscountry__MMColParam, "'", "''") + " and " & rscountry__MMColParam & " <= h" 'response.Write("
rscountry.Source = " & rscountry.Source) rscountry.CursorType = 0 rscountry.CursorLocation = 2 rscountry.LockType = 1 rscountry.Open() rscountry_numRows = 0 if not rscountry.eof then ccode = rscountry.fields("c") else ccode = "US" end if rscountry.Close() Set rscountry = Nothing %> <% if ccode = "AU" then %> <% elseif ccode = "GB" or ccode = "UK" then %> <% elseif ccode = "CA" then %> <% elseif ccode = "FR" then %> <% elseif ccode = "BE" then %> <% elseif ccode = "NL" then %> <% else ' USA %> <% end if %>

 

  
<% response.Flush() %>

for free

e-books by <%=authorname%>

<% wikistring = "===External Links===
e-texts of some of " & authorname & "'s works:
" toshow = 0 numbooks = 0 szGetString = rsAuthor.Fields.Item("amazonString").Value While ((Repeat1__numRows <> 0) AND (NOT rsAuthor.EOF)) strBooktitle = trim(rsAuthor.Fields.Item("bookTitle").Value) if InStr(strBooktitle, ", The") then strBooktitle = "The " & Replace(strBooktitle, ", The", "") elseif InStr(strBooktitle, ", An") then strBooktitle = "An " & Replace(strBooktitle, ", An", "") elseif InStr(strBooktitle, ", A") then strBooktitle = "A " & Replace(strBooktitle, ", A", "") elseif InStr(strBooktitle, ", Jr.") then strBooktitle = "Jr. " & Replace(strBooktitle, ", Jr.", "") end if If InStr(strBooktitle, ";") > 0 Then strBooktitle = Trim(Left(strBooktitle, InStr(strBooktitle, ";") - 1)) ElseIf InStr(strBooktitle, ":") > 0 Then strBooktitle = Trim(Left(strBooktitle, InStr(strBooktitle, ":") - 1)) End If %> "><%=strBooktitle%>
<% wikistring = wikistring & "*[http://www.abacci.com/books/book.asp?bookID=" & rsAuthor.Fields.Item("bookID").Value & " " & strBooktitle & "]
" Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 numbooks = numbooks + 1 if numbooks = 9 then toshow = toshow + 1 numbooks = 1 end if rsAuthor.MoveNext() Wend %>

<% if session("supervisor") = "true" then response.Write("" & wikistring & "") end if %>

<% Dim rsEbook Dim rsEbook_numRows Set rsEbook = Server.CreateObject("ADODB.Recordset") rsEbook.ActiveConnection = MM_cnBooks_STRING rsEbook.Source = "SELECT top 1 * FROM dbo.cwcUvAuthors WHERE authorname = '" + Replace(rsEbook__MMColParam, "'", "''") + "'" rsEbook.CursorType = 0 rsEbook.CursorLocation = 2 rsEbook.LockType = 1 rsEbook.Open() rsEbook_numRows = 0 %> <% if not rsEbook.eof then %> Note: You can find Microsoft Reader format works by <%=authorname%> at " target="_blank">Abacci eBooks

<% end if %> <% rsEbook.Close() Set rsEbook = Nothing %>
<% if NOT rsCategories.EOF then response.Write("See also:
") response.write("
    ") numbooks = 1 toshow = toshow + 1 While NOT rsCategories.EOF %>
  • "><%=(rsCategories.Fields.Item("categoryName").Value)%>
    • <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 numbooks = numbooks + 1 if numbooks = 6 then toshow = toshow + 1 numbooks = 1 end if rsCategories.MoveNext() Wend response.write("
")%> <% rsCategories.Close() Set rsCategories = Nothing %> <% if session("supervisor") = "true" then %>
<% end if %>  

 

 

<% ' build the amazon book list dim objHTTP dim objXML On Error Resume Next 'set objHTTP = Server.CreateObject("Microsoft.XMLHTTP") set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") ' szGetString = rsBook.Fields.Item("amazonString").Value 'szGetString = "http://xml.amazon.com/onca/xml2?t=coverwave-20&dev-t=DEX7DQTIVJGCS&KeywordSearch=" & replace(trim(authorname)," ","+") & "&mode=books&type=heavy&page=1&sort=+pmrank&f=xml" szGetString = rsAuthor.Fields.Item("amazonString").Value objHTTP.open "GET", szGetString, true objHTTP.Send 'Wait for up to 3 seconds if we've not gotten the data yet If objHTTP.readyState <> 4 then objHTTP.waitForResponse 3 End If If (objHTTP.readyState <> 4) Or (objHTTP.Status <> 200) Then 'Abort the XMLHttp request objHTTP.Abort 'strData = "Problem communicating with remote server..." Else Set objXML = objHTTP.ResponseXML %> for cash

 <% if rsabcdfound = true then ' not rsABCD.eof then %>
The Best of Abacci Books on CD
Work by <%=authorName%> and 400 other great authors can be found on The Best of Abacci Books CD
List Price: $19.95
<%=monthname(month(now))%> Special: $9.95
Avg. Rating: 5 out of 5
Released: April, 2003
details...
 Buy the Best of Abacci Books on CD
<% end if ' this title's on the ABCD %> <% totProds = objXML.getElementsByTagName("Details").length if totProds - 1 < toshow then toshow = totProds - 1 end if 'toshow = totProds-1 'if toshow > 2 then ' toshow = 2 'end if For i = 0 to toshow set o15 = objXML.getElementsByTagName("Details").item(i) set o16 = o15.childNodes For j = 0 to o16.length-1 On Error Resume Next Select Case o16.item(j).nodeName Case "Isbn" szIsbn = o16.item(j).text Case "Upc" szUpc = o16.item(j).text Case "ProductName" szProductName = o16.item(j).text Case "Asin" szAsin = o16.item(j).text Case "Authors" szAuthor = o16.item(j).text 'totAuths = objXML.getElementsByTagName("Author").length 'For k = 0 to (totAuths-1) ' If (k"") Then szTaggedurl="page/detail.asp?asin=" & szAsin & "&authorID=" & rsAuthor__MMColParam End if Response.write ("
") If (szImage<>"") Then Response.write("") Else Response.write(" ") End if Response.write ("" & szProductName & "
") If (szAuthor<>"") Then Response.write ("by " & szAuthor & "
") End if If (szArtists<>"") Then Response.write ("by " & szArtists & "
") End if If ((szListprice <> "") AND (szListprice <> szOurPrice)) Then Response.write ("List Price: " & szListprice & "
") End if If (szOurprice <> "") Then Response.write ("Our Price: " & szOurprice & "
") End if If (szAvgCustomerRating <> "") Then Response.write ("Avg. Rating: " & Round(szAvgCustomerRating,1) & " out of 5
") End if If (szReleasedate <> "") Then Response.write ("Released: " & szReleasedate & "
") If (szIsbn <> "") Then 'Response.write ("
ISBN: " & szIsbn ) Elseif (szUpc <> "") Then 'Response.write ("
UPC: " & szUpc ) End if Else If (szIsbn <> "") Then 'Response.write ("
ISBN: " & szIsbn ) Elseif (szUpc <> "") Then 'Response.write ("
UPC: " & szUpc ) End if End if 'if totReviews > 0 then ' response.write(" reviewed...
") 'else Response.write(" details...
") 'end if 'Response.write ("		") %> Add to your book list <% Response.write ("
") szProductName = "" szAsin = "" szAuthor = "" szImage = "" szSmallimage = "" szOurprice = "" szListprice = "" szReleasedate = "" szBinding = "" szTaggedurl = "" szAvgCustomerRating = "" szSalesRank = "" szArtists = "" szIsbn = "" szUpc = "" totReviews = 0 Next Set objXML = Nothing Set objXSL = Nothing end if %> <% if toshow < totProds-1 then %>

more books for sale... <% end if %>

 
 

Links for <%=authorName%> <% Dim rsLinks Dim rsLinks_numRows cmBookAuthor.CommandText = "dbo.spCwcLinks" set rsLinks = cmBookAuthor.Execute rsLinks_numRows = 0 %> <% if NOT rsLinks.EOF then %>

<% While ((Repeat2__numRows <> 0) AND (NOT rsLinks.EOF)) %>
" target="_blank"><%=replace(rsLinks.Fields.Item("text").Value,rsMisspell.Fields.Item("correctWord").Value,rsMisspell.Fields.Item("misspell").Value)%>
<%=replace(rsLinks.Fields.Item("description").Value,rsMisspell.Fields.Item("correctWord").Value,rsMisspell.Fields.Item("misspell").Value)%> <% if session("supervisor") = "true" then %> - ">Edit | ">Delete <% end if %>

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsLinks.MoveNext() Wend %>
<% end if ' got some links for this book %> <% rsMisspell.Close() Set rsMisspell = Nothing %> <% rsLinks.Close() Set rsLinks = Nothing %><% response.Flush() %>

Suggest a link for <%=authorName%>

Note: at Abacci the primary listing for
<%=authorname%> is: <%=realauthorname%>
  

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

Site Design: Megalong Multimedia

<% rsAuthor.Close() Set rsAuthor = Nothing %> <% set cmBookAuthor = nothing set cmdMisspell = nothing set cmdListCount = nothing %>