problemer med objNewMail.AttachFile

Jeg får en fejl med objNewMail.AttachFile, når jeg prøver at bruge objektet. Nogen som kan fortælle mig hvad der galt med min kode af objNewMail.AttachFile?

function sendMessage(strEmail)
    ' create email
    Set objNewMail = Server.CreateObject("CDONTS.NewMail")

    objNewMail.AttachFile ("C:\atest1.txt")
   
    objNewMail.From = request("framail")
    objNewMail.Subject = request("Emne")
    objNewMail.To = strEmail

    objNewMail.Body = message


    ' send email
    objNewMail.Send
    Set objNewMail = Nothing
    'response.Write(strEmail & " sent <br>")

end function