<!--#include file = "inc/conn.asp"-->
<%
response.write "<?xml version=""1.0"" encoding=""GB2312"" ?>" & vbcrlf
response.write "<xml>" & vbcrlf
response.write " <adlist>" & vbcrlf
set rs_flv=server.CreateObject("adodb.recordset")
rs_sql="select top 15 * from flv order by classid desc"
rs_flv.open rs_sql,conn,1,1
do while not rs_flv.eof
	response.write "  <ad Pic="""&rs_flv("photourl_thumb")&""" FLVid=""9161827"" Path=""video_play.asp?photoid="&rs_flv("photoid")&""" Title="""&rs_flv("photoname")&""" Star=""3"" Click=""263913"" />" & vbcrlf
	rs_flv.movenext
loop
rs_flv.close
set rs_flv=nothing
conn.close
set conn=nothing
response.write "  </adlist>" & vbcrlf
response.write "</xml>"
%>                        
