<% 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 4

Grove Park Leicester

International Radiators
Factory / Warehouse

Grove Park, Leicester

Value £9m 1999

100,000 square feet Warehouse/Factory/Offices. Roads and Mains Sewers.

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"

Sitemap