<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim rsJob__MMColParam rsJob__MMColParam = "1" If (Request.QueryString("JobID") <> "") Then rsJob__MMColParam = Request.QueryString("JobID") End If %> <% Dim rsJob Dim rsJob_numRows Set rsJob = Server.CreateObject("ADODB.Recordset") rsJob.ActiveConnection = MM_connRobinson_STRING rsJob.Source = "SELECT JobID, JobName, JobDescription FROM tblJobs WHERE JobID = " + Replace(rsJob__MMColParam, "'", "''") + "" rsJob.CursorType = 0 rsJob.CursorLocation = 2 rsJob.LockType = 1 rsJob.Open() rsJob_numRows = 0 %> <% Dim rsPhotos__MMColParam rsPhotos__MMColParam = "1" If (Request.QueryString("JobID") <> "") Then rsPhotos__MMColParam = Request.QueryString("JobID") End If %> <% Dim rsPhotos Dim rsPhotos_numRows Set rsPhotos = Server.CreateObject("ADODB.Recordset") rsPhotos.ActiveConnection = MM_connRobinson_STRING rsPhotos.Source = "SELECT * FROM tblPhotos WHERE JobID = " + Replace(rsPhotos__MMColParam, "'", "''") + " ORDER BY PhotoID ASC" rsPhotos.CursorType = 0 rsPhotos.CursorLocation = 2 rsPhotos.LockType = 1 rsPhotos.Open() rsPhotos_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 rsPhotos_numRows = rsPhotos_numRows + HLooper1__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

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

<%=(rsJob.Fields.Item("JobDescription").Value)%>

<% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = -1 while((numrows <> 0) AND (Not rsPhotos.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsPhotos.EOF)) %> <% startrw = startrw + 1 rsPhotos.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

','','scrollbars=yes,resizable=yes,width=700,height=550')">

" alt="<%=(rsPhotos.Fields.Item("PhotoName").Value)%>" border="0">

<%=(rsPhotos.Fields.Item("PhotoName").Value)%>

BACK

<% rsJob.Close() Set rsJob = Nothing %> <% rsPhotos.Close() Set rsPhotos = Nothing %>