<% 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 Limited
Clerk of Works Practice
Dovecote Court, Potters Marston Hall, Potters Marston, Leicestershire, LE9 3JR, UK
Telephone 01455 274 142
Facsimile 01455 274 722

Email applications@kgwilsonconsultants.com

"Quality is essential, not an optional extra"