<%@LANGUAGE="VBSCRIPT"%> <% Dim rsProduct__MMColParam rsProduct__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then rsProduct__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsProduct Dim rsProduct_numRows Set rsProduct = Server.CreateObject("ADODB.Recordset") rsProduct.ActiveConnection = MM_GabbString_STRING rsProduct.Source = "SELECT Page_Info_Title, Page_Info_Details, Page_No FROM Page_Info WHERE Page_No = " + Replace(rsProduct__MMColParam, "'", "''") + " ORDER BY Page_Info_No ASC" rsProduct.CursorType = 0 rsProduct.CursorLocation = 2 rsProduct.LockType = 1 rsProduct.Open() rsProduct_numRows = 0 %> <% Dim rsProdNames Dim rsProdNames_numRows Set rsProdNames = Server.CreateObject("ADODB.Recordset") rsProdNames.ActiveConnection = MM_GabbString_STRING rsProdNames.Source = "SELECT * FROM Products ORDER BY Product_No ASC" rsProdNames.CursorType = 0 rsProdNames.CursorLocation = 2 rsProdNames.LockType = 1 rsProdNames.Open() rsProdNames_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsProduct_numRows = rsProduct_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsProdNames_numRows = rsProdNames_numRows + Repeat2__numRows %> services from gabb and co solicitors
gabb and co solicitors
 
gabb and co services >>
 
<% While ((Repeat1__numRows <> 0) AND (NOT rsProduct.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsProduct.MoveNext() Wend %>
<% If (rsProduct.Fields.Item("Page_Info_Title").Value) <> "" Then Response.Write(rsProduct.Fields.Item("Page_Info_Title").Value & "
" & "
") End If%> <%=Replace(rsProduct.Fields.Item("Page_Info_Details").Value,Chr(13), "
")%>
<% While ((Repeat2__numRows <> 0) AND (NOT rsProdNames.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsProdNames.MoveNext() Wend %>

">• <%=rsProdNames.Fields.Item("Product_Name").Value%>
<% rsProduct.Close() Set rsProduct = Nothing %> <% rsProdNames.Close() Set rsProdNames = Nothing %>