Varför skickas inte mailet

kan nån hitta felet till varför jag får
CDONTS.NewMail.1 error '80020009'

503 Application Restarting

/Mail/test/send.asp, line 21

med

<% 
Dim rNamn, rEpost, rText, rSkickaTill, Newmail 

rNamn = Request("Namn") 
rEpost = Request("e-post") 
rText = Request("Text") 

'i variablen rSkickaTill skall ni ange den adress ni vill skicka till 
rSkickaTill = "min mejladress.com" 

Set newMAil = Server.createObject("CDONTS.Newmail") 

newMail.From = "<" & rEpost & ">" & rNamn 
newMail.To = rSkickaTill 
newmail.Body = rText 
newmail.Host = "smtp.xxxxxxxx.xxx"
newmail.Send 

Set newMail = Nothing 

%>

Line 21 är newmail.Send