בעיה בשליחת מייל מהאתר בשיטת CDOSYS

יש לי בעיה יש לי באתר טופס שליחת מייל הוא שולח והכל עובד חוץ מהעיניין שאני לא מצליח לשלוח הודעה שבגופה יש קוד HTML

זה הקוד

Dim msg_body as string, fname, lname, email, address, phone
Dim objMsg
Dim objConfig
Dim objFields

msg_body = request.form("msg_body")
fname = request.form("f_name")
lname = request.form("l_name")
email = request.form("email")
address = request.form("address")
phone = request.form("phone")

msg_body = fname + lname + email + address + phone  + msg_body

Set objMsg = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
Set objFields = objConfig.Fields
' Setup server information. Comment out if using localhost
objFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.ha-emek.org.il"
objFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Setup server login information if your server require it. Comment out if using localhost
objFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
objFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "cv22eme"

objFields.Update

' Now you can setup message to send
Set objMsg.Configuration = objConfig

objMsg.To = "[email protected]"
objMsg.From = "[email protected]"
objMsg.Subject = "פנייה מהאתר"
objMsg.HTMLBodyPart.charset = "Windows-1255"
objMsg.HTMLBody = msg_body

objMsg.Send
mail_msg = "ההודעה נשלחה בהצלחה!"
set objMsg = NOTHING
%>


מה שאני צריך זה לעשות שהגוף יהיה בנוי לפי השורה:
fname + " " + lname + "<br>" + email + "<br>" + address + " " + phone + "<br><br>" + msg_body