<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_woodengates_STRING MM_woodengates_STRING = "dsn=woodengates;" If Request.ServerVariables("HTTP_HOST")<>"www.woodengatecompany.co.uk" THEN MM_woodengates_STRING = "dsn=woodengates;" END IF If Request.ServerVariables("HTTP_HOST") ="www.woodengatecompany.co.uk" THEN MM_woodengates_STRING = "Driver={MySQL ODBC 5.1 Driver}; DATABASE=web237-wg_data;USER=web237-wg_data; PASSWORD=XuvJzF8r; Server=127.0.0.1" END IF If Request.ServerVariables("HTTP_HOST") ="woodengatecompany.co.uk" THEN MM_woodengates_STRING = "Driver={MySQL ODBC 5.1 Driver}; DATABASE=web237-wg_data;USER=web237-wg_data; PASSWORD=XuvJzF8r; Server=127.0.0.1" END IF If Request.ServerVariables("HTTP_HOST") ="79.170.40.237" THEN MM_woodengates_STRING = "Driver={MySQL ODBC 5.1 Driver}; DATABASE=web237-wg_data;USER=web237-wg_data; PASSWORD=XuvJzF8r; Server=127.0.0.1" END IF %> <% Dim fitters__thiscounty fitters__thiscounty = "staffordshire" If (Request("county") <> "") Then fitters__thiscounty = Request("county") End If %> <% Dim fitters Dim fitters_numRows Set fitters = Server.CreateObject("ADODB.Recordset") fitters.ActiveConnection = MM_woodengates_STRING fitters.Source = "SELECT * FROM fitters WHERE fit_county='" + Replace(fitters__thiscounty, "'", "''") + "' ORDER BY fit_id DESC" fitters.CursorType = 0 fitters.CursorLocation = 2 fitters.LockType = 1 fitters.Open() fitters_numRows = 0 %> <% Dim counties Dim counties_numRows Set counties = Server.CreateObject("ADODB.Recordset") counties.ActiveConnection = MM_woodengates_STRING counties.Source = "SELECT DISTINCT fit_county FROM fitters" counties.CursorType = 0 counties.CursorLocation = 2 counties.LockType = 1 counties.Open() counties_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 fitters_numRows = fitters_numRows + Repeat1__numRows %> <% dim county county="staffordshire" If Request("county")<>"" Then county=Request("county") End If %> <% Dim styles2 Dim styles2_cmd Dim styles2_numRows Set styles2_cmd = Server.CreateObject ("ADODB.Command") styles2_cmd.ActiveConnection = MM_woodengates_STRING styles2_cmd.CommandText = "SELECT * FROM style_09" styles2_cmd.Prepared = true Set styles2 = styles2_cmd.Execute styles2_numRows = 0 %> <% Dim Repeatstylesbottom__numRows Dim Repeatstylesbottom__index Repeatstylesbottom__numRows = -1 Repeatstylesbottom__index = 0 styles2_numRows = styles2_numRows + Repeatstylesbottom__numRows %> <% Dim Repeatmenustyles__numRows Dim Repeatmenustyles__index Repeatmenustyles__numRows = -1 Repeatmenustyles__index = 0 styles_numRows = styles_numRows + Repeatmenustyles__numRows %> Wooden Gate Fitters
wooden gate company - custom made wooden gates

Fitting Your Gates

Expert fitting of your new gates is recommended. The Wooden Gate Company is currently developing this fitters section which displays details of joiners vetted by the wooden gate company.

Become a Fitter

If you would like to be an approved fitter for the wooden gate company, contact us


Search by County

County:
 

Fitters by County

<% If Not fitters.EOF Or Not fitters.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT fitters.EOF)) %>
Company: <%=(fitters.Fields.Item("fit_name").Value)%>
Address: <%=(fitters.Fields.Item("fit_address2").Value)%>, <%=(fitters.Fields.Item("fit_county").Value)%>
Telephone: <%=(fitters.Fields.Item("fit_telephone").Value)%>
Email: "><%=(fitters.Fields.Item("fit_email").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 fitters.MoveNext() Wend %> <% End If ' end Not fitters.EOF Or NOT fitters.BOF %> <% If fitters.EOF And fitters.BOF Then %>

No Fitters are currently listed in your area.

<% End If ' end fitters.EOF And fitters.BOF %>

 

 

Welcome :: About Us :: Gates :: Gate Accessories :: Your Shopping :: Gate Care :: Contact Us :: Login / Register :: Delivery / Refund Policy :: Terms & Conditions

Wooden Gates

<% While ((Repeatstylesbottom__numRows <> 0) AND (NOT styles2.EOF)) %> "><%=(styles2.Fields.Item("gs_name").Value)%> | <% Repeatstylesbottom__index=Repeatstylesbottom__index+1 Repeatstylesbottom__numRows=Repeatstylesbottom__numRows-1 styles2.MoveNext() Wend %> 3/4, 1/4 Gates | Wicket Gates | Something Special

© Copyright Wooden Gate Company <%=Year(NOW())%> | site design by e-kinetics uk * | resources
<% fitters.Close() Set fitters = Nothing %> <% counties.Close() Set counties = Nothing %>