Hej!

Jag undrar om det går att använda både distinkt och count i samma sql sats, samtidigt som man gör en sökning?

Jag får det inte att fungera!


<Code>

response.buffer = False

Leverantor = request.form("Leverantor")
Datum = request.form("Datum")

Response.write ("Sökningen avser: <BR>")
Response.write (Leverantor)
Response.write ("<BR><BR>från datum:<BR>")
Response.write (datum)

Response.write ("<BR>-------------------------------------------------------------------------------------------------<BR><BR>")

'Öppna en anslutning till Access databas som innehåller produkt information
set objConn1 = Server.CreateObject("ADODB.Connection")
objconn1.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("Kassa.mdb")



strSQL1 = "SELECT * FROM Kvitto Where (Cstr(Datum) >= '"& Cstr(Datum) &"') order by kvittonr"
Set objRS1 = Server.CreateObject("ADODB.Recordset")
objRS1.Open strSQL1, objConn1,3,3

kvittonr = objRS1("kvittonr")


strSQL1 = "SELECT DISTINCT ArtikelNr FROM ArtKvitto order by Artikelnr"
Set objRS1 = Server.CreateObject("ADODB.Recordset")
objRS1.Open strSQL1, objConn1,3,3


do while not objRS1.EOF

ArtikelNr = objRS1("Artikelnr")

strSQL2 = " select Count(*) As Antal from ArtKvitto where ArtikelNr = ' " & ArtikelNr& " '"
Set objRS2 = Server.CreateObject("ADODB.Recordset")
objRS2.Open strSQL2, objConn1,3,3

strSQL3 = " select * from ArtKvitto where Cstr(ArtikelNr) = ' " & Cstr(objRS1("ArtikelNr"))& " '"
Set objRS3 = Server.CreateObject("ADODB.Recordset")
objRS3.Open strSQL3, objConn1,3,3


Response.write "<BR> ArtNr: "
Response.write objRS1("ArtikelNr")

Response.write objRS3("ArtikelNr")
Response.write "<BR> Benämning: "

Response.write objRS3("ArtikelNamn")
Response.write "<BR> Antal: "

Response.write objRS2("Antal")


objRS1.MoveNext
Loop

</Code>


Mvh Fredrik