Hjälp en nybörjare i ASP...
Vad är koden om man vill räkna ettor i en databas med namnet gastbok.mdb, tabell:Gastbok, Fält a11?

Du kan göra på 2 sätt:

1.
<code>
Set rsCounter = Server.CreateObject("ADODB.RecordSet")
sSQL = "SELECT SUM(a11) AS ANTALETTOR FROM Gastbok " &_
"WHERE a11 LIKE '1'"
rsCounter.Open sSQL, minDbConnection, adOpenStatic, adLockOptimistic

Response.Write rsCounter("ANTALETTOR")

rsCounter.Close
Set rsCounter = Nothing

minDbConnection.Close
Set minDbConnection = Nothing
</code>

2.
<code>
Set rsCounter = Server.CreateObject("ADODB.RecordSet")
sSQL = "SELECT a11 FROM Gastbok " &_
"WHERE a11 LIKE '1'"
rsCounter.Open sSQL, minDbConnection, adOpenStatic, adLockOptimistic

Response.Write rsCounter.RecordCount

rsCounter.Close
Set rsCounter = Nothing

minDbConnection.Close
Set minDbConnection = Nothing
</code>

Om detta inte går kan du prova med att ta bort fnuttarna runt ettan.

Tack. Får försöka med det.

Varför fungerar inte:


<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("gastbok.mdb")

SQL = "SELECT Count(*) As Antal FROM Gastbok WHERE a11 = 1"
Set rs = db.Execute(SQL)

%>

<%rs("Antal")%> (Där man vill visa resutatet på sida)


Felet blir: Typblandningsfel i villkorsuttryck.

Är antagligen så att a11 är ett textfält. Omge 1 med ':
<code>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("gastbok.mdb")

SQL = "SELECT Count(*) As Antal FROM Gastbok WHERE a11 = '1'"
Set rs = db.Execute(SQL)

%>

<%rs("Antal")%> (Där man vill visa resutatet på sida)
</code>

Då får jag felmeddelandet:
Ogiltig kopplingssekvens som inte kan hanteras av operativsystemet.