Perth Communications_It's time we talked!

<%@LANGUAGE="VBSCRIPT"%> <% Session("ManufacturerDisplay") = Request.QueryString("Manufacturer") %> <% Dim rsProducts__MMColParam rsProducts__MMColParam = "1" If (Request.QueryString("Manufacturer") <> "") Then rsProducts__MMColParam = Request.QueryString("Manufacturer") End If %> <% Dim rsProducts__MMColParam2 rsProducts__MMColParam2 = "Pagers" If (Request("MM_EmptyValue") <> "") Then rsProducts__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim rsProducts Dim rsProducts_numRows Set rsProducts = Server.CreateObject("ADODB.Recordset") rsProducts.ActiveConnection = MM_connPerthComm_STRING rsProducts.Source = "SELECT perth_products.*, perth_parent.*, perth_child.* FROM perth_products, perth_parent, perth_child WHERE perth_products.ProdCategory = perth_parent.ParentID AND perth_products.ProdManufacturer = perth_child.ChildID AND perth_child.ChildText = '" + Replace(rsProducts__MMColParam, "'", "''") + "' AND perth_parent.ParentText = '" + Replace(rsProducts__MMColParam2, "'", "''") + "' ORDER BY perth_products.ProdSort ASC" rsProducts.CursorType = 0 rsProducts.CursorLocation = 2 rsProducts.LockType = 1 rsProducts.Open() rsProducts_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsProducts_numRows = rsProducts_numRows + Repeat1__numRows %> Perth Communications_It's time we talked!

<%=Session("ManufacturerDisplay")%> Pagers

<% If Not rsProducts.EOF Or Not rsProducts.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsProducts.EOF)) %>

">	<%=(rsProducts.Fields.Item("ProdName").Value)%> <%=(rsProducts.Fields.Item("ProdNumber").Value)%> <%=(rsProducts.Fields.Item("ProdDetails").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsProducts.MoveNext() Wend %> <% End If ' end Not rsProducts.EOF Or NOT rsProducts.BOF %>

<% If rsProducts.EOF And rsProducts.BOF Then %>

There are no <%=Session("ManufacturerDisplay")%> Pagers Available At This time

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

<% rsProducts.Close() Set rsProducts = Nothing %>