Motorcycle Accessory Centre GoldWing Classifieds

<%@LANGUAGE="VBSCRIPT"%> <% set rsCategory = Server.CreateObject("ADODB.Recordset") rsCategory.ActiveConnection = strConn rsCategory.Source = "SELECT tblAds.cCategory,tblAds.cSubCategory, Count(tblAds.nAdID) AS CountOfnAdID FROM tblAds GROUP BY tblAds.cCategory,tblAds.cSubCategory;" rsCategory.CursorType = 0 rsCategory.CursorLocation = 2 rsCategory.LockType = 3 rsCategory.Open rsCategory_numRows = 0 %> <%StrCatBoolean = "" Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsCategory_numRows = rsCategory_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 to sell your item.

<% While ((Repeat1__numRows <> 0) AND (NOT rsCategory.EOF)) %> <%If StrCatBoolean = rsCategory.Fields.Item("cCategory").Value Then%> <%Else%> <%End If StrCatBoolean = rsCategory.Fields.Item("cCategory").Value Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsCategory.MoveNext() Wend %>

Displaying Current Postings by Category (Click on category name to view postings in that category)
Category	Sub-Category
	&subCategory=<%=(rsCategory.Fields.Item("cSubCategory").Value)%>"><%=(rsCategory.Fields.Item("cSubCategory").Value)%>	(<%=(rsCategory.Fields.Item("CountOfnAdID").Value)%>) postings
"><%=(rsCategory.Fields.Item("cCategory").Value)%>	&subCategory=<%=(rsCategory.Fields.Item("cSubCategory").Value)%>"><%=(rsCategory.Fields.Item("cSubCategory").Value)%>	(<%=(rsCategory.Fields.Item("CountOfnAdID").Value)%>) postings

<% rsCategory.Close Set rsCategory = 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.