<!--#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)
D_domain=split(split("http://"&LCase(Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL")),"http://")(1),"/module")(0)
%>
<data>
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from photo where P_sort="&S_id&" order by P_order"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof

response.Write "<item><title><![CDATA["&rs("P_title")&"]]></title><description><![CDATA["&rs("P_content")&"]]></description><thumbURL>http://"&D_domain&"/"&rs("P_thumb")&"</thumbURL><imageURL>http://"&D_domain&"/"&rs("P_path")&"</imageURL><imageWidth>600</imageWidth><imageHeight>372</imageHeight><link></link></item>"
rs.movenext
		loop
	end if
set rs=nothing
%>
</data>
