Erro Na Função.

[HugoRibas]

Olá!!!!

Criei a seguinte função:

public function inteiro(var_numero as string) as string
dim i as integer
for i = 1 to len(var_numero)
if mid(var_numero,i,1) <> "," then
    inteiro = inteiro & mid(var_numero,i,1) 
else
    exit function
end if
next
end function

quando processo a página ela dá o seguinte erro:

Erro de compilação do Microsoft VBScript (0x800A03EE)

')' esperado

/CHLancPontoSaida.asp, line 170, column 35

public function inteiro(var_numero as string) as string

Alguém sabe me dizer onde pode estar o problema??????? Eu não consegui achar de jeito nenhum!!! :o

Desde já agradeço a todos!!!!!

Abraços!!!

[bareta]

experimente

public function inteiro(var_numero)
dim i as integer
for i = 1 to len(var_numero)
if mid(var_numero,i,1) <> "," then
    inteiro = inteiro & mid(var_numero,i,1) 
else
    exit function
end if
next
end function

[HugoRibas]

Intão, tentei e agora apareceu assim:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/CHLancPontoSaida.asp, line 169, column 6

dim i as integer

-----^

Ishe :o

[bareta]

dim i