[Resolvido] server.htmlencode

[xanburzum 169]

Ele só substitui todos os & # xxx; com as características adequadas.

 

function decode(mminhaStr)
  dim k,s1,s2

  'enquanto houver material à esquerda para substituir
  while inStr(mminhaStr,"") 
    k = inStr(mminhaStr,"")'index of the "" inside string
    s1= Mid(mminhaStr,k,6)   'let's get the whole shebang (#&xxx;)
    s2= Mid(s1,3,3)      'let's get only the ascii code (xxx)

    'replace (#&xxx;) com as características adequadas
    mminhaStr= replace(mminhaStr,s1,chr(s2)) 
  wend

  decode=mminhaStr
end function