Home

   

Email

   

 
   
 
<% select case request.querystring("dir") case "" session("curpage")=1 case "Next" session("curpage")=session("curpage")+1 case "Prev" session("curpage")=session("curpage")-1 end select const adopenkeyset=3 dim conn dim rs if request("dir")="Next" or request("dir")="Prev" then sql=request("sq") else sql="select * from news order by data desc" end if strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.MapPath("/database/news.mdb") Set conn = Server.CreateObject("ADODB.Connection") Conn.Open StrConn Set RS = Server.CreateObject("ADODB.Recordset") rs.pagesize=6 rs.open sql, conn, adopenkeyset if not rs.eof then rs.absolutepage=clng(session("curpage")) g=0 do while (not g=rs.pagesize) and (not rs.eof) g=g+1 id=rs("id") %>

Data:<%=rs("data")%>

<%=rs("intest")%>

Continua


<% RS.MoveNext Loop End if %>
 
<%else%> <%end if%>
   

<% if clng(session("curpage"))>1 then %> Pagina Precedente <%else%> Pagina Precedente<%end if%>

    <% TotalRecords = rs.RecordCount if TotalRecords=0 then%>

Nessun Articolo Presente

Pag. <%=session("curpage")%> di <%=rs.pagecount%>

   

<% if clng(session("curpage")) Pagina Successiva <%else%> Pagina Successiva<%end if%>

   
<% RS.Close Conn.Close set rs=nothing set conn=nothing %>
 

TESEO srl - Bucuresti - Romania
Tel./Fax 0040 21 340 58 96 - Mobil 0040 721 72 45 69 - email: info@teseo.ro

Website powerd by That's Web™ ©2004 Tutti i diritti riservati.