Tæl antal efter id

Du kan lave en SQL som tæller det.

SQL = "SELECT Count(*) as antal FROM kommentar_nyhed WHERE id_nyhed = " & nyhed(id)
Set rs = ConnectionObject.Execute(SQL)
if len("" & rs("antal")) > 0 then
  Response.write "Der er " & rs("antal") & " poster"
end if

Fejl: Et objekt er obligatorisk: 'ConnectionObject'

Kode:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/nyheder.mdb")
SQL = "SELECT Count(*) as antal FROM kommentar_nyhed WHERE id_nyhed = " & nyhed("id")
Set rs = ConnectionObject.Execute(SQL)
if len("" & rs("antal")) > 0 then
  Response.write "Der er " & rs("antal") & " poster"
end if
%>

ja gad vide hvad det kan være ?

Ja du skal lige have rettet det navnet på ConnectionObject til det som du bruger. Du bruger et connection object som hedder Conn så prøv at rette ConnectionObject til Conn så det bliver:
Set rs = Conn.Execute(SQL)

:-)

JA okay lidt doh der.

nu siger den:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/nyheder.mdb")
SQL = "SELECT Count(*) as antal FROM kommentar_nyhed WHERE id_nyhed = " & nyhed("id")
Set rs = Conn.Execute(SQL)
if len("" & rs("antal")) > 0 then
  Response.write "Der er " & rs("antal") & " poster"
end if
%>

du skal havde det ind i dit andet script hvor du har dit recordset nyhed.

Den vælger jo id_nyhed = nyhed("id") så som test kan du skriver 1 :

SQL = "SELECT Count(*) as antal FROM kommentar_nyhed WHERE id_nyhed = 1"