CDONTS-problem

Jeg har følgende kode som skal sende en mail til en mailingliste. Det virker dog ikke. Der kommer følgende fejl:

  error '80004005'
  Unspecified error
  /admin/cdonts.asp, line 56

Det er den linie, hvor der står
  Set mailObj = CreateObject("CDONTS.NewMail")

Der er installeret CDONTS på serveren for jeg bruger det andet sted på samme webhotel.

Koden følger her:


Dim objRS, strConn, n
objRS.Open "SELECT * FROM tblMailingliste", strConn

subject = Request.Form("subject")
message = Request.Form("message")

Do While NOT objRS.EOF

email = objRS("email")
navn = objRS("navn")
importance = 1        ' normal

fnavn=Request.Form("pdffile")
gert=Application("attach_temp")
stinavn=gert & "\" & fnavn

Set mailObj = CreateObject("CDONTS.NewMail")
mailObj.AttachFile stinavn, fnavn

strSubject = subject

tekst= "Dear " & navn & VbCrLf & VbCrLf
tekst=tekst & message & VbCrLf & VbCrLf

Response.write tekst



mailObj.Send "direct@morenicatour.com", email, strSubject, tekst, importance
' slet reference til CDONTS object   
Set mailObj = Nothing       

objRS.MoveNext
Loop