Problema Com Arrays

[GnomO! 0]

E ae galera!!

Seguinte...

Tenho duas tabelas:

 

Tabela1 - AdminPermissoes

Colunas: Codigo, Permissoes, Administrador

 

Tabela2 - AdminPermissoesTipos

Colunas: Codigo, Tipos

 

Na coluna Permissoes da tabela AdminPermissoes os valores são

armazenados da seguinte forma: 1,2,3,4

 

Fiz um array com split para remover as virgulas, veja:

 

rstGeral.Open "SELECT * FROM AdminPermissoes WHERE Admin=" & lngAdminCodigo, conn		If Not rstGeral.EOF Then			lngPermissoes = rstGeral("Permissao")		End If	rstGeral.Close	If Len(lngPermissoes) > 0 Then		MeuArray = Split(lngPermissoes, ",",-1,1)		TotalPerm = Ubound(MeuArray)	End If

Só que tipo, são 9 permissões no sistema, em cada página vai ter uma variavel

lngPermCod mostrando qual o tipo de permissão da mesma, com isso ia fazer o seguinte

o admin entra na pagina e a variavel lngPermCod é igual á 5 só que na coluna Permissoes

da tabela AdminPermissoes os valores contidos são 1,2,3,4... nao tem o 5, desde entao

ele nao tem permissão de acesso ao conteúdo, eu queria que mostrar um alert em javascript

dizendo: Você não tem acesso a este conteúdo. Já tentei usando várias formas e nao obtive

nenhum resultado. Alguem tem uma dica?

 

Desde já agradeço;

GnomO

[jrcardozo 4]

se vai de 1 até 9 então tente assim

 

ASP

rstGeral.Open "SELECT * FROM AdminPermissoes WHERE Admin=" & lngAdminCodigo, conn

        If Not rstGeral.EOF Then

            lngPermissoes = rstGeral("Permissao")

        End If

    rstGeral.Close

if instr(lngPermissoes ,"1")=0 then

response.write("não tem acesso ao nivel 1")

response.end()

end if

[GnomO! 0]

Agradeço sua ajuda, mas desse modo ae que tu falou nao consegui

fazer com o array :\

 

Alguém sabe dizer se tem como verificar se

existe o valor no array? por exemplo:

MeuArray = New Array(3);MeuArray(0) = "2"MeuArray(1) = "1"MeuArray(2) = "3"MeuArray(3) = "4"

Será que tem uma funcao que verifica se existe o valor 5 nos arrays?

 

Desde já agradeço.