mando email con CDONTS ma vorrei colorare il testo

[naps]

Scusatemi ma come posso modificare il codice seguente
per evidenziare la password sia come bold e come colore?
vi posto il codice e vi evidenzio la parte che vorrei dare l'attribbuto
del colore...

' Oggetto del messaggio
Mail.Subject = "Conferma email"
' Corpo del messaggio
Mail.Body = "Gentile " & Request("nome") & " " & Request("cognome") &"," & _
Chr(13) & Chr(10) & _
"grazie per esserti registrato," & _
Chr(13) & Chr(10) & _
"la password da te scelta " & "'" & Request("password")  & "'" & " è già attiva." & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Grazie" & Chr(13) & Chr(10) & _
Chr(13) & Chr(10) & _
"Mio Sito" & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
""

grazie anticipatamente.

[maximum]

Devi inviare la mail in formato HTML.
Posta tutto il codice che ti aiuto al volo.

[naps]

ecco il codice:

<%
' Controlla che il pulsante submit abbia come nome "invia"
If Request("invia") <> "" Then 

Dim Mail
Set Mail = CreateObject("CDONTS.NewMail")
Mail.From = request.form("email")
Mail.To = Request("email")

'Destinatario nascosto della mail
Mail.bcc = "miamail@mail.it"


' Oggetto del messaggio
Mail.Subject = "Conferma iscrizione"
' Corpo del messaggio
Mail.Body = Request("nome") & " " & Request("cognome") &"," & _
Chr(13) & Chr(10) & _
"grazie per esserti registrato!" & _
Chr(13) & Chr(10) & _
"La password da te scelta " & "'" & Request("password") & "'" & " è attiva." & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Buona visione" & Chr(13) & Chr(10) & _
Chr(13) & Chr(10) & _
"miosito.it" & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"" 

strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>