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,XSL
 
While Not RS.EOF
  Set CatNode = NewXMLTextElement(XC,"Category",RS("CategoryName").Value,Null)
  CatNode.setAttribute "id",RS("CategoryId").Value
  RS.MoveNext
WEnd
 
XSL = "categories.xsl"
If Request("mode") = "ajax" Then XSL = "categories_ajax.xsl"
 
OutputXMLResponse XC,XSL
%>
</body>
</html>