<%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")%>