|
 |
|
|
<%
if not iPageCount = 0 then DataRec.AbsolutePage = iPageCurrent
iRecordsShown = 0
iColumn=0
bgcolor=""
Categorytemp=""
Do While iRecordsShown < iPageSize And Not DataRec.EOF
ID=trim(Datarec("ID"))
Job_Position=trim(Datarec("Job_Position"))
DESCRIPTION=trim(Datarec("DESCRIPTION"))
POSTDATE=trim(Datarec("POSTDATE"))
category=datarec("category")
email=datarec("email")
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
%>
| <%=category%> |
<%
end if
%>
| |
<%=Job_Position%> : |
| <%=description%> |
|
<%
DataRec.MoveNext
iRecordsShown = iRecordsShown + 1
iColumn=iColumn+1
'if iColumn mod 2 = 0 then response.write ""
loop
DataRec.Close
Set DataRec = Nothing
%>
|
|
