<% '|Author: Joaquim Ferreira '| The following function, will encode our string into a HTML format that is quite '| hard to read by the human eye, but its not difficult to reverse that process. '| '| Please use it at your own risk!!!!! '| '| How To call the Function?: '| response.write Generic_HTMLEncode("

CONSOLA de MUSICA Click sobre Icono Melodia Si cierras o minimizas Se suspende

 

") '| Function Generic_HTMLEncode(ByVal strSTRING) Dim strTemp strTemp = Replace(strSTRING,"+","PP") strTemp = server.urlencode(strTemp) strTemp = Replace(strTemp,"+"," ") strTemp = Replace(strTemp,"PP","+") ' Write encoded value Generic_HTMLEncode = "" Generic_HTMLEncode = Generic_HTMLEncode & "" & vbcrlf End Function %>

CONSOLA de MUSICA Click sobre Icono Melodia Si cierra o minimiza... Se suspende