' En client-side cursor
const adUseClient = 3

' Databas connection via ODBC
set mySqlConn = Server.CreateObject("ADODB.Connection")
mySqlConn.Open "dsndb"


' Standard open connection
set rs = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT * FROM tabell"
rs.Source = mySQL
Set rs.ActiveConnection = mySqlConn
rs.CursorLocation = adUseClient
rs.Open

' och så räknar vi
rscount = rs.RecordCount

' stänger alla connections
rs.Close
set rs = nothing
mySqlConn.close
set mySqlConn = nothing


' om du vill räkna i mer avancerade tabeller
' eller enbart lyfta ut unika träffar så
' använd tex. denna SQL sträng

mySQL = "SELECT DISTINCT fält FROM tabell"