<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<%
S_id=Request.ServerVariables("QUERY_STRING")
%>
<?xml version='1.0' encoding='gb2312'?>
<InfoList>
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from news where N_sort="&S_id&" order by N_id desc"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
response.Write"<Info><date>"&rs("N_date")&"</date><title><![CDATA["&rs("N_title")&"]]></title><topic><![CDATA["&left(loseHtml(rs("N_content")),100)&"...]]></topic><description><![CDATA["&RemoveHTML(rs("N_content"))&"]]></description><SImg>"&rs("N_thumb")&"</SImg><url></url><Open>1</Open><Img>"&rs("N_pic")&"</Img><YWidth>590</YWidth><YHeight>179</YHeight><InfoID>24</InfoID></Info>"
rs.movenext
		loop
	end if
set rs=nothing
%>
</InfoList>