<% dim currentpage,rowcount,i dim ord currentpage=request.querystring("currentpage") if currentpage="" then currentpage=1 end if '------------------Connectivity code and other paging options --------------------------- set c=server.createobject("adodb.connection") set rcount=server.createobject("adodb.recordset") set rupload=server.createobject("adodb.recordset") c.open "provider=microsoft.jet.oledb.4.0;data source=author.mdb" rupload.cursortype=adOpenStatic rupload.PageSize=8 '----------------------------------------------------------------------------------------- ' Show the Ebooks of Category POETRY '----------------------------------------------------------------------------------------- rupload.open "select * from visitlibrary where genre='Poetry' order by udate desc",c rcount.open "select count(*) from visitlibrary where genre='Poetry'",c if not rupload.eof then totalrec= cint(rcount(0)) rupload.absolutepage=cint(currentpage) rowcount=0 end if %> Ebook Store

 
Ebook Poets

To learn more about a book or an author, click on an ebook cover.

 

<% cnt=0 do while not rupload.eof and rowcount" end if id = aid & "X" & rupload("pid") & "Y" & rupload("ucount") path="http://www.ebookomatic.com/cgi-bin/" %> <% rupload.movenext cnt= cnt + 1 rowcount=rowcount+1 rauthor.close set rauthor=nothing loop %>
<%=rupload(" src="<%=path%>condoc/<%=rupload("ebookcover")%>" align="center" border="0" width="100" height="100">
<%=rupload("ebooktitle")%>
<%=rauthor("afname")%> <%=rauthor("alname")%>
<% if rupload("availability")=1 then amt=rupload("sprice") %> Price : $ <%=amt%>
<% elseif rupload("availability")=2 then %> Free Download

<% end if %>
 

Schneiderman & Associates, LLC © 2002
EbookoMatic is a trademark of Steven Schneiderman.
To purchase or learn more about an ebook, just click on the picture of the ebook, and you'll be taken to the author's page at BuyMyEbook.com.