Array - Pra quem saca é facil!

[d.eleete 0]

Ae!To querendo fazer uma array de erros.. e queria pegar o valor do erro por uma querystringpensei nisso:x = request.querystring("erro")vErro(1) = "Não foi possivel identificar"vErro(2) = "Não é permitido espaços em branco"vErro(3) = "Não é permitido caracteres especiais"Como eu faço pra dar um response.write no erro corespondenteteria q criar uma função?valeu!

[Salgado 4]

Teste isso:

Var_Erro = request.querystring("erro")
vErro(1) = "Não foi possivel identificar"
vErro(2) = "Não é permitido espaços em branco"
vErro(3) = "Não é permitido caracteres especiais"

for x= lbound(vErro) to ubound(vErro)
if vErro(x)= Var_Erro then
 response.write vErro(x)
end if
next

 

Valeu?

[d.eleete 0]

Erro:

 

Tipos incompatíveis: 'vErro'

[Salgado 4]

Declara vErro

Dim vErro(3)

E começa o array do 0.

 

Valeu?

[d.eleete 0]

:( .. naum funcionou salgadis..

 

mas eu fiz esse olha só!

 

vCod_erro = request.QueryString("erro")select case (vCod_erro)case "1" vErro = "Não foi possivel identificar"case "2" vErro = "Não é permitido espaços em branco"case "3" vErro = "Não é permitido caracteres especiais"end selectresponse.write(vErro)

[Salgado 4]

Agora eu sakei, tava mandando um monte de besteira

x era um numero, tô meio lerdo hoje

era so fazer:

response.write vErro(int(x))

[d.eleete 0]

Valeu salgado.. saca soh.. fiz um com session...

 

Agora com session ficou melhor pq se a pessoa atualiza a pagina a msg de erro some :(

 

vCod_erro = session("erro")session("erro") = ""select case (vCod_erro)case "1" vErro = "Login e/ou senha inválidos"case "2" vErro = "Não é permitido espaços em branco"case "3" vErro = "Não é permitido caracteres especiais"end selectif NOT isEmpty(vErro) thenvErro = "<p><b><font color=""red"" size=""1"" face=""Verdana"">Erro: "&vErro&"</font></b></p>"end if