<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<%
S_id=Request.ServerVariables("QUERY_STRING")
%>
<?xml version='1.0' encoding='gb2312'?>
<content>
<%
D_domain=split(split("http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL"),"http://")(1),"/theme")(0)
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from video where V_sort="&S_id&" order by V_id desc"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
if instr(rs("V_path"),"http")>0 then
V_path=rs("V_path")
else
V_path="http://"&D_domain&"/"&rs("V_path")
end if

response.Write "<sort><Title><![CDATA["&rs("V_title")&"]]></Title><Desc><![CDATA["&RemoveHTML(rs("V_content"))&"]]></Desc><URL></URL><XML></XML><Thumb>"&split(rs("V_thumb"),"@")(0)&"</Thumb><Image><![CDATA["&V_path&"]]></Image><itemThumbW></itemThumbW><itemThumbH></itemThumbH><itemImageW>"&split(rs("V_thumb"),"@")(1)&"</itemImageW><itemImageH>"&split(rs("V_thumb"),"@")(2)&"</itemImageH><Open>1</Open></sort>"
rs.movenext
		loop
	end if
set rs=nothing
%>
</content>