ASPEmail não reconhece pontuação

Deu certo!!! Mas agora tem esse problema da pontuação!!!

Quando ele manda o e-mail aparece em vez de "Orçamento" aparece "Orçamento"

E agora???...como resolver isso?!

PS.: o código abaixo pega as variáveis do flash e manda por e-mail só que as pontuações não dá certo...

CODE
<%
'Envio de email Flash + Linguagens

'Desenvolvido por Weverton Naves (tom.naves@gmail.com) (http://wevertonn.wordpress.com)

'Scripts web sem autoria de Weverton Naves

'Flash com autoria de Weverton Naves

'pegar variaveis

nome=request.Form("formNome")

email=request.Form("formEAspEmail")

assunto=request.Form("formAssunto")

sexo=request.Form("formSexo")

interesses=request.Form("formInteresses")

news=request.Form("formNews")

mensagem=request.Form("formMsg")

'suas informaçoes aqui

seuemail="pldo@pldo.com.br"

'digite aqui o seu smtp server

strHost = "localhost"

'cria objeto

Dim AspEmail

Set AspEmail = Server.CreateObject("Persits.MailSender")

'colocando o smpt

AspEmail.Host = strHost

AspEmail.From = email 'de quem envia

AspEmail.FromName = nome 'nome de quem envia

AspEmail.AddAddress seuemail

AspEmail.Subject = assunto

' texto da mensagem

AspEmail.IsHTML = True

 AspEmail.Body = "Olá, você recebeu um novo pedido de orçamento:<br><br>Nome: "&nome&"<br>EAspEmail: "&EAspEmail&"<br>Sexo :"&sexo&"<br>Assunto: "&Assunto&"<br>Interesses: "&Interesses&"<br>Newsletter: "&news&"<br> Mensagem: "&mensagem

 

 

 

 

 on error resume next ' pega erros

 AspEmail.Send ' envia mensagem

 if err.number <> 0 then 'se ocorreu erro

 response.Write("retorno=Erro ao enviar.")

 else

 response.Write("retorno=Enviado com sucesso.")

 end If

 

 Set AspEmail = Nothing 'finaliza o objeto'

%>