<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rsJobs__MMColParam rsJobs__MMColParam = "1" If (Request.QueryString("CategoryID") <> "") Then rsJobs__MMColParam = Request.QueryString("CategoryID") End If %> <% Dim rsJobs Dim rsJobs_numRows Set rsJobs = Server.CreateObject("ADODB.Recordset") rsJobs.ActiveConnection = MM_connRobinson_STRING rsJobs.Source = "SELECT JobID, CategoryID, JobName, JobDate FROM tblJobs WHERE CategoryID = " + Replace(rsJobs__MMColParam, "'", "''") + "" rsJobs.CursorType = 0 rsJobs.CursorLocation = 2 rsJobs.LockType = 1 rsJobs.Open() rsJobs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsJobs_numRows = rsJobs_numRows + Repeat1__numRows %> Robinson Fencing - Huddersfield Fencing and Decking Specialists

Huddersfield based Robinson Fencing are Specialists in supplying and erecting all types of Fencing and Decking in the Huddersfield and West Yorkshire region.
 
A:



T:
E.
 35 Highgate Avenue,
Lepton,
Huddersfield,
HD8 0EE.
01484 607850
info@robinsonfencing.com
 
home products contact us portfolio
  portfolio
   
 

Please choose from a project below.

<% While ((Repeat1__numRows <> 0) AND (NOT rsJobs.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsJobs.MoveNext() Wend %>

Job Name

Date

"><%=(rsJobs.Fields.Item("JobName").Value)%>

<%=(rsJobs.Fields.Item("JobDate").Value)%>

BACK
<% rsJobs.Close() Set rsJobs = Nothing %>