Motorcycle Accessory Centre GoldWing Classifieds

<%@LANGUAGE="VBSCRIPT"%> <% set rsSubCategory = Server.CreateObject("ADODB.Recordset") rsSubCategory.ActiveConnection = strConn rsSubCategory.Source = "SELECT tblAds.cSubCategory, Count(tblAds.nAdID) AS CountOfnAdID FROM tblAds GROUP BY tblAds.cSubCategory;" rsSubCategory.CursorType = 0 rsSubCategory.CursorLocation = 2 rsSubCategory.LockType = 3 rsSubCategory.Open rsSubCategory_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsSubCategory_numRows = rsSubCategory_numRows + Repeat1__numRows %> Motorcycle Accessory Centre GoldWing Classifieds

Are you looking to buy or sell motorcycles, parts or accessories? You've found the right place. Our free listings stay active for 30 days and help give you the exposure you need sell your item.

<% While ((Repeat1__numRows <> 0) AND (NOT rsSubCategory.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsSubCategory.MoveNext() Wend %>

Current Postings by Category (Click on category name to view postings in that category)
"><%=(rsSubCategory.Fields.Item("cSubCategory").Value)%>	(<%=(rsSubCategory.Fields.Item("CountOfnAdID").Value)%>) postings

<% rsSubCategory.Close Set rsSubCategory = Nothing Dim rsExpiredAds, objConn, intNoOfRecords Set objConn = Server.CreateObject("ADODB.Command") objConn.ActiveConnection = strConn objConn.CommandText = " DELETE * FROM tblAds WHERE ((([dPostingDate]+[dExpiryDate]) + 1 < Now() ));" objConn.CommandType = adCmdText objConn.Execute Set objConn = Nothing %>

101, 5701 - 17th Ave. S.E. Calgary, Alberta T2A 0W3
ph (403)248-0988 toll free orders (800)293-6453 fax (403)248-6035
motorcycle.stuff@cia.com
For questions or comments about the website, contact the webmaster.