<%
Set rshaber = Server.CreateObject("ADODB.Recordset")
rs1 = "Select * from haberler where kategori=1 order by id desc"
rshaber.Open rs1,Sur,1,3
%>
yapman gerek