Problemer med rs.MoveNext og rs.MovePrevious

Jeg sidder og prøver at lave to kolonner. I hver kolonne er der et billede af en person og tekst i for af fornavn, efternavn o.s.v. Jeg har tilføjet to link til at rette og slette hver record. Jeg laver derfor en "rediger" og "slet" for hver person. Det vil sige at hvis der er 7 personer i databasen for jeg 4 personer i venstre kolonne og 3 i højre kolonne.

Jeg har to problemer:
1. Den første del at koden hvor jeg ligger alt fra DB op i hukommelsen og herefter total antal records. Det kan helt sikkert laves smartere. f.eks. med "SELECT Count(*) At AntalRecords FROM database", men jeg kan ikke rigtig få koden til at virke.

2. Jeg får fejlen : "ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record." når jeg kører nedenstående kode. Hvad er der galt ?

<%
        'Create object for the recordset
        Set rs = Server.CreateObject("ADODB.RecordSet")

        'Create DSN connection
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/database.mdb")

        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM Deltagerdata ORDER BY Efternavn"

        'Open DB
        rs.Open strSQL, strDSN, 1

        'Get the data from the DB into an array, for performance.
        if NOT rs.EOF then
            rsarr = rs.GetRows()
            max = Ubound(rsarr,2)
        else
            max = 0
        end if
       
        rs.Close
        Set rs = Nothing
       
        Max = Max + 1
        Response.Write "Total antal records = " & max       

        '/////////////////////////////////////////////////////////////////////////

        'Creating the Recordset Object
        Set Conn = Server.CreateObject("ADODB.Connection")

        'Creating a DSN-Less connection to your Database
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../log/database.mdb")
       
        Conn.Open strDSN

        ' Opbygning af SQL streng
        strSQL = "SELECT * FROM Deltagerdata ORDER BY Efternavn"       

        'Create object for the recordset
        Set rs = Server.CreateObject("ADODB.RecordSet")
               
        'Open your recordset
        rs.Open strSQL, Conn, 3, 1


        Do While NOT rs.EOF
       
        'Hvis max er større eller lig med 1 skal der kun være billede og data i venstre kolonne
        If max >= 1 Then
       
            'viser "rediger" og "slet" for 1. person i venstre kolonne
            Rediger Slet
           
            'Næste record
            rs.MoveNext           

            'viser "rediger" og "slet" for 2. person i højre kolonne
            Rediger Slet           

            'Forrige record
            rs.MovePrevious
           
            'viser billede og data 1. person i venstre kolonne
            Billede - tekst
           
            'Næste record
            rs.MoveNext

            'viser billede og data for 2. person i højre kolonne
            Billede - tekst
           
        Else
       
            'viser "rediger" og "slet" for 1. person i venstre kolonne
            Rediger Slet
           
            'Næste record
            rs.MoveNext           

            'viser "rediger" og "slet" for 2. person i højre kolonne
            Glem Rediger og slet

            'Forrige record
            rs.MovePrevious
           
            'viser billede og data 1. person i venstre kolonne
            Billede - tekst
           
            'Næste record
            rs.MoveNext

            'viser billede og data for 2. person i højre kolonne
            Glem Billede - tekst
           
        End If       

        loop

        'Closing database, we don't need it anymore - we have the info in the array
        rs.close()
        set rs = Nothing

%>