ASP Optæl Database

Et ekspempel

Set rs = COnn.Execute("SELECT COUNT(id) AS Antal From Tabel WHERE BrugerId = 21")

If not (rs.bof or rs.eof) then
Response.Write "Du har tilføjet" & rs("antal") & "nyheder"
end if

du kan selvfølgelig bare ændre den så den tæller på noget andet end id, hvis du vil.

Ser det her forkert ud ?:

-----Kode start-----
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database/bodykits.dk/brugersystem.mdb")
'sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
Set rs = COnn.Execute("SELECT COUNT(id) AS Antal From brugerbiler WHERE BrugerId = 21")

If not (rs.bof or rs.eof) then
Response.Write "Du har tilføjet" & rs("antal") & "nyheder"
end if
%>
-----Kode slut-----

Jeg for denne fejl:

-----Fejl start----
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/loggetind.asp, line 76
----Fejl slut----

Line 76 er:
Set rs = COnn.Execute("SELECT COUNT(id) AS Antal From brugerbiler WHERE BrugerId = 21")

Prøv med

Set rs = Conn.Execute("SELECT COUNT(id) AS Antal From brugerbiler WHERE BrugerId = '21'")

Yep tak ! Det virker sku :-)  Takker!

okay det var jo godt.

Undskyld men kan du ikke fortælle mig hvordan jeg skriver dette rigtigt ?

Set rs2 = Conn2.Execute("SELECT COUNT(id) AS Antal From brugerbiler WHERE BrugerId = " & intBrugerId)

Den finder ikke rigtigt mit intBrugerId....

Du for samme fejl som før ikke. Prøv med

Set rs2 = Conn2.Execute("SELECT COUNT(id) AS Antal From brugerbiler WHERE BrugerId = '" & intBrugerId & "')

Du skal huske apostrofferne når det er et tekst felt, hvilket jeg ikke kan forstå at du ahr lavet det til da du kun bruger tal....

Yes takker mange tak !! :-)