Problem med at tælle indhold

Jeg har dette script (to jeg prøver at sætte sammen) som skal tælle hvor mange artikler der ligger i bestemte områder (kategorier) - problemet er at der vises at der er (0) i alle kategorier - selvom der ligger flere.

Jeg tillader mig at indsætte filen her:

<!--#include file="config.asp"-->

<%
Function SQLVal(pvValue)
  Dim sTemp

  Select Case VarType(pvValue)
      Case 0, 1:
        SQLVal = "NULL"
      Case 2, 3, 4, 5, 6:
        SQLVal = "" & pvValue
      Case 8: 'String
        sTemp = Trim(pvValue)
        On Error Resume Next
        SQLVal = "" & CDbl(sTemp)
        If Err.Number <> 0 Then
            Err.Clear
            SQLVal = "NULL"
        End If
      Case 11:
        SQLVal = "" & Cint(pvValue)       
      Case Else
        SQLVal = "NULL"
  End Select
End Function


gsConnect = "Data Source=d:\home\minwebside\db\tekster.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

Set GobjConnect = server.createobject("ADODB.Connection")
GobjConnect.open gsConnect

cSQL = "Select ID, skribent, katid FROM artikler ORDER BY ID "
Set Crs = GobjConnect.Execute(cSQL) 


Function CountAds(katid)
    caSQL = ""
    caSQL = caSQL & "SELECT COUNT(*) as Total FROM artikler WHERE katid  = " & SQLVal(katid)
    Set rs = GobjConnect.Execute(caSQL)
        CountAds = rs.Fields("Total")
    rs.Close
    Set rs = Nothing
End Function




Function Showlinks

Set objRec = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM kategorier Order by navn asc"
objRec.Open SQL, objCon

                %>

<div align="center">
 
<center>
 
<table border="0" width="487" cellspacing="5" cellpadding="0">
<tr>

<% Do While NOT objRec.EOF %>


<%if not objRec.EOF then%>
<TD ALIGN=LEFT  WIDTH="165" bgcolor="#FFFFFF">
<b><a class=5 href="/artikler/artikler.asp?kat=<%=objRec("katid")%>">
<p align="left"><img border="0" src="functi8.gif">&nbsp;<%=objRec("navn")%></a> </b>

<%   
Response.Write(" <SMALL>(" & CountAds(Crs.Fields("ID")) & ")</SMALL>")
%>

</TD>
<%objRec.movenext
end if   
%>

<%if not objRec.EOF then%>
<TD ALIGN=LEFT  WIDTH="165" bgcolor="#FFFFFF">
<b><a class=5 href="/artikler/artikler.asp?kat=<%=objRec("katid")%>">

<p align="left"><img border="0" src="functi8.gif">&nbsp;<%=objRec("navn")%></a> </b>
<%   
Response.Write(" <SMALL>(" & CountAds(Crs.Fields("ID")) & ")</SMALL>")
%>

</TD>
<%objRec.movenext
end if   
%>

<%if not objRec.EOF then%>
<TD ALIGN=LEFT  WIDTH="152" bgcolor="#FFFFFF">
<b><a class=5 href="/artikler/artikler.asp?kat=<%=objRec("katid")%>">
<p align="left"><img border="0" src="functi8.gif">&nbsp;<%=objRec("navn")%></a></b>
<%   
Response.Write(" <SMALL>(" & CountAds(Crs.Fields("ID")) & ")</SMALL>")
%>

</TD>
<%objRec.movenext
end if   
%>


</tr>

<%

loop
%>
</table>
</center>
</div>
<% end function %>