Formulário ASP

Pessoal estou com o seguinte problema, fiz um formulário de contato pelo site, quando vou recebo o email, aparece coretamente com todos os dados que foram enviados, só que em código html.

Vou postar o código aqui caso alguem possa me dar um help:

--------------------------------------------------------------------------------------------

<%

nome = Request.Form("nome")

empresa = Request.Form("empresa")

ramo = Request.Form("ramo")

endereco = Request.Form("endereco")

bairro = Request.Form("bairro")

cidade = Request.Form("cidade")

estado = Request.Form("estado")

cep = Request.Form("cep")

telefone = Request.Form("DDD")&" "&Request.Form("fone")

email = Request.Form("email")

	mensagem = Replace(Request.Form("mensagem"),chr(13),"<br>")

	destino = Request.Form("listEmail")

 

 

	Set ObjFSO = CreateObject("Scripting.FileSystemObject")

 Set ObjFile = ObjFso.OpenTextFile(Server.MapPath("formatos/contato1.htm"), 1, True, False)

 texto = ""

 while (not ObjFile.AtEndOfStream)

 texto = texto & ObjFile.ReadLine

 wend

 

 texto = Replace(texto,"#nome#",nome)

 texto = Replace(texto,"#empresa#",empresa)

 texto = Replace(texto,"#ramo#",ramo)

 texto = Replace(texto,"#endereco#",endereco)

 texto = Replace(texto,"#bairro#",bairro)

 texto = Replace(texto,"#cidade#",cidade)

 texto = Replace(texto,"#estado#",estado)

 texto = Replace(texto,"#cep#",cep)

 texto = Replace(texto,"#telefone#",telefone)

 texto = Replace(texto,"#email#",email)

 texto = Replace(texto,"#mensagem#",mensagem)

 

	Set sMEmail = CreateObject("CDO.Message")

 sMEmail.From = email

 sMEmail.To = destino

 sMEmail.Subject = "Proposta de Adesão - SIGGRE"

 sMEmail.TextBody = texto

 sMEmail.Send

 Set sMEmail= nothing

 

 

	Response.Write("Enviado com sucesso")

%>

------------------------------------------------------------------------------------