http://www.via-news.comVia News<% Dim strConnString, oConn, oRS, oFld Set oConn = Server.CreateObject("ADODB.Connection") strConnString = Application("conectar") oConn.Open strConnString Dim conexion, rs, basedatos Set rs = server.CreateObject("ADODB.recordset") rs.Open "SELECT top 15 * FROM vianewsnoticia ORDER BY id desc", oConn, 2, 2 'for i = 1 to 10 do until rs.eof 'rs.MoveNext %>http://www.comicvia.net/asp/news/entero.asp?entero=<%=rs("id")%><%=rs("descripcion")%><% rs.movenext 'next Loop ' Impostazione che setta il tipo di file in output su XML %> <% response.ContentType = "text/xml" %>