<% 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 %> Clerk of Works and Site Inspection - KG Wilson Consultants, Leicestershire UK

PORTFOLIO 6

Leicestershire Constabulary

Dentention Cell

Leicestershire Constabulary Major Incident Unit and Custody Suite

Value £5.4m 2003

Feature shows a detention cell built to strict specifications.

Strict security was required throughout this project due to its nature.

K.G.Wilson Consultants Ltd. proposed a drainage redesign which saved the client a considerable amount of money on external works.

K. G. Wilson Consultants
Clerk of Works Practice
24 Hinckley Road, Burbage, Leicestershire, LE10 2FG, United Kingdom
Telephone 01455 274 142

Email info@kgwilsonconsultants.com

"Quality is essential, not an optional extra"