<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<?xml version='1.0' encoding='utf-8'?>
<%
D_domain=split(split("http://"&LCase(Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL")),"http://")(1),"/module")(0)
server_v40=Request.ServerVariables("QUERY_STRING")
num=instr(server_v40,".") 
S_id=left(server_v40,num-1)
%>

<data>

<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from Psort where S_sub="&S_id&" order by S_id desc"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof

response.Write "<category><title>"&rs("S_title")&"</title><description><![CDATA["&rs("S_content")&"]]></description><pic>http://"&D_domain&"/"&rs("S_pic")&"</pic><typeID>"&rs("S_id")&"</typeID></category>"
rs.movenext
		loop
	end if
set rs=nothing
%>
</data>
