Ola amigos, preciso de uma ajuda...preciso fazer Enconde de caracteres mas nao quero usar o comando Server.HMLEncode...pois quero Enconde de alguns especificos caracteres como:
'sText = Replace(sText, "<", "<")
'sText = Replace(sText, ">", ">")
'sText = Replace(sText, "(", "(")
'sText = Replace(sText, ")", ")")
'sText = Replace(sText, "#", "#")
'sText = Replace(sText, "&", "&")
mas estou com dificuldades de fazer...poderia me dar uma ajuda ou me mostrar algum caminho...eu tenho esse codigo de exemplo...
Function HTMLEncode(sText)
Dim I
sText = Replace(sText, "<", "<")
sText = Replace(sText, ">", ">")
sText = Replace(sText, "(", "(")
sText = Replace(sText, ")", ")")
sText = Replace(sText, "#", "#")
sText = Replace(sText, "&", "&")
For I = 1 to 255
sText = Replace(sText, I , Chr(I))
Next
HTMLEncode = sText
End Function
mas nao funcionou...pq?