<!--#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)


Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from Nsort where S_id="&S_id
rs.open sql,conn,1,1
S_title=rs("S_title")
rs.close
set rs=nothing
%>
<data title="<%=S_title%>">

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

response.Write "<Info><date>"&year(rs("N_date"))&"-"&month(rs("N_date"))&"-"&day(rs("N_date"))&"</date><title><![CDATA["&rs("N_title")&"]]></title><preview><![CDATA[]]></preview><information><![CDATA["&RemoveHTML(rs("N_content"))&"]]></information><thumbURL>"&rs("N_thumb")&"</thumbURL><imageURL>"&rs("N_pic")&"</imageURL><imageWidth></imageWidth><imageHeight></imageHeight><link></link><openMode>flash</openMode><InfoID>"&rs("N_id")&"</InfoID></Info>"
rs.movenext
		loop
	end if
set rs=nothing
%>
</data>
