<%@ 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 "<news>"&chr(13)
Response.Write "<settings>"&chr(13)
Response.Write "<moduleWidth>880</moduleWidth>"&chr(13)
Response.Write "<moduleHeight>220</moduleHeight>"&chr(13)

typeids=rs("typeID")
set rs2=server.CreateObject("ADODB.RecordSet")
rs2.Source="select * from xmlNewstype where typeID="&typeids
rs2.Open rs2.Source,conn,1,1


Response.Write "<moduleMainTitle>"
Response.Write rs2("typetitle")
Response.Write "</moduleMainTitle>"&chr(13)
Response.Write "<verticalSpace>10</verticalSpace>"&chr(13)
Response.Write "<enableOverActionsOnButtons>1</enableOverActionsOnButtons>"&chr(13)
Response.Write "<popupWidth>850</popupWidth>"&chr(13)
Response.Write "<popupHeight>400</popupHeight>"&chr(13)
Response.Write "<animationAlpha>100</animationAlpha>"&chr(13)
Response.Write "<animationScale>100</animationScale>"&chr(13)
Response.Write "<popupProtectTransparency>90</popupProtectTransparency>"&chr(13)
Response.Write "<popupProtectAnimationTime>0.9</popupProtectAnimationTime>"&chr(13)
Response.Write "<popupShowAnimationTime>0.5</popupShowAnimationTime>"&chr(13)
Response.Write "<popupShowAnimationType>easeoutquart</popupShowAnimationType>"&chr(13)
Response.Write "<popupHideAnimationTime>0.5</popupHideAnimationTime>"&chr(13)
Response.Write "<popupHideAnimationType>easeoutquart</popupHideAnimationType>"&chr(13)
Response.Write "</settings>"&chr(13)
Response.Write "<content>"&chr(13)




		for i=1 to rs.recordcount
			if rs.EOF then
			exit for
			else
			
				Response.Write "<item title='" 
				Response.Write rs("newsTitle")
				Response.Write " ' date='"
				Response.Write rs("postTime")
				Response.Write "' browserTitle='" 
				Response.Write rs("flowNo")
				Response.Write "' browserUrl='/"
				Response.Write rs("flowNo")
				Response.Write "/'>"& chr(13)
				Response.Write "<![CDATA["& chr(13)
                Response.Write "<font size='20' color='#000000'>"
				Response.Write rs("newsTitle")
				Response.Write "</font><br /><br />"
				Response.Write rs("newsContent")
				Response.Write "]]>"& chr(13)
                Response.Write "</item>"& chr(13)
				rs.MoveNext
			end if
		next
	rs.Close
	Set rs=nothing
	conn.Close
	Set conn=nothing
Response.Write "</content>"&chr(13)
end if
Response.Write "</news>"&chr(13)
%>