Problemas com comando ASC()

Bom dia a todos,

Migrei um site de um servidor para o outro e está dando este erro que não acontecia no servidor antigo:

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Asc'

/funcoes.asp, line 105

Este é o código:

Function hash(texto)
Dim cripta
cripta = ""
For i = 1 To Len(texto)
If cripta = "" Or i > Len("0123456789") Then x = 1 Else x = x + 1
cripta = cripta & Chr(255 - (Asc(Mid(texto, i, 1))) + Int(Mid("0123456789",x,1)) ) ---> Linha 105
Next
hash = cripta
End Function
Já tirei o ASC e aí passa a dar erro no Chr.

Tenho receio de mudar muito, pois esta é uma função de criptografia e já existem muitos registros no banco que estão criptografados.

O que posso fazer?

Obrigado