% 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 2 |
|||||||||||
![]()
|
|||||||||||
| Cable & Wireless Telecommunications College, Coventry Value £24m 1993 7 classroom wings, 2 apartment blocks, admin block, 77 classrooms, 150 bed student accommodation and leisure centre. Gable soffit feature on wave shaped roof of teaching wing. The architects on this project won a national design award. The Clerk of Works on this project needed a firm hand to deal with a difficult contractor so that the very high quality finish required by the client was achieved.
|
|||||||||||
K. G. Wilson Consultants
Limited Email applications@kgwilsonconsultants.com
|
|||||||||||