<%@LANGUAGE="VBSCRIPT"%> <% Dim rsProducts__Category rsProducts__Category = "1" If (Request("MM_EmptyValue") <> "") Then rsProducts__Category = 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_child.*, perth_parent.*, perth_products.* FROM perth_products, perth_parent, perth_child WHERE (perth_products.ProdCategory = perth_parent.ParentID AND perth_products.ProdManufacturer = perth_child.ChildID) AND perth_products.ProdCategory = " + Replace(rsProducts__Category, "'", "''") + " GROUP BY perth_products.ProdManufacturer ORDER BY perth_child.ChildText 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 %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Perth Communications_It's time we talked!
cell phones
Cellular Service
Wide Area Network


Cellular Phones & Accessories

Perth Communications is your locally owned and operated Bell Mobility Agent. From simple to sophisticated, we carry phones from major cellular manufacturers. Whether you require your phone to support text messaging, web browsing, data downloading, games or just simple conversation, our selection of phones and wireless devices will keep you in touch. We also stock accessories to help you get the most out of your phone: carry cases, chargers, batteries, headsets, handsfree devices and more!

Click on a logo below to see our cool phones and devices!

<% While ((Repeat1__numRows <> 0) AND (NOT rsProducts.EOF)) %>

<%=(rsProducts.Fields.Item("ChildText").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsProducts.MoveNext() Wend %>

 

We are always adding to our list of phones, be sure to check out our store for new promotions and deals.
© PERTH COMMUNICATIONS STRATFORD 2003


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