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

 

Categories | Post An Ad | Search | Recent Ads | Login

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

<% While ((Repeat1__numRows <> 0) AND (NOT rsCategory.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsCategory.MoveNext() Wend %>
View Current Postings by Category
(Click on category name)
"><%=(rsCategory.Fields.Item("cCategory").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 %>

 

 

Categories | Post An Ad | Search | Recent Ads | Login
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.