Server.CreateObject Failed

jeg har et system det bruger Server.CreateObject, men serveren understøtter ikke Server.CreateObject. Er der nogen der har nogle forslag til hvordan jeg får det til at virke?

Serveren understøtter aspmail.

Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")

              body = "Hej " & textfield4  & (" ") & textfield5  & vbCrLf & vbCrLf
              body = body & "Dit brugernavn er: " & textfield  & vbCrLf
              body = body & "Din adgangskode er: " & textfield2  & vbCrLf & vbCrLf
              body = body & "Dit aktiverings nummer er: " & p_id  & vbCrLf & vbCrLf
              body = body & "Du har 24 timer til at aktiver din profil. Herefter vil dig tilmelding blive slettet i system og du er derefter nød til at lave en oprettelse." & vbCrLf & vbCrLf
              body = body & weburl & "activate.asp?activate=" & p_id & vbCrLf

Mail.Host = emailhost ' Specify a valid SMTP server
Mail.From = webemail ' Specify sender's address
Mail.FromName = websitename ' Specify sender's name

Mail.AddAddress textfield6

Mail.Subject = "Aktivering af din profil"
Mail.Body = body

On Error Resume Next
Mail.Send
If Err <> 0 Then
  Response.Write "Fejl: " & Err.Description
End If
Set Mail = Nothing

rsdup.close
set rsdup = nothing
conn.close
set conn = nothing
MM_conn_STRING.close
set MM_conn_STRING = nothing
set SQL = nothing
set rsReg = nothing