Count af id\'s!!??

F.eks. udføre

  \"select count(id) as ids from dintabel\"

og så udskrive

  response write \"der er nu \" & rs(\"ids\") & \" jokes\"

Hallloooo.......??!!!

JokesDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../database/DineJokes.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open JokesDSN
JokesSQL = \"SELECT * FROM TJokes\"
Set oRs = myConn.Execute(JokesSQL)

AntalPoster=0
WHILE NOT oRs.EOF
AntalPoster=AntalPoster+1   
oRs.MoveNext
WEND
response.write(\"Der er nu \" & AntalPoster & \" jokes i databasen\")
myConn.Close
Set myConn = Nothing
%>

<%
\' DSNLess forbindelse til databasen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/aspdigital/db/demo.mdb\")

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

\' Tæller antal poster i tabellen Links
strSQL = \"SELECT COUNT(LinkID) AS Antal FROM Links\"
Set rs = myConn.Execute(strSQL)
Response.Write \"<p>Der er \" & rs(\"Antal\") & \" poster i tabellen Links</p>\"

\' Tæller antal poster i tabellen Links hvor LinkID > 30
strSQL = \"SELECT COUNT(LinkID) AS Antal FROM Links WHERE LinkID > 30\"
Set rs = myConn.Execute(strSQL)
Response.Write \"<p>Der er \" & rs(\"Antal\") & \" poster i tabellen Links hvor ID er større end 30</p>\"

\' Tæller antal poster i tabellen Links hvor LinkID er mellem 20 og 45
strSQL = \"SELECT COUNT(LinkID) AS Antal FROM Links WHERE LinkID BETWEEN 20 AND 45\"
Set rs = myConn.Execute(strSQL)
Response.Write \"<p>Der er \" & rs(\"Antal\") & \" poster i tabellen Links hvor ID er mellem 20 og 45</p>\"


\' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>