problem med cdosys og win2003

jeg har det her script til at sende emails med:
Set objCDOSYSConf = Server.CreateObject ("CDO.Configuration")
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.dk"
objCDOSYSConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSConf.Fields.Update
Dim objCDOSYSMail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSMail.Configuration = objCDOSYSConf
objCDOSYSMail.To = "modtager@hej.dk"
objCDOSYSMail.From = "afsender@hej.dk"
objCDOSYSMail.Subject = "subject"
objCDOSYSMail.TextBody = "plan text goes here"
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSConf= Nothing

det virker fint på windowsxp men på windows 2003 får jeg bare internal server error..