File Manager

<script runat=server language=vbscript>
response.contenttype="text/xml"
response.buffer=true
response.write "<?xml version=""1.0"" encoding=""windows-874""?>"
response.write "<rss version=""2.0"">"
	response.write "<channel>"
	response.write "<TITLE>�ҹ�Ԩ��ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</TITLE>"
	response.write "<link>aaaaaa</link>"
	response.write "<description>bbb</description>"
	id=5
sqlall="select * from research where id_status_res='"&id&"' order by id_research desc"
set orsall=server.createobject("adodb.recordset")
orsall.open sqlall,conn,1,3
'response.write sqlall
if not orsall.eof then

che=5
i=1
response.write "<ul>"
					orsall.movefirst
							do while i<=che
									response.write "<li>"
									response.write "<ITEM>"
									response.write "<title>aaaaa</title>"
									response.write "<description><a href=http://bsris.swu.ac.th/detail_res.asp?id="&orsall("id_research")&">"&orsall("research_t")&"</a>("&orsall("id_research")&")</description>"
												sqlp="select * from reportprogress_res where id_status_res=5 and id_contact='"&orsall("id_contact")&"'"
												set orsp=server.createobject("adodb.recordset")
												orsp.open sqlp,conn,1,3
												if not orsp.eof then
															response.write "<LINK>"&orsp("y_report")&"</LINK>"
												end if

response.write "</ITEM>"
									response.write "</li>"
							i=i+1
							orsall.movenext
							loop
response.write "</ul>"
									
									response.write "</channel>"
									response.write "</rss>"
end if

</script>

File Manager

Editing: news_res.asp