<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<?xml version="1.0" encoding="gb2312" ?>
<home>
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from slide order by S_id desc"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
response.Write "<item><title><![CDATA["&rs("S_title")&"]]></title><images>"&rs("S_pic")&"</images><delay>4000</delay><links></links><imgWidth>800</imgWidth><text><![CDATA["&rs("S_content")&"]]></text></item>"
rs.movenext
		loop
	end if
set rs=nothing
%>
</home>