Problem mit CDONTS.NewMail bei ASP

[hewlett]

Hi Leute,

ich versuch grad eine tell-a-friend Funktion in meine Page einzubauen hab aber mit CDONTS Probleme. Ich habs schon abgecheckt, der Server unterstützt CDONTS. Wenn ich das Skript von unten jetzt in eine Testseite einbaue und es aufrufen will meldet der Internet Explorer HTTP 500 - Interner Serverfehler, Seite kann nicht angezeigt werden! Wo kann hier das Problem liegen?

<%
Const cstCdoMailFormatMime = 1
Const cstCdoMailFormatText = 0

Const cstCdoBodyFormatHTML = 0
Const cstCdoBodyFormatText  = 1

strBetreff = "Textnachricht"
strNachricht = "Dies ist eine Textnachricht," & VbCrLf
strNachricht = strNachricht & "generiert vom NewMail Objekt."
strEmpaenger = "test@mail.com"
strAbsender = "absender@mail.com"

' Email abschicken:
Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.MailFormat = cstCdoMailFormatText
objNewMail.BodyFormat = cstCdoBodyFormatText
objNewMail.From = strAbsender
objNewMail.To = strEmpaenger
objNewMail.Subject = strBetreff
objNewMail.Body = strNachricht
objNewMail.Send
Set objNewMail = Nothing
%>