<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% response.Buffer = true %> <% Dim rsSitemap Dim rsSitemap_numRows Set rsSitemap = Server.CreateObject("ADODB.Recordset") rsSitemap.ActiveConnection = MM_cnBooks_STRING rsSitemap.Source = "SELECT * FROM dbo.vCWCsitemap" rsSitemap.CursorType = 0 rsSitemap.CursorLocation = 2 rsSitemap.LockType = 1 rsSitemap.Open() currentauthor = "xxx" rsSitemap_numRows = 0 %> Abacci Books - site map

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

Abacci Books Site Map

Home Page
Author Lists A-Z
Titles Lists A-Z
Frequently Asked Questions
About Abacci
Links
Contact Us
Newsletter

Books and Authors

<% do while not rsSitemap.eof %> <% commapos = instr(rsSitemap.Fields.Item("authorName").Value,",") if commapos > 0 then authorname = mid(rsSitemap.Fields.Item("authorName").Value, commapos + 1) & " " & left(rsSitemap.Fields.Item("authorName").Value, commapos - 1) else authorname = rsSitemap.Fields.Item("authorName").Value end if authorname = trim(authorname) %> <% if authorname <> currentauthor then %> <% if currentauthor <> "xxx" then 'close off list, row and last table %> <% response.Flush() %> <% end if ' close last author %>
"><%=authorName%>
    <% currentauthor = authorname end if ' got a new author %> <% strFilename = trim(rsSitemap.Fields.Item("bookTitle").Value) If InStr(strFilename, ";") > 0 Then strFilename = Trim(Left(strFilename, InStr(strFilename, ";") - 1)) ElseIf InStr(strFilename, ":") > 0 Then strFilename = Trim(Left(strFilename, InStr(strFilename, ":") - 1)) ElseIf InStr(strFilename, "--") > 0 Then strFilename = Trim(Left(strFilename, InStr(strFilename, "--") - 1)) ElseIf InStr(strFilename, ", Part") > 0 Then strFilename = Trim(Left(strFilename, InStr(strFilename, ", Part") - 1)) End If strFilename = Replace(strFilename, ", The", "") strFilename = Replace(strFilename, ", An", "") strFilename = Replace(strFilename, ", A", "") strFilename = Replace(strFilename, ", Jr.", "") %>
  • "><%=strFilename%>
    • <% rsSitemap.movenext loop %>

 

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

Site Design: Megalong Multimedia

<% rsSitemap.Close() Set rsSitemap = Nothing %>