No matter what I do I allways get "THe connection is busy with another......" running hits code:
Sql and Sql1 are both stupid tables
The forst select run ok and when looping and trying to select or insert in another table, sql1 or a non stupid table I get the error.
    !generate all specialities browse
    DO OpenFiles
    SQL{PROP:SQL}='SELECT e.ID FROM EXAM_GROUPS e '&|
            'left outer join Users2ExaGr u on u.id_user='&P_WEB.GSV('LOGIN_ID')&' and id_exa_group=e.id '&|
            'where e.name<>'''' and u.id is null '   
    LOOP
       next(sql)
        IF ERROR() THEN BREAK end
        SQL1{PROP:SQL}='SELECT ISNULL(mAX(ID),0)+1 FROM Users2ExaGr'
       if errorcode()=90 then MESSAGE('MAX: '&SQL1:C1&' '&fileerror()) end 
        NEXT(SQL1)
        SQL1{PROP:SQL}='INSERT INTO Users2ExaGr (ID,ID_USER,ID_EXA_GROUP) VALUES ('&SQL1:C1&','&P_WEB.GSV('LOGIN_ID')&','&SQL:C1&')'
        SETCLIPBOARD(SQL1{PROP:SQL})
       if errorcode()=90 then MESSAGE(Sql:c1&' '&fileerror()) end 
!       clear(u2e:record)
!       U2E:ID_USER      = P_WEB.GSV('LOGIN_ID')
!       U2E:ID_EXA_GROUP = Sql:c1
!        MESSAGE('intento U2E:ID_EXA_GROUP= '&Sql:c1)
!       Access:Users2ExaGr.Insert()
       !if errorcode()=90 then MESSAGE(U2E:ID_EXA_GROUP&' '&fileerror()) end 
    end