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

<imageGallery  
scrubColor = "0xcc3366" 
smoothVideo = "true"
captions = "false"
position="left">

<%
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 left(rs("V_path"),4)="http" then
V_path=rs("V_path")
else
V_path="http://"&D_domain&"/"&rs("V_path")
end if
response.Write "<imageData><thumb>"&split(rs("V_thumb"),"@")(0)&"</thumb><lgimage>"&V_path&"</lgimage> <media>video</media> <description><![CDATA[<font color = '#000000' size ='12'>"&RemoveHTML(rs("V_content"))&"</font>]]></description><bufferTime></bufferTime><imageWidth>700</imageWidth><imageHeight>450</imageHeight><thumbDesc><![CDATA[<font color = '#cc6699' size ='12'>"&rs("V_title")&"</font>]]></thumbDesc><thumbCaption>true</thumbCaption><thumbURL></thumbURL><youtubeID></youtubeID><quality>large</quality><startFrame>0</startFrame><fullscreen>on</fullscreen></imageData>"
rs.movenext
		loop
	end if
set rs=nothing
%>
		
</imageGallery>