<%@LANGUAGE="VBSCRIPT"%> <% Session("ManufacturerDisplay") = Request.QueryString("Manufacturer") %> <% Dim rsProducts__MMColParam rsProducts__MMColParam = "Industrial" 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


Digicom

Since 1978, Perth Communications has been increasing productivity and efficiency in Southwestern Ontario industries by improving internal communication. Often, machine operators or other key personnel need both hands to perform their jobs safely. They should be "in the loop" but pushing a 'talk' button just isn't feasible. Digicom is the solution.

<% 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 Digicom Products available at this time.

 

 

 

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


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