Der bliver ikke sendt mails

Dim dogMail
Set dogMail = Server.CreateObject("CDONTS.NewMail")

    dogMail.From = "cyberDog@legende.dk"
    dogMail.To = STRowneremail
    dogMail.Subject = "Welcome to your new pet: " + STRname
    dogMail.MailFormat = 0
    dogMail.BodyFormat = 0
    dogMail.Body = "<h2>Welcome to your new pet on the internet - <a href=""www.legende.dk/dog?login=" & STRowneremail & """><br><br>Click here to access your dog</a></h2>"
    dogMail.Send

set dogMail = Nothing


Sådan ser koden ud, men der sendes ikke mail. Koden skulle være fin nok (Jeg har brugt den før) - så hvad er der galt på min nye server