<% prodCat=Request("prodCat") 'prodCat="Grammar" if prodCat="" then end if i=0 currentPage = request("currentPage") if currentPage="" or currentPage = "0" then currentPage=1 end if %> author
 
-  About Us -
-  New Books -
-  Order Form -
-  Contact Us -
-  Home -
Series   Author Name  Title Books
<%=msg%> <%=" "%> <%=""%> <%=userTxt%> <%=""%> <%=""%>
  Subject Title : <%=prodCat%>

<% Response.Write("You are on Page No: ") Response.Write("") Response.Write(currentPage) Response.Write("") %>

<% DIM rowCount, i Set Con = Server.CreateObject("adodb.connection") Con.CursorLocation = 3 ''Con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\webProj\rajeev\sadana\dbsadana.mdb" 'Con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\webProj\rajeev\chowkhamba\db.mdb" Con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; password=MN#054013588;Initial Catalog=chowkhambaseries;Data Source=202.71.128.173" Con.Open, "sa","MN#054013588" Set RS=Server.CreateObject("ADODB.Recordset") RS.CursorType=adOpenStatic RS.PageSize=9 Rs.Open "SELECT * from t_bookDetails where m_title ='"&prodCat&"'" ,Con ' RS.AbsolutePage=cINT(currentPage) rowCount=1 %> <% While not RS.EOF and rowCount <= RS.PageSize if i mod 2=0 then i=i+1 %> <% else i=i+1 %> <% end if rowCount=rowCount+1 RS.MoveNext Wend %>
----- Auhtor Invitation
 
Request for Authors/Writers,

 If you have any good Manuscripts on Indology or Ayurveda in Sanskrit, Hindi or English, you may kindly contact us for its publication. We shall feel pleasure to publish your Manuscripts.
  
------------------------------