<%
Response.Expires = 0
Response.CacheControl = "no-cache"
response.Buffer = true
i_CatID = request("CatID")
if i_CatID = empty then
response.Redirect("lib_cat.asp?cache="&now())
end if
Set con = Server.CreateObject("ADODB.Connection")
con.Open Application("CString")
s_Heading= "File & Document Library"
%>
<% = request("CatName")%> :. P.K. Ferraris & Associates - Financial Planning South Africa
<% = request("CatName")%>
<%
strSQL = "SELECT * FROM CMS_Page WHERE CategoryID = "& i_CatID &" Order by Heading"
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
%>
<%
rsFiles.PageSize = 10
intPageCount = rsFiles.PageCount
if request("intPage") <> empty and IsNumeric(request("intPage")) then
intPage = CInt(request("intPage"))
else
intPage = 1
end if
if intPage > intPageCount then
intPage = intPageCount
elseif intPage < 1 then
intPage = 1
end if
rsFiles.AbsolutePage = intPage
%>
<% for i = 1 to rsFiles.PageSize
i_PageID = rsFiles("PageID")
i_CategoryID = rsFiles("CategoryID")
s_Heading = rsFiles("Heading")
s_FileName = rsFiles("FileName")
s_FileSize = rsFiles("FileSize")
%>