[xanburzum]

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" )