Struggling with SMTP and classic ASP application

Question

I have a classic ASP application that I'm moving from 2003 to 2012. On 2003 it used CDONTS to send email, as this is not supported I am converting it to CDOSYS as follows;
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPusessl) = 1
.Item(cdoSMTPServer) = "xxxx.xxxx.net"
.Item(cdoSendUserName) = "[email protected]"
.Item(cdoSendPassword) = "xxxxxx"
.Item(cdoSMTPServerPort) = 6000
.Item(cdoSMTPconnectiontimeout) = 30
.Update
End With
Set ObjSendMail.Configuration = iConf
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = request.form("Supplier_Email")
ObjSendMail.Subject = "order from "&buname
ObjSendMail.From = request.form("copy")
' we are sending a text email.. simply switch the comments around to send an html email instead
ObjSendMail.HTMLBody = request.form("email_body")
'ObjSendMail.TextBody = "this is the body"
ObjSendMail.Send
However, it worked fine on 2003 but I get 
CDO.Message.1 error '80040213'
The transport failed to connect to the server. on the send.
I think it's a problem with the SMTP configuration, but I don;t know how to check it.
Any ideas?
Regards
Pete

Answer 1

Hi,
As this thread has been quiet for a while, we will mark it as ‘Answered’ as the information provided should be helpful. If you need further help, please feel free to reply this post directly so we will be notified to follow it up. You can also choose to unmark
the answer as you wish.
BTW, we’d love to hear your feedback about the solution. By sharing your experience you can help other community members facing similar problems. Thanks for your understanding and efforts.
Best
regards,
Susie