INSTRUCTIONS ON HOW TO DOWNLOAD:
To view files online, simply click the file names to launch Adobe Acrobat Reader. To download files, right click on the files names and select "Save target as". This will allow you to save files to your system.
<%
if not iPageCount = 0 then DataRec.AbsolutePage = iPageCurrent
iRecordsShown = 0
iColumn=0
bgcolor="EBEBEB"
Categorytemp=""
Do While iRecordsShown < iPageSize And Not DataRec.EOF
ID=trim(Datarec("ID"))
TITLE=trim(Datarec("TITLE"))
DESCRIPTION=trim(Datarec("DESCRIPTION"))
POSTDATE=trim(Datarec("POSTDATE"))
category=datarec("category")
Image1=datarec("image1")
Image2=datarec("image2")
if image1="" or isNull(datarec("image1")) then image1="download.gif"
if not description = "" then
if instr(ucase(description ),"")
end if
' if len(description )>400 then description =left(description ,400)&" ..."
end if
if not Categorytemp=category then
Categorytemp=category
iColumn=0
bgcolor="EBEBEB"
%>
| <%=category%> |
<%
end if
%>
| <%=title%> <%=Image2%> |
<%
DataRec.MoveNext
iRecordsShown = iRecordsShown + 1
iColumn=iColumn+1
if iColumn mod 2 = 0 then response.write " "
bgcolor=""
if iColumn mod 4 = 0 or iColumn mod 4 = 1 then bgcolor="EBEBEB"
loop
DataRec.Close
Set DataRec = Nothing
%>
|
