<% Set rs = Server.CreateObject("ADODB.Recordset") sor = "Select * from haberler order by HaberNo desc" rs.Open sor,Sur,1,3 %> <% sayfano = Request.QueryString("sayfano") if sayfano="" then sayfano=1 end if %> <% If rs.eof then Response.Write "Kayıtlı Haber Bulunamadı." %>

<%Response.End End If %> <% rs.pagesize = 4 rs.absolutepage = sayfano sayfa = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for %> <% if i=1 then response.write("") hdr=rs("baslik") response.write Left(hdr,65) %>
<%str=rs("konu") response.write Left(str,65) %> ...
                                                                                                                                       <% response.write " " %>
-------------------------------------------------------------------------------------------------------------------------
<%rs.movenext%> <% next %> <%rs.Close Set rs = Nothing %>