Si se quedo algo en el tintero me avisan pero ya es media noche y tengo mucho sueño
Código:
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
'Empezamos el Arreglo
Dim ObjInstalados(4)
ObjInstalados(0) = "JMail.SMTPMail"
ObjInstalados(1) = "CDONTS.NewMail"
ObjInstalados(2) = "aspSmartMail.SmartMail"
ObjInstalados(3) = "Persits.MailSender"
ObjInstalados(4) = "CDO.Message"
'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
%>
<HTML>
<HEAD>
<TITLE>Comprobando Objetos Necesarios</TITLE>
</HEAD>
<BODY>
<TABLE BORDER=0>
<%
Dim i
For i=0 to UBound(ObjInstalados)
Response.Write "<TR><TD>" & ObjInstalados(i) & "</TD><TD>"
If Not cmpObjInstalados(ObjInstalados(i)) Then
Response.Write "<strong>No instalado</strong>"
Else
Response.Write "Instalado"
End If
Response.Write "</TD></TR>" & vbCrLf
Next
%>
</TABLE>
No me regañen
al niño por favor
