<%Set np = Server.CreateObject("ADODB.Recordset") sor = "SELECT * FROM Press order by P_ID desc" np.Open sor,conn,1,3 if np.bof or np.eof then Gosterme=0 else Gosterme=1 page = Request.QueryString("page") if page="" then page=1 end if np.pagesize = 25 np.absolutepage = page sayfa = np.pagecount%>
 
<%if i mod KS=0 then response.write "" end if np.movenext next end if np.Close Set np = Nothing%><%If Gosterme=0 then%> <%else%>

<% Dim intCurrentPage, intLastPage intLastPage = sayfa Call PageNav(intCurrentPage, intLastPage)%>
<%end if%>
<%KS=5 for i=1 to np.pagesize if np.eof then exit for %>
<%if np("P_Foto")="" or IsNull(np("P_Foto")) then else%> " target="_blank">" width="110" height="110" border="0" /> <%end if%>
<%=np("P_Title")%>