% 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 3 year contract Value £100m 2003 Two 20 storey tower blocks, conference centre and 9 storey car park. We have three Clerks of Works on this project at present who have been essential in all aspects, especially due to the lack of standards in East Africa. Training – K.G.Wilson Consultants are training 8 post graduates to become Clerks of Works in the following disciplines - building, civils, mechanical and electrical.
|
|||||||||||
K. G. Wilson Consultants
Limited Email applications@kgwilsonconsultants.com
|
|||||||||||