")
Response.Write(" |
")
Response.Write("| ")
Response.Write("Leilões")
Response.Write(" |
")
Response.Write(" |
")
If rs.eof then
Response.Write("| Não existem categorias |
")
Else
TwoCols = True
Do While Not rs.eof
Response.Write("" & rs.Fields("CategoryName") & " (" & CountItems(rs.Fields("ID")) & ")")
Response.Write("
")
Response.Write(" | ")
rs.MoveNext
If rs.eof Then
Response.Write(" |
")
Else
Response.Write("" & rs.Fields("CategoryName") & " (" & CountItems(rs.Fields("ID")) & ")")
Response.Write("
")
Response.Write(" | ")
rs.MoveNext
End If
Loop
rs.Close
End If
Response.Write(" |
")
Response.Write("| ")
Call AuctionNavigation
Response.Write(" |
")
Response.Write(" |
")
Response.Write("
")
Call DoPageFooter
Call CloseDBConn
Function CountItems(ID)
CountSQL = ""
CountSQL = CountSQL & " SELECT COUNT(*) AS total FROM Auctions WHERE "
CountSQL = CountSQL & " AvailDate <= " & SQLDate(NOW)
CountSQL = CountSQL & " And Ended = false "
CountSQL = CountSQL & " And CategoryID = " & SQLVal(ID)
Set CountRS = GobjConnect.Execute(CountSQL)
CountItems = CountRS.Fields("total")
CountRS.Close
Set CountRS = Nothing
End Function
%>