Ae galera...
Foi um saco fazer isso, entao resolvi postar aqui pra ninguem mais ter q fazer... hehe

Ai vai

Código: Selecionar todos
vBusca = Request.Form("textoBusca") If vBusca = "" Then vBusca = Request.QueryString("textoBusca") End If vBusca = Replace(vBusca, "à", "a") vBusca = Replace(vBusca, "á", "a") vBusca = Replace(vBusca, "â", "a") vBusca = Replace(vBusca, "ã", "a") vBusca = Replace(vBusca, "ä", "a") vBusca = Replace(vBusca, "è", "e") vBusca = Replace(vBusca, "é", "e") vBusca = Replace(vBusca, "ê", "e") vBusca = Replace(vBusca, "ë", "e") vBusca = Replace(vBusca, "ì", "i") vBusca = Replace(vBusca, "í", "i") vBusca = Replace(vBusca, "î", "i") vBusca = Replace(vBusca, "ï", "i") vBusca = Replace(vBusca, "ò", "o") vBusca = Replace(vBusca, "ó", "o") vBusca = Replace(vBusca, "ô", "o") vBusca = Replace(vBusca, "õ", "o") vBusca = Replace(vBusca, "ö", "o") vBusca = Replace(vBusca, "ù", "u") vBusca = Replace(vBusca, "ú", "u") vBusca = Replace(vBusca, "û", "u") vBusca = Replace(vBusca, "ü", "u") vBusca = Replace(vBusca, "À", "A") vBusca = Replace(vBusca, "Á", "A") vBusca = Replace(vBusca, "Â", "A") vBusca = Replace(vBusca, "Ã", "A") vBusca = Replace(vBusca, "Ä", "A") vBusca = Replace(vBusca, "È", "E") vBusca = Replace(vBusca, "É", "E") vBusca = Replace(vBusca, "Ê", "E") vBusca = Replace(vBusca, "Ë", "E") vBusca = Replace(vBusca, "Ì", "I") vBusca = Replace(vBusca, "Í", "I") vBusca = Replace(vBusca, "Î", "I") vBusca = Replace(vBusca, "Ï", "I") vBusca = Replace(vBusca, "Ò", "O") vBusca = Replace(vBusca, "Ó", "O") vBusca = Replace(vBusca, "Ô", "O") vBusca = Replace(vBusca, "Õ", "O") vBusca = Replace(vBusca, "Ö", "O") vBusca = Replace(vBusca, "Ù", "U") vBusca = Replace(vBusca, "Ú", "U") vBusca = Replace(vBusca, "Û", "U") vBusca = Replace(vBusca, "Ü", "U") vBusca = Replace(vBusca, "ç", "c") vBusca = Replace(vBusca, "Ç", "C") vBusca = Replace(vBusca, "ñ", "n") vBusca = Replace(vBusca, "Ñ", "N") vBusca = Replace(vBusca, "´", "") vBusca = Replace(vBusca, "`", "") vBusca = Replace(vBusca, "¨", "") vBusca = Replace(vBusca, "^", "") vBusca = Replace(vBusca, "~", "")

Esse codigo é mais pra busca...Tirando os acentos e tranformando em letra normal...

Caso voce tenha cadastrado no BD com os acentos em html ai vai...

Código: Selecionar todos
vCartao = Session("cartao") vCartao = Replace(vCartao, "à", "à") vCartao = Replace(vCartao, "á", "á") vCartao = Replace(vCartao, "â", "â") vCartao = Replace(vCartao, "ã", "ã") vCartao = Replace(vCartao, "ä", "ä") vCartao = Replace(vCartao, "è", "è") vCartao = Replace(vCartao, "é", "é") vCartao = Replace(vCartao, "ê", "ê") vCartao = Replace(vCartao, "ë", "ë") vCartao = Replace(vCartao, "ì", "ì") vCartao = Replace(vCartao, "í", "í") vCartao = Replace(vCartao, "î", "î") vCartao = Replace(vCartao, "ï", "ï") vCartao = Replace(vCartao, "ò", "ò") vCartao = Replace(vCartao, "ó", "ó") vCartao = Replace(vCartao, "ô", "&ocirc") vCartao = Replace(vCartao, "õ", "õ") vCartao = Replace(vCartao, "ö", "ö") vCartao = Replace(vCartao, "ù", "ù") vCartao = Replace(vCartao, "ú", "ù") vCartao = Replace(vCartao, "û", "û") vCartao = Replace(vCartao, "ü", "ü") vCartao = Replace(vCartao, "À", "À") vCartao = Replace(vCartao, "Á", "Á") vCartao = Replace(vCartao, "Â", "Â") vCartao = Replace(vCartao, "Ã", "Ã") vCartao = Replace(vCartao, "Ä", "Ä") vCartao = Replace(vCartao, "È", "È") vCartao = Replace(vCartao, "É", "É") vCartao = Replace(vCartao, "Ê", "Ê") vCartao = Replace(vCartao, "Ë", "Ë") vCartao = Replace(vCartao, "Ì", "Ì") vCartao = Replace(vCartao, "Í", "Í") vCartao = Replace(vCartao, "Î", "Î") vCartao = Replace(vCartao, "Ï", "Ï") vCartao = Replace(vCartao, "Ò", "Ò") vCartao = Replace(vCartao, "Ó", "Ó") vCartao = Replace(vCartao, "Ô", "Ô") vCartao = Replace(vCartao, "Õ", "Õ") vCartao = Replace(vCartao, "Ö", "Ö") vCartao = Replace(vCartao, "Ù", "Ù") vCartao = Replace(vCartao, "Ú", "Ú") vCartao = Replace(vCartao, "Û", "Û") vCartao = Replace(vCartao, "Ü", "Ü") vCartao = Replace(vCartao, "ç", "ç") vCartao = Replace(vCartao, "Ç", "Ç") vCartao = Replace(vCartao, "ñ", "ñ") vCartao = Replace(vCartao, "Ñ", "Ñ") vCartao = Replace(vCartao, "´", "´") vCartao = Replace(vCartao, "`", "`") vCartao = Replace(vCartao, "¨", "¨") vCartao = Replace(vCartao, "^", "&cReplaceirc;") vCartao = Replace(vCartao, "~", "&tilde;")

Falou galera!