Função não retorna valor

[Daniel Lemes 0]

oi to chamando uma função e da dando erro tipos imcopativeis...

Function ValidaEmail(Item) erro = false....ValidaEmail= erro

na pagina eu chamo assim

'o erro eh nessa linhaverifica = ValidaEmail("strEmail")

valeu se alguem souber como é.

[Mário Monteiro 179]

como esta sua funcao??

[Daniel Lemes 0]

ta ai a função, mas acho que o erro não eh nela.

Function ValidaEmail(Item) erro = falsedim oFile, FileOpen, oReaddim errodim campo, emaildim arLineOpenConst ForReading = 1, ForWriting = 2, ForAppending = 8set oFile = server.CreateObject("scripting.filesystemobject") set FileOpen = oFile.OpenTextFile("C:\Inetpub\wwwroot\class\parametros.txt",ForReading) oRead = FileOpen.ReadLine arLineOpen = split(oRead,";") FileOpen.close campo = Itemif campo <> empty thenif instr(1,campo,"@") > 0 then email = mid(campo,(instr(1,campo,"@") + 1),(len(campo) - instr(1,campo,"@")))For x = 0 to ubound(arLineOpen) 'response.Write("parametro " & x & " -- " & cstr(arLineOpen(x)) & "<br>") if cstr(email) = cstr(arLineOpen(x)) then igual = arLineOpen(x) erro = true end if next 'response.Write("<br>Dominio do e-mail digitado: " & cstr(email)) if email = empty then erro = true end if else erro = trueend ifend ifValidaEmail= erroend function

[Mário Monteiro 179]

voce ja testou este codigo sem ser numa função???

[Daniel Lemes 0]

ja resolvi valeu

[Mário Monteiro 179]

que bom