London Keyholding Company

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsLeftPic__MMColParam rsLeftPic__MMColParam = "Left" If (Request("MM_EmptyValue") <> "") Then rsLeftPic__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsLeftPic Dim rsLeftPic_numRows Set rsLeftPic = Server.CreateObject("ADODB.Recordset") rsLeftPic.ActiveConnection = MM_LondonKeyholding_STRING rsLeftPic.Source = "SELECT * FROM Pictures WHERE PictureLocation = '" + Replace(rsLeftPic__MMColParam, "'", "''") + "'" rsLeftPic.CursorType = 0 rsLeftPic.CursorLocation = 2 rsLeftPic.LockType = 1 rsLeftPic.Open() rsLeftPic_numRows = 0 %> <% Dim rsRightPic__MMColParam rsRightPic__MMColParam = "Right" If (Request("MM_EmptyValue") <> "") Then rsRightPic__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsRightPic Dim rsRightPic_numRows Set rsRightPic = Server.CreateObject("ADODB.Recordset") rsRightPic.ActiveConnection = MM_LondonKeyholding_STRING rsRightPic.Source = "SELECT * FROM Pictures WHERE PictureLocation = '" + Replace(rsRightPic__MMColParam, "'", "''") + "'" rsRightPic.CursorType = 0 rsRightPic.CursorLocation = 2 rsRightPic.LockType = 1 rsRightPic.Open() rsRightPic_numRows = 0 %> <% Dim rrSource_rsLeftPic, rrRecCount_rsLeftPic, re_rsLeftPic Set re_rsLeftPic = New regexp re_rsLeftPic.Pattern = "SELECT (.*) FROM " re_rsLeftPic.Global = False re_rsLeftPic.IgnoreCase = True rrSource_rsLeftPic="Select Count(*) as RecCount From " & re_rsLeftPic.Replace(rsLeftPic.Source,"") rrRecCount_rsLeftPic=CInt(rsLeftPic.ActiveConnection.Execute(rrSource_rsLeftPic)("RecCount")) Set rrSource_rsLeftPic = Nothing Set re_rsLeftPic = Nothing %> <% Dim rrSource_rsRightPic, rrRecCount_rsRightPic, re_rsRightPic Set re_rsRightPic = New regexp re_rsRightPic.Pattern = "SELECT (.*) FROM " re_rsRightPic.Global = False re_rsRightPic.IgnoreCase = True rrSource_rsRightPic="Select Count(*) as RecCount From " & re_rsRightPic.Replace(rsRightPic.Source,"") rrRecCount_rsRightPic=CInt(rsRightPic.ActiveConnection.Execute(rrSource_rsRightPic)("RecCount")) Set rrSource_rsRightPic = Nothing Set re_rsRightPic = Nothing %> London Keyholding Company - Request Quote

Request Quotation

If you would like a quotation please complete the form below and we will get back to you as soon as possible.

*Required Fields

Title
Forename*
Surname*
Company Name (if applicable)

Telephone*
Fax
Email Address*

How would you like to receive your quote?
Please phone me before sending quote

Quote Required For:
Keyholding
Mobile Patrols

Promotion Code: ( if applicable )

Address 1*
Address 2*
Town*
County
Postcode*

Site address if different from above:
Address 1
Address 2
Town
County
Postcode
Type of property

Where did you hear about us?

Kings Cross Head Office

Key House,
15 Kings Exchange,
Tileyard Road,
London
N7 9AH

Tel. 020 7691 9876

Fax. 020 7691 9889

Email - Click Here

Key House, 15 Kings Exchange, Tileyard Road, London N7 9AH	0800 587 7091 020 7691 9889

<% rsLeftPic.Close() Set rsLeftPic = Nothing %> <% rsRightPic.Close() Set rsRightPic = Nothing %>