<%@ Language=VBScript%> <%Option Explicit%> <% 'on error resume next '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- CursorOptionEnum Values ---- Const adHoldRecords = &H00000100 Const adMovePrevious = &H00000200 Const adAddNew = &H01000400 Const adDelete = &H01000800 Const adUpdate = &H01008000 Const adBookmark = &H00002000 Const adApproxPosition = &H00004000 Const adUpdateBatch = &H00010000 Const adResync = &H00020000 Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 dim conn,rsAgentDetails,numrecords,perpage,start,navbar,i,n,row,searchmethod,searchtext Dim rs, torecs, sPostcode, uSQL, NumericCheck Dim bViewList: bViewList = false SearchText = Request.Querystring("s") If SearchText = "" Then Response.Redirect("locate_agent.asp") If SearchText = "Please Select" Then Response.Redirect("locate_agent.asp") Set rsAgentDetails = Server.CreateObject("ADODB.Recordset") Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\virtualservers\domains\comptoneducation.co.uk\root\inetpub\wwwroot\dbstore\UKGardenBuildings.mdb" SearchMethod=Request.Querystring("method") SELECT CASE SearchMethod Case "1" uSQL="SELECT ASPC.*, Suppliers.* FROM ASPC INNER JOIN Suppliers ON ASPC.SupplierID = Suppliers.SupplierID WHERE (((Suppliers.Region)='" & SearchText & "')) ORDER BY Suppliers.DisplayCentre, Suppliers.Web DESC;" Call CRSearch(uSQL) Case "2" uSQL="SELECT ASPC.*, Suppliers.* FROM ASPC INNER JOIN Suppliers ON ASPC.SupplierID = Suppliers.SupplierID WHERE Suppliers.County='" & SearchText & "' OR Suppliers.County1='" & SearchText & "' OR Suppliers.County2='" & SearchText & "' ORDER BY Suppliers.DisplayCentre, Suppliers.Web DESC;" Call CRSearch(uSQL) Case "3" 'NumericCheck = left(SearchText,2) 'NumericCheck = right(NumericCheck,1) 'If IsNumeric(NumericCheck) Then SearchText = left(Request.Querystring("s"),1) Else SearchText = Request.Querystring("s") SearchText = left(SearchText,2) uSQL="SELECT Suppliers.*, ASPC.Postcode "&_ "FROM (ASPC INNER JOIN Suppliers ON ASPC.SupplierID = Suppliers.SupplierID) INNER JOIN ASPCAC ON Suppliers.SupplierID = ASPCAC.SupplierID "&_ "WHERE (((ASPCAC.[Agent Code]) In (SELECT AgentCode FROM PostcodeReference WHERE Postcode Like '"&SearchText&"%'))) "&_ "ORDER BY Suppliers.DisplayCentre, Suppliers.Web DESC;" Call CRSearch(uSQL) END SELECT Sub CRSearch(uSQL) Set Conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\virtualservers\domains\comptoneducation.co.uk\root\inetpub\wwwroot\dbstore\UKGardenBuildings.mdb" numrecords = 0 perpage = 10 Set rsAgentDetails=Server.CreateObject("ADODB.Recordset") rsAgentDetails.open uSQL,conn,1,1 If Not rsAgentDetails.eof Then numrecords = rsAgentDetails.recordcount End Sub %> <% if not rsAgentDetails.EOF then if request("start") = "" then start = 1 else start = cint(request("start")) end if torecs = ((start+perpage)-1) if torecs > rsAgentDetails.recordcount then torecs = rsAgentDetails.recordcount end if i = 1 navbar = "" for n = 1 to rsAgentDetails.recordcount step perpage if n <> 1 then navbar = navbar & " | " if n = cint(start) then navbar = navbar & ""&i&"" else navbar = navbar & "" navbar = navbar & i & "" end if i = i + 1 next i = 1 rsAgentDetails.move start - 1 end if %> Concrete Garages built by Compton Buildings Ltd. the market leaders in concrete sectional buildings
 
Compton Buildings Market Leaders
Compton Buildings Ltd,
Station Works, Fenny Compton,
Southam, Warwickshire,
CV47 2XB.

Or simply mark your envelope "FREEPOST GARAGES"
Phone and Fax Icon
Freephone 0800 975 8871
Facsimile 01295 770646
What's new
About us
Product details
Garages
How to choose
Minibus Garages
Flat
Apex
Banbury
Sheds/Workshops
Commercial Buildings
Technical Info
Contact us
Agent finder
Request a Brochure
Customer Services
FAQ's
Your nearest agent
These are the Compton agents in your area. The symbols [below] detail the facilities you can expect to find. For more information on each click this symbol.
Information:
Website:
Street Map:
Display Centre:
<% Dim strResult If numrecords > 1 Then strResult = "results:" Else strResult = "result:" If numrecords = 0 Then strResult = "results." %>
Your search for "<%=SearchText%>" returned <%=numrecords&" "&strResult%>
<% for row = start to start + (perpage - 1) if rsAgentDetails.eof then exit for Dim SupplierID If Request.Querystring("Method") = 3 Then SupplierID = rsAgentDetails("SupplierID") Else SupplierID = rsAgentDetails("Suppliers.SupplierID") %> <% i = i + 1 rsAgentDetails.movenext next %>
<%=rsAgentDetails("AgentName")&", "%> <%If rsAgentDetails("Address3") <> "" Then%> <%=rsAgentDetails("Address3")&", "%> <%End If%> <%If rsAgentDetails("County") <> "" Then%> <%=rsAgentDetails("County")%> <%End If%> <%If rsAgentDetails("Web") <> "" Then%> " target="_blank" onMouseOver="window.status='View Website';return true"> <%End If%> <%If rsAgentDetails("Map") = -1 Then%> &client=bottle&scale=50000&width=550&height=550','MultiMap','width=550,height=550')" onMouseOver="window.status='Display Map';return true"> <%End If%> <%If rsAgentDetails("DisplayCentre") = "True" Then%> <%End If%>
<% If not numrecords = 0 Then If not rsAgentDetails.EOF & Request.Querystring("start")="" Then %> <% end if end if %>
<%Response.Write "Records ("&start& "-" & torecs & " of " & rsAgentDetails.recordcount&")  Page(s) : "&navbar%>
Remember, our agents can offer a free site survey, free product specification drawings, and help you with local authority approvals, where necessary. Or just help you choose the best garage for your property. Removal of your old garage, construction of a new base and other related building works are not a problem.
Experiencing any problems with this site? Then please contact the Webmaster
No part of the Compton Garages Web Site may be copied or reproduced without the written permission of Compton Buildings Ltd. Great care is taken to ensure that the information contained in this publication is accurate, but Compton Buildings Ltd. cannot be held responsible for any error or mis-statement or alteration which may occur.
"Your after-sales service is second to none" Mrs F - Shewsbury
request a brochure
<% rsAgentDetails.close 'Conn.close Set Conn = Nothing %>