<%@LANGUAGE="VBSCRIPT" %> <%Response.Buffer=True%> Cursuri online pentru incepatori si profesionisti - CursuriOnline.ro :: Arhiva articole
sigla cursuri online
Nume utilizator
Parolă
Articole <% '--------------------------------------------------------------------------- ' The SQL below selects all the records from the Table articles '--------------------------------------------------------------------------- msql = "SELECT * FROM articles order by Isue_Nr ASC" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open msql, myConn, 1,3 If request.querystring("PageNumber") = "" Then intPageNum = 1 Else intPageNum = CInt(request.querystring("PageNumber")) End If If RS.Eof or RS.Bof Then response.write("No records available...") response.end End If ' Change you value of how many records per page here RS.PageSize = 20 %>

Total: <%= RS.recordcount %>  articole; Pagina  <% For i = 1 To RS.PageCount If Cint(Request.Querystring("PageNumber")) = i Then Response.Write "[" & i & "] " Else Response.Write "" & i & " " End If Next x = (RS.RecordCount - 9) Mod 12 %>

<% RS.AbsolutePage = intPageNum For intCount = 1 To CInt(request("x")) RS.MovePrevious Next For intCount = 1 To RS.PageSize%> <% a = a+1%> <% RS.MoveNext If RS.EOF Then Exit For Next %>
Data
Secțiunea
Titlu
Autor
">
 <%=RS("Isue_Nr")%>
 ">
 <%=RS("Art_Section")%>
 ">
 "><%=RS("Art_title")%>
 ">
 <%=RS("Art_Author")%>

Total: <%= RS.recordcount %>  articole; Pagina  <% For i = 1 To RS.PageCount If Cint(Request.Querystring("PageNumber")) = i Then Response.Write "[" & i & "] " Else Response.Write "" & i & " " End If Next x = (RS.RecordCount - 9) Mod 12 RS.Close myConn.Close Set RS = Nothing Set myConn = Nothing %>

(c) 2004 - Soft 4 Web - O divizie a Direct Learning Systems