Erro no comando ASC()

[eduferrari 0]

Pessoal estou com o seguinte erro

 

Microsoft VBScript runtime error '800a0005'

 

Invalid procedure call or argument: 'Asc'

 

/console/usuarios/add_usuario.asp, line 8

 

Vai o codigo abaixo

 

ASP

[*]

 

[*]function criptografa(pass)

 

[*]

 

[*] for x = 1 to Len(pass)

 

[*] senha = Mid(pass, x, 1)

 

[*] cripto = (Asc(senha) + 77) & "#"

 

[*] new_password = new_password + cripto

 

[*] criptografa = new_password

 

[*] next

 

[*]

 

[*]end function

 

[*]

 

[*]sub abre_conexao()

 

[*] Set DB = Server.CreateObject("ADODB.Connection")

 

[*] DB.Open Application("strConnectSistema")

 

[*]end sub

 

[*]

 

[*]sub fecha_conexao()

 

[*] DB.Close

 

[*] Set DB = Nothing

 

[*]end sub

 

[*]

 

[*]dim RS, cod_usuario, nome, email, usuario, senha, Incript, senha_cript

 

[*] cod_usuario = Request.QueryString("cod_usuario")

 

[*] nome = Replace(UCase(Request.Form("nome")), "'", "''")

 

[*] email = LCase(Request.Form("email"))

 

[*] senha = Replace(LCase(Request.Form("senha")), "'", "''")

 

[*]

 

[*] abre_conexao()

 

[*] DB.Execute("UPDATE SIS_TAB_USUARIOS SET nome = '"& nome &"', email = '"& email &"', senha = '"& criptografa(senha) &"' WHERE id = "& cod_usuario &"")

 

[*] fecha_conexao()

 

[*]

 

[*]

[globim 0]

tira o asc que ele funca ^^

[eduferrari 0]

Faleu pela dica globim mas o erro era no nome que eu passava dentro da função foi so trocar a variavel senha por outra e tudo beleza.Muito obrigado pela ajuda.

[globim 0]

^^ de nada da proximqa vo tentar ser mais util ^^eh que eu nunca usei asc daquela forma hehe ^^