<%
strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("./dindatabas.mdb") & ";"

'Skapar rs
Set rsCount = Server.CreateObject("ADODB.Recordset")

'här öppnar vi rs med en tabell, static cursor, read only
rsCount.Open "din_tabell", DB_CONNSTRING, adOpenStatic, adLockReadOnly, adCmdTable

'Skriver hur många poster din_tabell innehåller
Response.Write rsCount.RecordCount

'Stänger
rsCount.Close
Set rsCount = Nothing