<% dim page page = request.querystring("page") if cdbl(page) = 0 then page = "1" rs.open sorgu,conn,1,3 rs.pagesize = 10 rs.absolutepage = page for i=1 to 10 if not rs.eof then %> <% rs.movenext end if next %> <%rs.close%>
Yönetim Paneli  /  <%=ustyazi%> Düzenle

<%=rs("baslik")%>    (<%=rs("tarih")%>) ','s','<%=sess%>','<%=page%>');">[Sil]  ','d','<%=sess%>','<%=page%>');">[Düzenle]  ','o','<%=sess%>','<%=page%>');">[<%if rs("online") = true then response.write "Offline" else response.write "Online"%>]  

<% function Syfa(degerm,karsi,yaz,degeri) if cdbl(degerm) = cdbl(karsi) or cdbl(degerm) = 0 or cdbl(degerm) > karsi then Syfa = "" & yaz & "" else Syfa = "" & yaz & "" end if end function response.write Syfa(page-1,page,"<<",page-1) & "  " for i=1 to rs.pagecount response.write Syfa(i,page,i,i) & "  " next response.write Syfa(page,rs.pagecount,">>",page+1) %>