<%@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 = "Two Way Radios" 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!
cell phones
Cellular Service
Wide Area Network


<%=Session("ManufacturerDisplay")%> 2 Way Radio Systems

Complete 2 way radio systems are our specialty. We can design, install and service the best solution for your application. Industrial, Agricultural, Small Business or Large. We can put you in an instant reliable communications system.

<% 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")%> 2 Way Radios Available At This time

 

 

 

<% End If ' end rsProducts.EOF And rsProducts.BOF %>
© PERTH COMMUNICATIONS STRATFORD 2003


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