Aktuelt position i et recordsæt

kan du ikke bare lave en variable der stiger 1 hver gang der loopes

Denne her anvender RS.AbsolutePosition virker bl.a. med Access:

strConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "d:\localsrv\wwwroot\test\test.mdb"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnect

Set RS = Server.CreateObject ("ADODB.Recordset")
RS.CursorLocation = 3 ' adUseClient
RS.CursorType = 3 ' adOpenStatic
RS.Open "select * from Images", objConn, , , &H0001 ' adCmdText

Do While Not rs.EOF
  Response.Write "Pos: " & RS.AbsolutePosition & " " & "<br>"
  rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Hejsa !!

Tak for hjælpen  Coltau. Var det jeg manglede.
Og euroman: jo det kunne jeg normalt godt, men i det her tilfælde, kan jeg ikke. Eksemplet var bare en nem måde at forklare det.

- kondi.koder :-)