[Resolvido] Recebe uma string e converte para caracteres ASCII HT

[xanburzum 169]

Esta função recebe uma string e converte para caracteres ASCII HTML. Muito útil para endereços de correio electrónico para evitar spiderde tomar o seu endereço de e-mail (com sorte).

' ============================================
' converte uma string para o formato HTML
' ASCII values.
' ex:    teste
'        teste
' útil para converter e-mail addesses tantos
' E-mail para spider não pode ler o endereço
' ============================================
function ASCIIConvert ( sString )

   dim sConverted, index, i

   sConverted = ""
   for i=0 to len ( sString ) - 1
       index = Left ( sString, 1 )
       sConverted = sConverted & "" & Asc(index) & ";"
       if len ( sString ) > 1 then
           sString = Right ( sString, len( sString ) - 1 )
       else
           sString = null
       end if
   next

   ASCIIConvert = sConverted

end function

' ============================================
'Chamar o script assim:
' ============================================
ASCIIConvert ( "string to convert" )