Acentuação e código HTML

[Eduardo Godoy]

Olá pessoal.

Estou com dois problemas que não consigo resolver.

Quando chega as informações do formulário para o meu e-mail, aparece junto com a mensagem um código HTML, e a acentuação vem com erro.

Para o erro de HTML arranjei este código mas não está funcionando:

<%

Function LimpaHTML(matriz)

Do While True

ini = InStr(1,matriz,"<")

If ini = 0 Then Exit Do

fim = InStr(ini,matriz,">")

parcial = Mid(matriz,ini,fim-ini+1)

matriz = Replace(matriz,parcial,"")

Loop

LimpaHTML = matriz

End Function

var = "<img='imagem.gif'><br><a href="">link</a>Imagem"

response.write LimpaHTML(var)

%>

Onde tenho que inserir este código? Junto com o código que envia as informações para o formulário??

Desde já Obrigado pela atenção e aguardo uma ajuda

[Ted k']

você pode cadastrar usando replace:

<%
var = "<img='imagem.gif'><br><a href="">link</a>Imagem"

Function TratarCaracteres(Caracter)
    Caracter = Replace(Caracter, "'", "''")
    Caracter = Replace(Caracter, "<", "&lt;")
    Caracter = Replace(Caracter, ">", "&gt;")
    TratarCaracteres = Caracter
End Function

Response.write TratarCaracteres(var)
%>

[Eduardo Godoy]

Onde eu insiro esse código??

[Ted k']

como está ai, na hora de inserir no banco!!