HTML Mail send

I send the mail and the result isn't formatted can anyone help with this?
This is how it displays in the email body
<p>Please type your message and click continue.</p> <p>thankyou<br /> Dave</p>

Any help appreciated.
Dave

Set objMessage = nothing
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Subject = "Invoice" 
objMessage.Sender = RS2.Fields.Item("U_EMAIL").Value
objMessage.From = "Dave"
objMessage.To = RS4.Fields.Item("CQEMAIL").Value 
objMessage.Bcc = RS2.Fields.Item("U_EMAIL").Value
objMessage.AddAttachment "d:\...\pdf\"&Request("id")&".pdf"
objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
               "smtp.....co.za" 
objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.HTMLBody = Server.HTMLEncode( Request.Form("EmailText2") )
'objMessage.TextBody = Server.HTMLEncode( Request.Form("EmailText2") )
objMessage.Send
Set objMessage = nothing