<!--#include file="../../../../conn/conn5.asp" -->
<!--#include file="../../../../conn/function.asp" -->
<%
D_domain=split(split("http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL"),"http://")(1),"/theme")(0)
server_v40=Request.ServerVariables("QUERY_STRING")
num=instr(server_v40,".") 
S_id=left(server_v40,num-1)

Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from Vsort where S_id="&S_id&" order by V_id desc"
rs.open sql,conn,1,1
S_title=rs("S_title")
rs.close
set rs=nothing

%>
<?xml version="1.0" encoding="gb2312" ?>
<data>
	<settings>
		
		<!-- since the css can't be specified for the loader text we specify the CSS class here. The 'percentLoad' CSS class can be found
			 in the CSS specified for this gallery.
		-->
		<galleryPercentCSSTag>percentLoad</galleryPercentCSSTag>
		
		<!-- gallery number of columns -->
		<gridColumns>5</gridColumns>
		
		<!-- gallery number of lines -->
		<gridLines>2</gridLines>
		
		<!-- gallery thumb width -->
		<gridThumbWidth>170</gridThumbWidth>
		
		<!-- gallery thumb height -->
		<gridThumbHeight>170</gridThumbHeight>
		
		<!-- gallery thumb spacing -->
		<gridSpacing>4</gridSpacing>
		
		<!-- gallery scrollbar thickness -->
		<gridScrollbarThickness>6</gridScrollbarThickness>
		
		<!-- gallery scrollbar color -->
		<gridScrollbarColor>0XEAEAEA</gridScrollbarColor>
		
		<!-- gallery scrollbar over color -->
		<gridHandleOverColor>0x909090</gridHandleOverColor>
		
		<!-- gallery scrollbar out color -->
		<gridHandleOutColor>0x000000</gridHandleOutColor>
		
		<!-- gallery tooltip background color -->
		<gridTooltipBackColor>0xffffff</gridTooltipBackColor>
		
		<!-- gallery tooltip background color alpha. Values from 0 to 1 (example: 0.1, 0.5 -->
		<gridTooltipBackColorAlpha>.7</gridTooltipBackColorAlpha>
		
		<!-- video auto play. If the gallery has video then you can set 'autoPlay' true or false when a video was click -->
		<videoAutoPlay>true</videoAutoPlay>
		
		<!-- 
			slide timer. When play button is clicked the slideshow timer will start and after this number of seconds 
			 it will go to the next slide
		-->	 
		<slideTimer>4</slideTimer>
		
	</settings>
	<gallery>
		<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from video where V_sort="&S_id
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 "<item thumbURL='"&split(rs("V_thumb"),"@")(0)&"' videoURL='"&V_path&"'><label><![CDATA[<thumb>"&rs("V_title")&"</thumb>]]></label></item>"
rs.movenext
		loop
	end if
set rs=nothing
%>
	</gallery>
</data>