Source of categories.asp

<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Categories listing</title>
</head>
<body>
<!-- #include file=AjaxLibrary.asp -->
<%
Dim RS : Set RS = DB.Execute("Select * From Categories")
Dim XC : Set XC = NewXMLObject("CategoryList")
Dim CatNode
 
While Not RS.EOF
  Set CatNode = NewXMLTextElement(XC,"Category",RS("CategoryName").Value,Null)
  CatNode.setAttribute "id",RS("CategoryId").Value
  RS.MoveNext
WEnd
 
OutputXMLResponse XC,"categories.xsl"
%>
</body>
</html>