SendMail

vad är det som är fel med det här scriptet ???

------------------
<%
Dim vMeddelandet, SendMail

   vMeddelandet = "\<HTML\>"
   vMeddelandet = vMeddelandet & "\<HEAD\>"
   vMeddelandet = vMeddelandet & "\<TITLE\>TEST\</TITLE\>"
   vMeddelandet = vMeddelandet & "\</HEAD\>"
   vMeddelandet = vMeddelandet & "\<BODY\>"
   vMeddelandet = vMeddelandet & "\<P\>Funkar \<B\>skapligt\</B\> dåligt det här!\</P\>"
   vMeddelandet = vMeddelandet & "\</BODY\>"
   vMeddelandet = vMeddelandet & "\</HTML\>"

   Set SendMail = CreateObject("CDONTS.NewMail")

   With SendMail
        .From = "testaren" 
        .To = "mailen@doman.com"
        .BodyFormat = CdoBodyFormatHTML ' eller 0
        .MailFormat = CdoMailFormatMIME ' eller 0
        .Body = vMeddelandet
        .Send
   End With

   Set SendMail = Nothing

%>
------------------

I felmeddelandet jag får står det