<% '******************************************************************************* '* QuickAuction Copyright 2002-2003 XCENT - www.xcent.com * '* QuickAuction is a trademark of XCENT * '* This notice may not be removed from this source code file * '******************************************************************************* DoPageHeader TableHead(GLS_AuctionCategories) OpenDBConn sSQL = "SELECT * FROM tblQACategories ORDER BY catName" set rs = gobjConnect.Execute(sSQL) Response.Write "" If rs.eof then Response.Write "" Else 'TwoCols = True iCount = 1 Do While Not rs.eof If iCount mod 2 = 1 Then Response.Write "" End If Response.Write "" rs.MoveNext If rs.eof AND iCount mod 2 = 1 Then Response.Write "" End If If iCount mod 2 = 0 Then Response.Write "" End If iCount = iCount + 1 Loop End If rs.Close Set rs = Nothing Response.Write "

" & gsAuctionTextOpen & GLS_NoCategories & gsAuctionTextClose & "
" & gsCatTagOpen & "" & rs.Fields("catName") & " (" & CountItems(rs.Fields("catID")) & ")" Response.Write " " Response.Write gsCatTagClose & "

" TableFoot DoPageFooter CloseDBConn Function CountItems(ID) CountSQL = "SELECT COUNT(*) AS calcTotal FROM tblQAAuctions WHERE " & _ " aucAvailDate <= " & SQLDate(NOW) & _ " And aucEnded = " & SQLBool(False) & _ " And aucCategoryID = " & SQLVal(ID) Set CountRS = gobjConnect.Execute(CountSQL) If Not CountRS.Eof Then CountItems = CountRS.Fields("calcTotal") Else CountItems = 0 End If CountRS.Close Set CountRS = Nothing End Function %>