<%@ 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,1,1

Response.Write "<?xml version='1.0' encoding='utf-8'?>"&chr(13)
Response.Write "<services>" & chr(13)
Response.Write "<menu>" & chr(13)



		for i=1 to rs.recordcount
			if rs.EOF then
			exit for
			else
			
				Response.Write "<option>" &chr(13)
				Response.Write "<title><![CDATA[<Text_Preset_2>"
				Response.Write rs("newsTitle")
				Response.Write "</Text_Preset_2>]]></title>"&chr(13)
				Response.Write "<introText><![CDATA[<normal_small_shadow>"
				Response.Write rs("newsContent")
				Response.Write "</normal_small_shadow>]]></introText>"& chr(13)
				Response.Write "<info><![CDATA[<normal_small_shadow>"
				Response.Write rs("newsContent")
				Response.Write "<normal_small_shadow>]]></info>"& chr(13)
				Response.Write "<extraScroll>"
				Response.Write rs("flowNo")
				Response.Write "</extraScroll>"& chr(13)
                Response.Write "</option>"& chr(13)
				rs.MoveNext
			end if
		next
	rs.Close
	Set rs=nothing
	conn.Close
	Set conn=nothing
Response.Write "</menu>"&chr(13)
Response.Write "<itemWidth>300</itemWidth>"&chr(13)
Response.Write "<itemHeight>200</itemHeight>"&chr(13)
Response.Write "<showItems>3</showItems>"&chr(13)
Response.Write "<itemSpacing>10</itemSpacing>"&chr(13)
Response.Write "<infoWidth>900</infoWidth>"&chr(13)
Response.Write "<infoHeight>400</infoHeight>"&chr(13)
Response.Write "<equalInfoToMenu value='false' />"&chr(13)
Response.Write "</services>"&chr(13)
end if
%>