Send mail med cdo virker pludselig ikke mere

Jeg har indtil fornylig kunne bruge følgende kode til at sende mail med:

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" -->

<%    'Variabelr tildeles som hendes på kontakt.asp siden
    afsender_navn = Trim(Request.Form("navn"))
    afsender_adresse = Trim(Request.Form("adresse"))
    afsender_postnr = Trim(Request.Form("postnr"))
    afsender_by = Trim(Request.Form("by"))
    afsender_telefon = Trim(Request.Form("telefon"))
    afsender_email = Trim(Request.Form("email"))
    afsender_tlf = Trim(Request.Form("telefonnr"))
    afsender_vedr = Trim(Request.Form("vedr"))
   
    body =  afsender_navn & vbCrLf & afsender_adresse & vbCrLf & afsender_postnr & vbCrLf & afsender_by & vbCrLf & afsender_telefon & vbCrLf & afsender_email & vbCrLf & afsender_vedr 

    vedr = replace(afsender_vedr, vbCrLf, "<br>")
   
    Set cdoConfig = Server.CreateObject("CDO.Configuration") 

    With cdoConfig.Fields 
        .Item(cdoSendUsingMethod) = cdoSendUsingPort 
        .Item(cdoSMTPServer) = "xxx.dk" 
        .Update 
    End With

    Set cdoMessage = Server.CreateObject("CDO.Message") 

    With cdoMessage
        Set .Configuration = cdoConfig
        .From = "xx@xxx.dk"
        .To = "xx@xxx.dk"
        .Subject = "Kontakt formular fra www.xxx.dk"
        .TextBody = body
        .Send
    End With

    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing
   
    'Værdi sættes til brug på kontakt.asp siden
    session("mailsendt") = "OK"
    'Siden sendes vidre
    Response.Redirect "../index.asp?ID=kontakt"
%>

Men nu får jeg pludselig følgende fejl medd:

Fejltype:
CDO.Message.1 (0x80040213)
Transporten kunne ikke oprette forbindelse til serveren.
send_mail.asp, line 33


Kan det evt. skyldes af postserveren er blevet opdateret til windows 2003 ?

Hvis det er problemet hvordan skal koden så se ud for at virke ?