<%Set np = Server.CreateObject("ADODB.Recordset")
sor = "SELECT * FROM News order by N_ID desc"
np.Open sor,conn,1,3
page = Request.QueryString("page")
if page="" then
page=1
end if
if np.bof or np.eof then
Gosterme=0
else
Gosterme=1
np.pagesize = 5
np.absolutepage = page
sayfa = np.pagecount%>
<%for i=1 to np.pagesize
if np.eof then exit for%>
 " width="120" height="90" /> |
|
<%=np("N_Title")%>
<%=np("N_Detail")%> |
<%if i=3 or i=np.recordcount then
else%>
| |
 |
| |
<%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%> |
|
