<!--#include file="../../../../conn/conn5.asp" -->
<!--#include file="../../../../conn/function.asp" -->
<%
server_v40=Request.ServerVariables("QUERY_STRING")
num=instr(server_v40,".") 
S_id=left(server_v40,num-1)


Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from Nsort where S_id="&S_id
rs.open sql,conn,1,1
S_title=rs("S_title")
rs.close
set rs=nothing
%>
<?xml version="1.0" encoding="gb2312" ?>
<data>
	<settings>
		<!-- module width and height. The values are ignored if in menu.xml the page calling the module has pageIsFullBrowser equal to 'true' -->
		<moduleWidth>615</moduleWidth>
		<moduleHeight>540</moduleHeight>
		
		<!-- sets the module content padding in pixels, for all: left, right, top and bottom -->
		<modulePadding>30</modulePadding>
		
		<!-- module background color. The color needs to start with '0x' value-->
		<moduleBackColor>0xffffff</moduleBackColor>
		
		<!-- module background color alpha. Values from 0 to 1 ( example : 0.2 )-->
		<moduleBackColorAlpha>0</moduleBackColorAlpha>
		
		<!-- module background shadow. Values 'true' or 'false'-->
		<moduleBackShadowActive>false</moduleBackShadowActive>
		
		<!-- scrollbar thickness. recommended values from 4 to 8. The scrollbar is only active when the content is bigger than the height of the module -->
		<scrollbarThickness>6</scrollbarThickness>
		
		<!-- scrollbar background color -->
		<scrollbarColor>0xdddddd</scrollbarColor>
		
		<!-- scrollbar handle over color -->
		<handleOverColor>0x669933</handleOverColor>
		
		<!-- scrollbar handle out color -->
		<handleOutColor>0x669933</handleOutColor>
		
	</settings>
	
	<news>
		<news_settings>
			<!-- news items visible. If the number of items visible multiplied with news_item_width is bigger than the browsers width than the news module will
			
			auto resize itself. This means that it will be less news visible
			-->
			<news_visible>6</news_visible>
			
			<!-- news item width -->
			<news_item_width>200</news_item_width>
			
			<!-- news item height ( contains everything photo and/or text and/or button 'view more' -->
			<news_item_height>370</news_item_height>
			
			<!-- news item photo height -->
			<news_item_photo_height>120</news_item_photo_height>
			
			<!-- news item padding between -->
			<news_padding>10</news_padding>
			
			<!-- news description text width in pixles. If is set to 'auto' than the description will take the photo/video width -->
			<news_description_text_width>auto</news_description_text_width>
			
			<!-- news description text width in pixles. If is set to 'auto' than the description will take the photo/video height -->
			<news_description_text_height>auto</news_description_text_height>
			
			<!-- news description text width in pixles. This only works when there is only text -->
			<news_description_text_width_no_photo>400</news_description_text_width_no_photo>
			
			<!-- news description text height in pixles. This only works when there is only text -->
			<news_description_text_height_no_photo>300</news_description_text_height_no_photo>
			
			<!-- news video width in pixles -->
			<news_video_width>480</news_video_width>
		
			<!-- news video height in pixles -->
			<news_video_height>290</news_video_height>
			
			<!-- news more button text -->
			<news_more><![CDATA[<more>ÔÄ¶Á¸ü¶à</more>]]></news_more>
		</news_settings>
		
		
<%
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 "<item><thumb>"&rs("N_thumb")&"</thumb><excerpt><![CDATA[<N_title1>"&rs("N_title")&"</N_title1>]]><![CDATA[<N_body1><br/>"&rs("N_date")&"<br/></N_body1>]]><![CDATA[<N_body1>"&left(LoseHtml(rs("N_content")),80)&"...</N_body1>]]></excerpt><description><media>"&rs("N_pic")&"</media><body><![CDATA[<N_title2>"&rs("N_title")&"</N_title2>]]><![CDATA[<N_body2><br/>"&rs("N_date")&"<br/></N_body2>]]><![CDATA[<N_body2>"&RemoveHTML(rs("N_content"))&"</N_body2>]]></body></description></item>"
rs.movenext
		loop
	end if
set rs=nothing
%>
	
	</news>
</data>