CDONTS problem

Jeg har lidt problemer med at få den til at vise den rigtige meddelelse når mailen er sendt rigtigt eller forkert. Jeg får følgende fejl
CDONTS.NewMail.1 error '80020009'
Unable to connect to server
/send.asp, line 15
Nogle forslag?
Min kode ser således ud:
<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.Host = "smtp1.b-one.nu"
objCDO.From = Request.Form("fra_mail")
objCDO.Subject = Request.Form("emne")
objCDO.To = "xxx"
objCDO.Body = Request.Form("besked")
objCDO.Importance = 2
objCDO.Send
If objCDO.Send.Execute then
%>
<table width="798" height="300" border="0">
  <tr>
    <td width="441"><table width="80%" border="0" align="center">
        <tr>
          <td><div class="brodtekst">Tak for din mail. Vi vil besvare den hurtigst
              muligt.</div></td>
        </tr>
</table></td>
  </tr>
</table>
<% Else %>
<table width="798" height="300" border="0">
  <tr>
    <td width="441"><table width="80%" border="0" align="center">
        <tr>
          <td><div class="brodtekst">Der opstod en fejl. Du bedes sende mailen
              til <a href="mailto:xxx">xxx</a> i stedet</div></td>
        </tr>
</table></td>
  </tr>
</table>
<% Set objCDO = Nothing %>
<% End If %>