vist x gange

Jeg sidder med mit script hvor jeg forsøger at få tælleren til at fortælle hvor mange, der har kikket på det enkelte billede i mit galleri, men den viser blot 12 som er det antal billeder jeg har i mit galleri...

i toppen af siden hvor antal vist skal vises har jeg <!-- #include file="recordcounter.asp" -->

i recordcounter.asp står der:
<%

Function NumberOfRecords(DBPathName, TableName)
  Const adOpenDynamic = 2
  Const adLockOptimistic = 3
  Dim strConnect
  Dim objRS
  Dim intTotal

  strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;"
  strConnect = strConnect & "Data Source="
  strConnect = strConnect & Server.MapPath(DBPathName) & ";"
  strConnect = strConnect & "Persist Security Info=False"
  Set objRS = Server.CreateObject("ADODB.Recordset")
  objRS.Open TableName, strConnect, adOpenDynamic, adLockOptimistic
  intTotal = 0
  If (not objRS.BOF) And (not objRS.EOF) Then
    objRS.MoveFirst
    While Not objRS.EOF
      intTotal = intTotal + 1
      objRS.MoveNext
    Wend
  End If
  objRS.Close
  Set objRS = Nothing
  NumberOfRecords = CLng(intTotal)
End Function

%>

på min side hvor jeg vil have tallet vist står der: <%
set conn = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("billeder.mdb")

sql="select * from billeder where id = "& request("id")
set rs = conn.execute(sql)

response.write "<h1>" & rs("name") & "</h1><br>"
response.write "<center><img src='" & rs("path") & "'></center><br/><b>Tilføjet:</b> " & rs("uploaded") & "<br>"
response.write "" & rs("description") & "<br/><br/>"
Conn.Close
Set Conn = Nothing
%>
<%
Response.Write NumberOfRecords("billeder.mdb", "SELECT * FROM billeder")
%>
Hvor er det lige, det går galt henne?