<% Set rs = Server.CreateObject("ADODB.Recordset") sor = "Select * from haber where mansethaber=true and koseyazisi=false and haberonay='Evet' order by tarih desc" rs.Open sor,cilem,1,3 %> <% i=1 do while i < 11 and not rs.eof %>
<%=left(rs("tarih"),10)%> - &uyeid=<%=rs("uyeid")%>"><%=rs("baslik")%><% rs.movenext i=i+1 Loop %>