teste se o cdonts ta instalado

[Victor]

Olhem o que eu achei na net, um codigo que você pra saber se o CDONTS está ou não instalado no computador!!

<% Option Explicit

Function IsComponentInstalled(ProgId)
Dim tmpObject

On Error Resume Next

Set tmpObject = Server.CreateObject(ProgId)
If Err.Number = 0 Then
IsComponentInstalled = True
Else
IsComponentInstalled = False
End If
Set tmpObject = Nothing
End Function

'Utilizando a função 

If IsComponentInstalled("CDONTS.NewMail") Then
Response.Write "Enviando o e-mail ..."
'...
Else
Response.Write "Não é possível enviar o e-mail (Objeto para envio indisponível)"
'...
End If
%>

tirei daqui:

http://www.aspbrasil.com.br/tutoriais/deta...odConteudo=1167

[]'s

Victor