Comparação em ASP

[nanays 0]

Bom, seguinte, eu tenho um formulário de edição d um determinado documento, onde várias pessoas devem ler o mesmo.

 

N banco ele está gravado como uma String separadas por virgulas e eu tenho uma função q os quebra (Split), e sempre q uma pessoa ja leu este documento ela recebe um status d leitura, 1 se ela ja leu e 0 se ainda não, gostaria d uma força para fazer uma próxima função q compara os caracteres, para achar a pessoa no momento da edição para q eu possa dar-lhe um status, não sei se deu para entender, espero q sim

 

Obrigada http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Mário Monteiro 179]

não ficou claro não...pode exemplificar com valores ou ate mesmo com um trecho de codigo que tenha feito...

[kioshy 0]

Realmente essa fico dificil mostra o código ai q quem sabe a gente ajuda

[nanays 0]

Bom, vou tentar explicar melhor, meu supervisor d estágio é um chuncheiro e eu não tenho acesso ao banco de dados, então preciso fazer através d vinculação d tabelas pelo acess, e praticamente todas as minhas variáveis estão em varchar.Bom, mas isso não vem ao caso, eu tenho um sisteminha de circulação de documentos, onde varias pessoas leêm e no banco de dados é armazenado qnd uma pessoa já leu este documento com o status d leitura igual a 1, caso ela não tenha lido ela possui status d leitura igual a 0. Bom, qnd é realizado um cadastro do documento é inserido todas as pessoas q lerão o documento, mais ou menos assim: A, B, C, D, ENo banco é adicionado uma ultima virgula e fica assim: A, B, C, D, E, e seu status inicial para todos é 0: 0, 0, 0, 0, 0,Bom, eu fiz uma função para quebrar isso, pois está como uma string e ficou assim:<% function RetornaUsuario(id) strSQL= "Select * from circDoc_Usuarios where idDoc=" & id 'Response.write(strSQL) set RS0= oCon.Execute(strSQL) usuarios= RS0("usuario") leitura= RS0("leitura") tamanho= 0 status= 0 pessoa= usuarios j= 0 mostrar= "" usuarios= Split(usuarios,",") for i= LBound(usuarios) to UBound(usuarios) tamanho= tamanho + 1 'Response.Write(usuarios(i) & "<br>") next tamanho= tamanho - 1 leitura= Split(leitura,",") for i= LBound(leitura) to Ubound(leitura) status= status + 1 next status= status - 1 for j= 0 to status if leitura(j)= "0" then mostrar= usuarios(j) & ", " Response.write(mostrar) end if next ' if j>= status and leitura(j- 1) <> "0" then 'Response.Write("Todos já leram") 'end if End function%> Bom na minha tela está mostrando os usuarios q ainda não leram, o q eu gostaria d fazer era qnd o status d leitura estiver 1 para todos, assim: 1,1,1,1,1, e mostrar que todos ja leram, mas com esse if q está comentado onde tiver 1, ele pega e mostra, pq há casos assim: 1,0,0,1, e nesses casos ele adiciona q todos ja leram tb, eu gostaria q apenas aparecesse onde só há status d leitura 1,1,1,1,1,1,Acho q agora ficou um pouco mais claro

[Marcelo Barcellos 0]

fl_todos_leram = TrueFor i = 0 To Ubound(Leitura)  if Leitura(i) = 0 then    fl_todos_leram = False    Exit For  End ifNextIf fl_todos_leram then  Response.Write "Todos Leram"  else  Response.Write "Algum(uns) ainda não leram"End if

[nanays 0]

Não deu certoP q há casos d faltarem pessoas pra lerem o documento, e qnd tem ao menos um único 1 ele mostra q tods leram, eu ja tinha feito mais ou menos assim, mas quero q apareça q todos leram, ou seja, só akeles em q todos apresentam 1.Obrigada