% 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 1 |
|||||||||||
![]()
|
|||||||||||
| Bank Headquarters in East Africa 5 year contract Value £150m 2003 completion 2008 Two 20 storey tower blocks, conference centre and 9 storey car park. Three Clerks of Works were employed on this project. They have been essential in all aspects, especially due to the lack of standards in East Africa. Training – K.G.Wilson Consultants trained 8 post graduates to become Clerks of Works in the following disciplines - building, civils, mechanical and electrical.
|
|||||||||||
K. G. Wilson Consultants
Limited Email info@kgwilsonconsultants.com
|
|||||||||||