<!--#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="right">
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from photo where P_sort="&S_id&" order by P_id desc"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
response.Write "<imageData><thumb>"&rs("P_thumb")&"</thumb><lgimage>"&rs("P_path")&"</lgimage> <media>image</media> <description><![CDATA[<font color = '#cc6699' size ='15'>"&rs("P_title")&"</font><br>"&RemoveHTML(rs("P_content"))&"]]></description><bufferTime>4</bufferTime><imageWidth>"&split(rs("P_path"),"_")(1)&"</imageWidth><imageHeight>"&split(rs("P_path"),"_")(2)&"</imageHeight><thumbDesc><![CDATA[<font color = '#cc6699' size ='15'>"&rs("P_title")&"</font><br>"&rs("P_content")&"]]></thumbDesc><thumbCaption>true</thumbCaption><thumbURL></thumbURL><youtubeID></youtubeID><quality></quality><startFrame></startFrame><fullscreen></fullscreen></imageData>"
rs.movenext
		loop
	end if
set rs=nothing
%>
		
</imageGallery>