% pid = request.QueryString("PID") Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from portfolio where id = " & pid rs.open sql, conn, 3, 3 Set rsall = Server.CreateObject("ADODB.Recordset") sql = "select * from portfolio order by ID Desc" rsall.open sql, conn, 3, 3 loopcount = 1 do while rsall("id") <> rs("id") loopcount = loopcount + 1 rsall.movenext loop prev = "" nxt = "" if loopcount = rsall.recordcount then rsall.moveprevious prev = rsall("id") rsall.movefirst nxt = rsall("id") elseif loopcount = 1 then rsall.movenext nxt = rsall("id") rsall.movelast prev = rsall("id") else rsall.movenext nxt = rsall("id") rsall.moveprevious rsall.moveprevious if rsall.bof = true then rsall.movelast prev = rsall("id") else prev = rsall("id") end if end if %>
![]() |
PORTFOLIO 5 |
|||||||||||
![]()
|
|||||||||||
| Royal Mail Automated Processing Centre Value £8.5m 1995 90,000 square feet plus motor transport workshops 65% of the fit-out costs were M&E involving a high degree of CCTV surveillance and security systems. When we were appointed as clerk of works the shell
of the building was complete – we noticed the ramp down to the
loading docks was too steep to accommodate the Royal Mail lorries.
The ramp had to be redesigned.
|
|||||||||||
K. G. Wilson Consultants
Limited Email applications@kgwilsonconsultants.com
|
|||||||||||