<%@ Language=VBScript %> <% Session.codepage =65001 %> <% Dim Con Dim rstUsers Dim rstNews Dim iCnt Dim Icnt1 Dim VisibleRowInEachPage1 VisibleRowInEachPage1 = 201 Dim VisibleRowInEachPage VisibleRowInEachPage = 201 Set Con = Server.CreateObject("ADODB.Connection") Set rstUsers = Server.CreateObject("ADODB.Recordset") Set rstnewsid = Server.CreateObject("ADODB.Recordset") Set rstnews = Server.CreateObject("ADODB.Recordset") Set rstpayam = Server.CreateObject("ADODB.Recordset") Con.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=fedrasion;Data Source=" & Server.MapPath("db/fed.MDB") rstUsers.Open "Select * From g1 Order By -id asc",Con,adOpenKeyset,adLockOptimistic %>   <% For iCnt=1 To VisibleRowInEachPage If rstUsers.EOF Then Exit For %> <%=(icnt)%>

 <%=Trim(rstUsers("title"))%>

"> مشاهده <% rstUsers.MoveNext icnt=icnt+1 %> <%=(icnt)%>

 <%=Trim(rstUsers("title"))%>

" > مشاهده <% rstUsers.MoveNext Next %>