<%
Response.Expires = 0
Response.CacheControl = "no-cache"
response.Buffer = true
Set con = Server.CreateObject("ADODB.Connection")
con.Open Application("CString")
s_Heading= "File & Document Library"
%>
<%=Server.HTMLEncode(s_Heading)%> :. P.K. Ferraris & Associates - Financial Planning South Africa
Categories
<%
strSQL = "SELECT * FROM FileCategories Order by CNAme"
set rsFiles = server.createobject("ADODB.Recordset")
rsFiles.open strSQL, con, 3, 1%>
<% if rsFiles.EOF then
%>
We are in the process of updating our database.
<%
else
%>
<%
do while not rsFiles.EOF
i_CatID = rsFiles("CategoryID")
s_CatName = rsFiles("CName")
%>