<% dim db dim strConn Set db = Server.CreateObject("ADODB.Connection") set rs=server.CreateObject("Adodb.Recordset") strConn="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=msscweb;Data Source=msscnew.msscweb.com" db.open strConn %> MicroSystemsSupportCorp
<% set rscatlist=server.CreateObject("Adodb.Recordset") set rsc=server.CreateObject("Adodb.Recordset") sqll="select * from solutions order by sno desc" ' Set the page size of the recordset 'rscatlist.CursorLocation = 3 ' adUseClient rscatlist.Open sqll,db,1,3 rscatlist.PageSize = 6 ' Get the number of pages nPageCount = rscatlist.PageCount nPage = CLng(Request.QueryString("Page")) If nPage < 1 Or nPage > nPageCount Then nPage = 1 End If ' Position recordset to the correct page rscatlist.AbsolutePage = nPage i=1 ' Display the page of results %> <% 'tab = "
Showing " & rscatlist.recordcount & " Items "& " / Page " & nPage & " of "&nPageCount&"
" 'tab = tab & "
Current Page is : " & nPage & "

" tab = "
Page " & nPage & " of "&nPageCount&"
" 'tab = tab & "
Current Page is : " & nPage & "

" tab= tab & "
First Page  | " tab= tab & "Prev. Page  | " tab= tab & "Next Page  | " tab= tab & "Last Page  
" response.Write(tab) Do While Not ( rscatlist.Eof Or rscatlist.AbsolutePage <> nPage ) %> <% end if i = i + 1 rscatlist.MoveNext Loop rscatlist.Close %>

"><%=rscatlist("title")%>
<%=rscatlist("bdesc")%>
<% if (i mod 3) = 0 then %>
Home | About Us | Disk-Disk Backup | Solutions | Partners | News | Sales | Contact Us
Copyright © 2005 All Rights Reserved msscweb.com site designed and maintained by webdesignstudio.com