<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="page/login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% ' 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 rsUser__MMColParam rsUser__MMColParam = "1" If (Session("uid") <> "") Then rsUser__MMColParam = Session("uid") End If %> <% Dim rsUser Dim rsUser_numRows Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.ActiveConnection = MM_cnBooks_STRING rsUser.Source = "SELECT * FROM dbo.cwcAmazonUsers WHERE userID = '" + Replace(rsUser__MMColParam, "'", "''") + "'" rsUser.CursorType = 0 rsUser.CursorLocation = 2 rsUser.LockType = 1 rsUser.Open() rsUser_numRows = 0 %> Your Abacci Book Account

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

Abacci
Books



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

 
 

<%=session("username")%>: Account Details

Name: <%=(rsUser.Fields.Item("userName").Value)%>
e-mail: <%=(rsUser.Fields.Item("email").Value)%>
Currently <% if rsUser.Fields.Item("newsletter").Value <> "Y" then response.write("not ")%> receiving newsletters
  Update your Details
 

<% if session("supervisor") = "true" then %> Booklist Report
Show books needing comments
Show authors in need of biographies
Top 200 books
Downloads Report
Potential MS reader files
Misspell Title Candidates
<% ' Decrement all Booklist counts by 100
%> List Accounts
Affiliate Links
Just the PG links
Create Newsletter
msReader candidates
annotation candidates
misspelling rules
Survey Results <% end if %>

   

 

 

Home | Authors | Titles | Categories | Your List | FAQ | Log Out | Contact Us | Site Map

Site Design: Megalong Multimedia

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