<%@ Language=VBScript CODEPAGE="936"%>
<!--#include file="../conn.asp"-->
<%
typeID = Request("typeID")
if typeID <> "" then
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from xmlNewsList n,xmlNewsType t where n.typeID = t.typeID and n.typeID="&typeID&" order by n.newsCount asc,n.flowNo desc"
rs.Open rs.Source,conn,3,1

Response.Write "<?xml version='1.0' encoding='utf-8'?>"&chr(13)
Response.Write "<main linkColor='0x999999' rollOverColor='0xff3333' linkSpacing='30'>"



		for i=1 to rs.recordcount
			if rs.EOF then
			exit for
			else
			
				Response.Write "<item>" & chr(13)
				Response.Write "<title><![CDATA["
				Response.Write rs("newsTitle")
				Response.Write "¡ª"
				Response.Write rs("postTime")
				Response.Write "]]></title>" & chr(13)
				Response.Write "<text><![CDATA["
				Response.Write rs("newsContent")
				Response.Write "]]></text>>"& chr(13)
                Response.Write "</item>"
				rs.MoveNext
			end if
		next
	rs.Close
	Set rs=nothing
	conn.Close
	Set conn=nothing
Response.Write "</main>"&chr(13)
end if
%>