ACTIVE SERVER PAGE

<?xml version="1.0" encoding="EUC-KR" ?> 
<% 
Response.ContentType = "text/xml" 
Set xmlPars = Server.CreateObject("Msxml2.DOMDocument") 

 ' 여기서 부터 rss 정보를 담는다. 
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 Channel = xmlPars.CreateElement("channel") 
rss.AppendChild(Channel) 



'<title>정보 
Set title = xmlPars.CreateElement("title") 
Channel.AppendChild(title) 
Channel.childnodes(0).text = "제목"  '제목

'<link>정보 
Set channel_link = xmlPars.CreateElement("link") 
Channel.AppendChild(channel_link) 
Channel.childnodes(1).text = "사이트의 도메인 혹은 체널제공 카테고리의 메인주소"  '주소



'<description>정보 
Set description = xmlPars.CreateElement("description") 
Channel.AppendChild(description) 
Channel.childnodes(2).text = "사이트 설명"  '설명



'<dc:language>정보 
Set language = xmlPars.CreateElement("dc:language") 
Channel.AppendChild(language) 
Channel.childnodes(3).text = "ko" '언어


 Table_Name = "[News_Board]"
 ipp = 10 	   	   	   	   	   '리스트겟수
 ipl = 10 	   	   	   	   	   'Page 리스트겟수



title = "aaa"
Name  = "bbb"
' ex) Name = rs(1) 이런식으로 ㅋㅋㅋ

'<item> 이라는 노드를 추가 
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:subject") 

  item.AppendChild(title) 
  item.AppendChild(link) 
  item.AppendChild(description) 
  item.AppendChild(dcdate) 
  item.AppendChild(dcsubject) 




  item.childnodes(0).text = "1개의 포스트(게시글)의 제목" '제목
  item.childnodes(1).text = "고유 주소"
  item.childnodes(2).text = "본문내용" '내용 필드
  item.childnodes(3).text = "등록일" '날짜 필드
  item.childnodes(4).text = "카테고리 혹은 분류할 수 있는 테그명 등..." '분류 필드


' 마지막으로 최종적으로 뿌려주자. 
Response.Write xmlPars.xml 


Set xmlPars = nothing 
%>