ejecuta este codigo en tu pc o server para saber que componente tienes instalado
Código:
<%
'Empezamos el Arreglo
Dim ObjInstalados(9)
ObjInstalados(0) = "CDONTS.NewMail" 'Si el componente es CDONTS
ObjInstalados(1) = "CDO.Message" 'Si el componente es CDOSYS
ObjInstalados(2) = "SMTPsvg.Mailer" 'Si el componente es AspMail
ObjInstalados(3) = "Persits.MailSender" 'Si el componente es AspEmail
ObjInstalados(4) = "Geocel.Mailer" 'Si el componente es Geocel
ObjInstalados(5) = "JMail.SMTPMail" 'Si el componente es JMail
ObjInstalados(6) = "Dynu.Email" 'Si el componente es DynuEmail
ObjInstalados(7) = "EasyMail.SMTP.5" 'Si el componente es EasyMail
ObjInstalados(8) = "SoftArtisans.SMTPMail" 'Si el componente es SA-SMTPMail
ObjInstalados(9) = "ocxQmail.ocxQmailCtrl.1" 'Si el componente es ocxQmail
'Luego podemos ir agregando mas objetos, segun los que necesitemos
Function cmpObjInstalados(strClassString)
On Error Resume Next
' Inicia Valores por Defecto
cmpObjInstalados = False
Err = 0
' Probamos
Dim PruebaObj
Set PruebaObj = Server.CreateObject(strClassString)
If 0 = Err Then cmpObjInstalados = True
' Limpiamos
Set PruebaObj = Nothing
Err = 0
End Function
If cmpObjInstalados(ObjInstalados(0))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("CDONTS")
ElseIf cmpObjInstalados(ObjInstalados(1))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("CDOSYS")
ElseIf cmpObjInstalados(ObjInstalados(2))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("AspMail")
ElseIf cmpObjInstalados(ObjInstalados(3))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("AspEmail")
ElseIf cmpObjInstalados(ObjInstalados(4))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("Geocel")
ElseIf cmpObjInstalados(ObjInstalados(5))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("JMail")
ElseIf cmpObjInstalados(ObjInstalados(6))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("DynuEmail")
ElseIf cmpObjInstalados(ObjInstalados(7))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("EasyMail")
ElseIf cmpObjInstalados(ObjInstalados(8))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("SA-SMTPMail")
ElseIf cmpObjInstalados(ObjInstalados(9))=True Then
'Agregar el componente a la tabla configuracion de la base de datos
Response.Write ("ocxQmail")
Else
Response.Write ("No hay componentes")
End If
%>