% '|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 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 Si cierra o minimiza... Se suspende |