i was sent a set of codes but it did not work?

but later on a friend of mine sent this to me and it worked, well i gave him the project details and he uploaded it for me, the codes are below and working with the site, but when i copied the folder to another server hosted elsewhere it did not work but it displayed this error :

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/opticalnet/hrtool1/profiles/CreateEditFn.asp, line 239

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.



This is the code:
Sub SendThankYouMail()
        strCrLf = Chr(13) & Chr(10)
        strSender = "admin@*****.com"
        strRecipient = strEmailAddress
        strSubject = "HCDC - Thank you for registering!"
        strBody = "Dear " & strFirstName & "," & strCrLf & strCrLf
        strBody = strBody & "Thank you!" & strCrLf & strCrLf
        strBody = strBody & "We have received your completed CV." & strCrLf & strCrLf
        strBody = strBody & "Your email address and password will be used as your login name allowing you"
        strBody = strBody & " to update your CV anytime you wish. You can also visit our website regularly"
        strBody = strBody & " to view the vacancies available." & strCrLf & strCrLf
        strBody = strBody & "Please do not reply or send any message to this mail address." & strCrLf & strCrLf
        strBody = strBody & "We advice you to go through our website for loads of information on"
        strBody = strBody & " developing your career and building your organisation." & strCrLf & strCrLf
        strBody = strBody & "We wish you success." & strCrLf & strCrLf
        strBody = strBody & "Thank you for your interest in Human Capacity "
        strBody = strBody & "Development Consultants (HCDC)." & strCrLf & strCrLf

        'send email
        Dim objMail
        Set objMail = Server.CreateObject("CDONTS.NewMail")

        objMail.From = strSender
        objMail.To = strRecipient
        objMail.Subject = strSubject
        objMail.Body = strBody
        objMail.Send

        set objMail=nothing
    End Sub