<!--#include file="Inc/Conn.asp" -->
<%
Response.Write("<data>")
set rs=server.CreateObject("adodb.recordset")
rs.open"select top 3 * from [ad]  order by id desc",conn,1,1
dim ad
ad=1
do while not rs.eof and ad<=3
Response.Write("<item title="""&ad&""" swfurl=""/"&rs("Adfile")&""" url="""&rs("Adlink")&"""  />")
ad=ad+1
rs.movenext
loop
rs.close:set rs=nothing
Response.Write("</data>")
%>
