Fejl i do...

Hej alle

Er der nogle der kan se noget fejl i denne kode...
antal er et tal som kommer form.
Bare skriv hvis der er noget i ikke fatter...

id = request.form(\"id\")
i = 1
do while not i = antal + 1
        if request.form(\" & i & \") then
       
            SQL = \"Select * from rettighed where gruppe_id=\" & i & \" and ret_id=\" & id
            Set tjek = conn.Execute(SQL)
           
                if tjek.BOF OR tjek.EOF Then
                    SQL = \"insert into rettighed ([gruppe_id],[ret_id]) Values (\'\" & i & \"\',\'\" & id & \"\')\"   
                    set inserte = conn.Execute(SQL)
                end if
        else               
           
            SQL = \"Select * from rettighed where gruppe_id=\" & i & \" and ret_id=\" & id
            Set tjek = conn.Execute(SQL)
           
            if NOT tjek.BOF OR tjek.EOF Then
                SQL = \"Delete * from rettighed where gruppe_id=\" & i & \" and ret_id=\" & id
                Set delete = conn.Execute(SQL)
            End if
           
        End if
           
        i = i + 1       
    Loop