Hvor mange ?

SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Sql = "Select count(*) as found FROM drink where drink"
set rs = rs.Execute(SQL)   
found = rs("found")
    Response.Write "<span> " & found & "</span>" 
RS.Close
set RS = nothing

enig :)

nah virker ikke, men jeg har fundet ud af det.

A hvad!! Det gør det da.