% 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 3 |
|||||||||||
![]()
|
|||||||||||
| De Montfort University, Leicester Value £5m 1997 Extension to the Kimberlin Library. Phase II to accommodate 700 computers. 4 storey extension to double the size of the library. The Argeton Clay Tile façade was the first project in the UK to use this system. The Clerk of Works attended a certification course in Germany to be technically trained for the installation and to obtain the required standard. The library was open to students during the course of this project and care and consideration for their safety and comfort was an important factor for the Clerk of Works.
|
|||||||||||
K. G. Wilson Consultants
Limited Email applications@kgwilsonconsultants.com
|
|||||||||||