<% dim rsTemp,conntemp, mySql,rsTemp2,msg,tlen msg="" const numPerPage = 10 if request.queryString("curPage") = "" then curPage = 1 else curPage = request.queryString("curPage") end If If(request("past")<>"") then past = request("past") else past = 0 End If if past = 1 then sql1="select * from projects where pastproject=1 order by Title" else sql1="select * from projects where pastproject=0 and active='1' order by Title" end if 'modifiedon desc on error resume next call getFromDatabasePerPage(sql1, rsTemp) %>

<% if past = 1 then %> <% else %> <% end if %> <% if past = 1 then %> <% else %> <% end if %> <% if rstemp.eof then %> <% if past = 1 then %> Sorry - no past projects information available at this time <% else %> Sorry ! No Projects are available <% end if%> <% else rstemp.moveFirst rstemp.pageSize = numPerPage totalPages = rstemp.PageCount rstemp.absolutePage = curPage count=0 %> <% i=((curPage-1)*numPerPage)+1 tlen = 0 do while not rstemp.eof and count < rstemp.pageSize idinvestor = rstemp("idproject") pname = rstemp("Title") 'strAryWords = Split(pname, " - ") 'pname1 = strAryWords(0) & " - " 'pname2 = strAryWords(1) penterdate = rstemp("modifiedon") jobtitle = rstemp("jobtitle") projid = idinvestor strimage = rstemp("imageurl1") 'tlen = tlen + clng(len(idinvestor)) tlen = tlen + clng(len(pname)) 'tlen = tlen + clng(len(penterdate)) 'tlen = tlen + clng(len(jobtitle)) 'tlen = tlen + clng(len(projid)) tlen = tlen + clng(len(rstemp("description"))) 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 tlen=0 rstemp.moveNext loop %> <%call gfxSpex(Server.mapPath("backend/imageUpload/"&strImage), w, h, c, strType) %> <%'call gfxSpex(Server.mapPath("backend/imageUpload/"&strImage), w, h, c, strType) %><%'=pname1%> <%=pname%> <%if (rstemp.RecordCount) > (rstemp.PageSize) then %> <%end if%> Page <%=curPage%> of <%=rstemp.PageCount%> Total <%=(rstemp.RecordCount)%> Projects(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%> Copyright © Lund Martin Construction