Função para trocar caracteres especiais por código interpretado pelo aparelho WAP

'=================================================================== 'Converte caracteres especiais do WAP - Ling.ASP '=================================================================== Function ConvertWap(vStr)   dim i, s1   s1 = " ¡¢£¤¥¦§¨©¬®°±´¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÑÒÓÔÕÖXØÙÚÛÜÝþßàáâãäåæçèéêëìíîïñòóôõö÷øùúûüýÿÞ$"   's2 = array(" ","¡","¢","£","¤","¥","¦","§","¨","©","¬","®","°","±","´","¼","½","¾","¿","À","Á","Â","Ã","Ä","Å","Æ","Ç","È","É","Ê","Ë","Ì","Í","Î","Ï","Ñ","Ò","Ó","Ô","Õ","Ö","×","Ø","Ù","Ú","Û","Ü","Ý","Þ","ß","à","á","â","ã","ä","å","æ","ç","è","é","ê","ë","ì","í","î","ï","ñ","ò","ó","ô","õ","ö","÷","ø","ù","ú","û","ü","ý","þ","ÿ","$$")'   if len(vStr) <> 0 then      vStrSaida = ""     For i = 1 to Len(vStr)        if instr(1,s1,mid(vStr,i,1),0) <> 0 then         vStrSaida = vStrSaida & s2(instr(1,s1,mid(vStr,i,1),0)-1)       else         vStrSaida = vStrSaida & mid(vStr,i,1)       end if     next   end if      ConvertWap = vStrSaida End Function

Quebra-Linha

Colaborador..: Eduardo Zambaldi
Categoria(s).: WAP;
Versão.......: 1.0
Data.........: 10/09/2004 11:54:14
Visualizado..: 5200 vezes
Fonte........: Eduardo Zambaldi