<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<?xml version='1.0' encoding='utf-8'?>
<%
server_v40=Request.ServerVariables("QUERY_STRING")
num=instr(server_v40,".") 
S_id=left(server_v40,num-1)
%>
<data>

<%
D_domain=split(split("http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL"),"http://")(1),"/module")(0)
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from video where V_sort="&S_id&" order by V_order"
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 "<item><title><![CDATA["&rs("V_title")&"]]></title><description><![CDATA["&rs("V_content")&"]]></description><thumbURL>"&split(rs("V_thumb"),"@")(0)&"</thumbURL><videoURL><![CDATA["&V_path&"]]></videoURL><videoWidth>"&split(rs("V_thumb"),"@")(1)&"</videoWidth><videoHeight>"&split(rs("V_thumb"),"@")(2)&"</videoHeight><openMode>"&rs("V_type")&"</openMode></item>"
rs.movenext
		loop
	end if
set rs=nothing
%>
</data>
