%@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
|
|
|
|
|
Please choose from a project below.
Job Name |
Date |
<%
While ((Repeat1__numRows <> 0) AND (NOT rsJobs.EOF))
%>
|
<%=(rsJobs.Fields.Item("JobDate").Value)%> |
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsJobs.MoveNext()
Wend
%>
|
|
<%
rsJobs.Close()
Set rsJobs = Nothing
%>