Lund Martin Construction

<% dim rsTemp,conntemp, mySql,rsTemp2,msg msg="" const numPerPage = 10 if request.queryString("curPage") = "" then curPage = 1 else curPage = request.queryString("curPage") end if sql1="select * from personnel order by lastname asc" on error resume next call getFromDatabasePerPage(sql1, rsTemp) //if not rsTemp1.eof then //end if %>

<%//***************Data****************%> <% if rstemp.eof then %>

We're sorry! No information is currently available.

<% else rstemp.moveFirst rstemp.pageSize = numPerPage totalPages = rstemp.PageCount rstemp.absolutePage = curPage count=0 %>

<% i=((curPage-1)*numPerPage)+1 do while not rstemp.eof and count < rstemp.pageSize idinvestor = rstemp("idpersonnel") name = rstemp("firstname") lastName = rstemp("lastName") jobtitle = rstemp("jobtitle") projid = idinvestor strimage = rstemp("imageurl") if count mod 2 = 0 then bc="#cccccc" else bc="#ffffff" end if pTotal=rstemp.RecordCount currentPage=curPage if pTotal=1 then currentPage=1 else if pTotal mod numPerPage=1 then if i=pTotal then currentPage=curPage-1 end if end if end if %> <% i=i+1 count = count + 1 rstemp.moveNext loop %>

<%call gfxSpex(Server.mapPath("backend/imageUpload/"&strImage), w, h, c, strType) %> <%=name%> <%=lastName%> - <%=jobtitle%>

<%if (rstemp.RecordCount) > (rstemp.PageSize) then %> <%end if%>

Page <%=curPage%> of <%=rstemp.PageCount%>

Total <%=(rstemp.RecordCount)%> Person(s)

Pages : <%if (curPage > 1) then%> << First < Prev <%end if %> <%for i= 1 to rstemp.PageCount %> <%if (cInt(curPage) = i) then %> <%=i%> <%else%> <%=i%> <%end if%> <%next%> <% if ((curPage+1) <= (rstemp.PageCount)) then%> Next > Last >> <%end if %>

<%end if%> <%//************************************%>