<%@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?

Head Office
Units 4-6,
Quayside Lodge,
William Morris Way,
London
SW6 2UZ
Tel. 0870 770 6880
Fax. 0870 770 6886
Email - Click Here

 

Tell a friend about this page

Subscribe to our newsletter

 

Units 4-6, Quayside Lodge, William Morris Way, London, SW6 2UZ Phone 0870 770 6880 Fax 0870 770 6886
<% rsLeftPic.Close() Set rsLeftPic = Nothing %> <% rsRightPic.Close() Set rsRightPic = Nothing %>