instr crap

Nu er det jo heller ikke helt sådan instr virker, den fortæller dig bare om en streng er del af en anden streng, og var1 er kun del af adgang på mappe 4. Hvis du vil lave en sammenligning pr rettighed er du nødt til og splitte var1 op og sammenligne dem enkeltvis fx med instr("admin",adgang)

ja det var faktisk det jeg sad og tænkte på damn håbede der var en letter måde da jeg er lidt doven idag

gjorde dette men det virker stadig ikke

    for i=0 to Ubound(Stradgang)
        FolderAdgang = Stradgang(i)
        response.write FolderAdgang & "<br>"
                    for x=0 to Ubound(StrBruger) 
                        FolderBruger = StrBruger(x)
                        response.write "<i>"& FolderBruger & "</i><br>"
                            If Instr(FolderBruger,FolderAdgang) then
                            AccessFolder = true
                            Exit For
                            Else
                            AccessFolder = false
                            End If
                    Next   
    Next

Det er fordi du skal bytte rundt på folderbruger og folderadgang, den undersøger om folderadgang er en del af brugeradgang nu, havde også fået det byttet rundt i min kommentar. Altså Instr(FolderAdgang,FolderBruger)

lol ja det er svært at vågne idag smid et svar

Hmm og så sligevel ikke det spiller ikke endnu

for x=0 to Ubound(StrBruger) 
    FolderBruger = StrBruger(x)
            for i=0 to Ubound(Stradgang)
            FolderAdgang = Stradgang(i)
           
                    If Instr(FolderBruger,FolderAdgang) then
                    AccessFolder = "yes"
                    Exit For
                    Else
                    AccessFolder = "no"
                    End If
            Next   
    Next

Nu virker det

    for x=0 to Ubound(StrBruger) 
    FolderBruger = StrBruger(x)
            for i=0 to Ubound(Stradgang)
            FolderAdgang = Stradgang(i)
           
                    If Instr(FolderBruger,FolderAdgang) then
                    AccessFolder = "yes"
                    Exit For
                    End If
                   
            Next   
    Next

Der er vel unødvendigt også og loope igennem stradgang ellers er ideen med brug af instr vel irrelevant, så kunne du lige så godt have lavet en lig med.

for x=0 to Ubound(StrBruger) 
    If Instr(FolderAdgang, StrBruger(x)) then
    AccessFolder = "yes"
        Exit For
    Else
        AccessFolder = "no"
    End If
Next

hmm det virker hvis jeg gør dette

    for x=0 to Ubound(StrBruger) 
    FolderBruger = StrBruger(x)
            for i=0 to Ubound(Stradgang)
            FolderAdgang = Stradgang(i)
           
                    If FolderBruger = FolderAdgang then
                    AccessFolder = "yes"
                    Exit For
                    End If
                   
            Next   
    Next
   
    If AccessFolder = "yes" Then
        AccessFolder = "Allow"
    Else
        AccessFolder = "Stop"
    End If

luk