<%@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 rsNewsletter Dim rsNewsletter_numRows Set rsNewsletter = Server.CreateObject("ADODB.Recordset") rsNewsletter.ActiveConnection = MM_cnBooks_STRING if request.QueryString("newsletterID") <> "" then rsNewsletter.Source = "SELECT * FROM dbo.cwcNewsletters where newsletterID = " & request.QueryString("newsletterID") Set rsNL = Server.CreateObject("ADODB.Recordset") ' build a list of 'other newsletters' rsNL.ActiveConnection = MM_cnBooks_STRING rsNL.Source = "SELECT * FROM dbo.cwcNewsletters where newsletterID <> " & request.QueryString("newsletterID") & " ORDER BY sent DESC" rsNL.CursorType = 0 rsNL.CursorLocation = 2 rsNL.LockType = 1 rsNL.Open() else rsNewsletter.Source = "SELECT * FROM dbo.cwcNewsletters ORDER BY sent DESC" end if rsNewsletter.CursorType = 0 rsNewsletter.CursorLocation = 2 rsNewsletter.LockType = 1 rsNewsletter.Open() rsNewsletter_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsNewsletter_numRows = rsNewsletter_numRows + Repeat1__numRows %> Abacci Books - Newsletter

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

 
Abacci <% if request.QueryString("newsletterID") <> "" then %> > Newsletters > <%=(rsNewsletter.Fields.Item("title").Value)%> <% else %> > Newsletters <% end if %>  
  <% if request.QueryString("newsletterID") = "" then %>

Newsletters

Each week (time permitting) we're hoping to send a short newsletter listing the latest additions to Abacci Books.

To sign up, create an account and select the newsletter checkbox.

Here's the latest...

<%=(rsNewsletter.Fields.Item("title").Value)%>

<% else %>

<%=(rsNewsletter.Fields.Item("title").Value)%>

<% end if %>

<%=rsNewsletter.Fields.Item("text").Value%> <% 'nl = mid(rsNewsletter.Fields.Item("text").Value,1,instr(rsNewsletter.Fields.Item("text").Value,"===")-3) 'nl = replace(nl,chr(13),"
") 'response.Write(nl) %>

<% if session("supervisor") = "true" then %> ">Edit <% end if rsNewsletter.movenext if not rsNewsletter.eof then %>

Older Newsletters:

<% While ((Repeat1__numRows <> 0) AND (NOT rsNewsletter.EOF)) %> "><%=(rsNewsletter.Fields.Item("title").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNewsletter.MoveNext() Wend else ' this is an older newsletter being displayed if not rsNL.eof then %>

Other Newsletters:

<% end if while not rsNL.eof%> "><%=(rsNL.Fields.Item("title").Value)%>
<% rsNL.movenext wend end if ' got more newsletters to show %>

 

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

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