<% Response.buffer = true %> <% Timeout(1) set con = server.createobject("ADODB.Connection") con.open Application("CString") %> Untitled Document
Maintain file categories
<% strSQL = "SELECT * FROM FileCategories Order by CNAme" set rsUsers = con.execute(strSQL) if rsUsers.EOF then %>

No file categories.

<% else %> <%counterx = 0%> <%do until rsUsers.EOF%> <% i_CatID = rsUsers("CategoryID") s_CatName = rsUsers("CName") %> <%rsUsers.MoveNext%> <%loop%>
 

Category Name
Edit Delete

<%=s_CatName%>
<%end if%>