Antal poster i database

<%
  Set Rs = Server.CreateObject(\"ADODB.Connection\")
  DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
  Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
  Sql = \"Select count(*) as Found from tabel\"
  Set Record =  Rs.Execute(Sql)

  Ialt = Record(\"found\")
%>

Udskriver antal:
<%=ialt%>

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Rs = Server.CreateObject(\"ADODB.Recordset\")

strSQL = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"dinDB.mdb\")
Conn.Open strSQL

strSQL = \"SELECT COUNT(*) AS antal FROM tabel_navn;\"
Set Rs = Conn.Execute(strSQL)
intAntal = Rs(\"antal\")

Set Rs = Nothing
Conn.Close: Set Conn = Nothing

intAntal indeholder antal poster i tabellen tabel_navn

okay ... jeg sad og skrev koden direkte her .. derfor tog det sin tid .. øv ;(

desværre thomas jeg kom vidst lige 2 min. før :o)

i mit skal du bare ændre i disse linier:
DBPath = \"DBQ=\" & server.mappath(\"database.mdb\")
database.mdb skal du ændre til den db\'s navn.
og
Sql = \"Select count(*) as Found from tabel\"
tabel skal ændres til din tabel\'s navn.

Forøvrigt tpiil, så er det normal SQL programmerings skik at skrive alle reserved ord/keywords med stort.

Hvis superole skal bruge det på en MySQL connection så kan det godt være MySQL driveren bliver negativ over din SQL streng (også pga. manglende semikolon i enden)

tak for de(t) hurtige svar

selv tak :o)
hehe tdaugaard han brugte Access :o)