<%Response.Buffer = true%> <%msg = request("msg")%> News

<% IF session("userid") > 0 Then%>

Log Out

<%End IF%>
<%IF msg<>""Then Response.Write "" Response.Write msg Response.Write "

" End IF%> <% set whatsrs=server.createobject("adodb.recordset") whatssql="select c.catname,w.* from whatshot w, jobcategory c" whatssql=whatssql & " where c.catid=w.catid and w.dateofpost >= #"&date()&"# order by w.dateofpost DESC" if session("currentpage")="" then session("currentpage")=1 end if if Request.QueryString("move")="next" then session("currentpage")=session("currentpage")+1 end if if Request.QueryString("move")="prev" then session("currentpage")=session("currentpage")-1 end if whatsrs.CursorLocation=adUseClient whatsrs.Open whatssql,con,3,3 if not whatsrs.EOF then whatsrs.PageSize=10 whatsrs.AbsolutePage=session("currentpage") %> <%do while not whatsrs.EOF and numrows <% whatsrs.MoveNext numrows=numrows+1 loop%>
Company   Position Domestic International
<%=whatsrs.Fields("organisation").Value%>   &desc=<%=whatsrs.Fields("description").Value%>&jobid=<%=whatsrs.Fields("ID").Value%>&catname=<%=whatsrs.Fields("catname").Value%>"> <%=whatsrs.Fields("catname").Value%> <% if trim(whatsrs.Fields("Domestic").Value)="0" then Response.Write "N/A" else Response.Write whatsrs.Fields("Domestic").Value end if %> <% if trim(whatsrs.Fields("international").Value)="0" then Response.Write "N/A" else Response.Write whatsrs.Fields("international").Value end if%>
<% if session("currentpage")>1 then%> <% linkurl="news.asp?move=prev"%> >[Prev] <% end if%> <% if session("currentpage") <% linkurl="news.asp?move=next"%> >[Next] <% end if%> <%%>
<%else Response.Write "No Active Jobs found" End IF %>