<% Set Rs = Server.CreateObject("ADODB.Recordset") Rs.ActiveConnection = Conn Rs.Open "SELECT * FROM news Order BY id desc" %>

<% i=0 if not rs.eof then do while not rs.eof and i<15 i=i+1 %> <% rs.movenext loop end if rs.close conn.close %> ','','300, width=700, height=790, top=100, left=300, toolbar=no, menubar=no, scrollbars=yes,resizable=yes,location=no, status=no');"><%=rs("n_title")%>