Introduction
very simple
edit your own SQL exec yourself in this code
by Zion, udanax@msn.com
sample : http://localhost/xrss.asp?FeedID=ifm_id
<?xml version="1.0" encoding="EUC-KR" ?>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'2004 code by udanax.msn.com
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim FeedID,Conn,rs,SQL,rs2, tt, cc, rr
FeedID = Request("FeedID")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set Conn = Server.CreateObject("ADODB.connection")
Conn.Open gsInfoMailConnStr
SQL = "select top 1 b.sendpage_id, a.ifm_title, a.ifm_intro, a.ifm_id from ifm_info"
SQL += "a inner join ifm_sendpage_info b on a.ifm_id = b.ifm_id inner join ifm_sendpage_contents_info c on b.sendpage_id = c.sendpage_id"
SQL += "where a.ifm_id = '"&FeedID&"'"
set rs2 = Conn.Execute(SQL)
tt = rs2("ifm_title")
cc = rs2("ifm_intro")
rr = rs2("ifm_id")
rs2.close
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Response.ContentType = "text/xml"
Set xmlPars = Server.CreateObject("Msxml2.DOMDocument")
Set rss = xmlPars.CreateElement("rss")
rss.setAttribute "version", "2.0"
rss.setAttribute "xmlns:dc", "http://purl.org/dc/elements/1.1/"
rss.setAttribute "xmlns:sy", "http://purl.org/rss/1.0/modules/syndication/"
rss.setAttribute "xmlns:admin", "http://webns.net/mvcb/"
rss.setAttribute "xmlns:rdf", "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlPars.AppendChild(rss)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''channel set start@
Set Channel = xmlPars.CreateElement("channel")
rss.AppendChild(Channel)
Set title = xmlPars.CreateElement("title")
Channel.AppendChild(title)
Channel.childnodes(0).text = tt
Set channel_link = xmlPars.CreateElement("link")
Channel.AppendChild(channel_link)
Channel.childnodes(1).text = "http:=" & rr
Set description = xmlPars.CreateElement("description")
Channel.AppendChild(description)
Channel.childnodes(2).text = cc
Set language = "xmlPars.CreateElement(""dc:language")
Channel.AppendChild(language)
Channel.childnodes(3).text = "ko"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''db query
SQL = "select top 8 b.sendpage_id, a.ifm_title, a.ifm_intro, a.ifm_id, b.sendpage_title, a.user_id, a.chat_id, c.sendpage_contents, b.regdate"
SQL += "from ifm_info a inner join ifm_sendpage_info b on a.ifm_id = b.ifm_id inner join ifm_sendpage_contents_info c on b.sendpage_id = c.sendpage_id"
SQL += "where a.ifm_id = '"&FeedID&"' order by regdate desc"
set rs = Conn.Execute(SQL)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''loop
Do until rs.EOF
Set item = xmlPars.CreateElement("item")
Channel.AppendChild(item)
set title = xmlPars.CreateElement("title")
set link = xmlPars.CreateElement("link")
set description = xmlPars.CreateElement("description")
set dcdate = xmlPars.CreateElement("dc:date")
set dcsubject = xmlPars.CreateElement("dc:author")
item.AppendChild(title)
item.AppendChild(link)
item.AppendChild(description)
item.AppendChild(dcdate)
item.AppendChild(dcsubject)
item.childnodes(0).text = rs("sendpage_title")
item.childnodes(1).text = "http://localhost/?ifm_id="&rr&"&sendpage_id=" & rs("sendpage_id")
item.childnodes(2).text = rs("sendpage_contents")
item.childnodes(3).text = rs("regdate")
item.childnodes(4).text = rs("chat_id")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
rs.movenext
loop
Response.Write xmlPars.xml
rs.close
set rs = nothing
Set xmlPars = nothing
%>