Código fuente de 'Componentes instalados.asp'

<html>
<head>
<title>Componentes instalados - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Componentes instalados</font></b></p>

<body style="font-family: Arial; font-size: 11pt">
<% @ Language="VBScript" %>

<%
Dim theComponent(11)
Dim theComponentName(11)

' the components
theComponent(0) = "ADODB.Connection"
theComponent(1) = "SoftArtisans.FileUp"
theComponent(2) = "AspHTTP.Conn"
theComponent(3) = "AspImage.Image"
theComponent(4) = "LastMod.FileObj"
theComponent(5) = "Scripting.FileSystemObject"
theComponent(6) = "SMTPsvg.Mailer"
theComponent(7) = "CDONTS.NewMail"
theComponent(8) = "Jmail.smtpmail"
theComponent(9) = "SmtpMail.SmtpMail.1"
theComponent(10) = "Persits.Upload.1"
theComponent(11) = "UnitedBinary.AutoImageSize"

' the name of the components
theComponentName(0) = "ADODB"
theComponentName(1) = "SA-FileUp"
theComponentName(2) = "AspHTTP"
theComponentName(3) = "AspImage"
theComponentName(4) = "LastMod"
theComponentName(5) = "FileSystemObject"
theComponentName(6) = "ASPMail"
theComponentName(7) = "CDONTS"
theComponentName(8) = "JMail"
theComponentName(9) = "SMTP"
theComponentName(10) = "Persits Upload"
theComponentName(11) = "AutoImageSize"

Function IsObjInstalled(strClassString)
 On Error Resume Next
 IsObjInstalled = False
 Err = 0
 Dim xTestObj
 Set xTestObj = Server.CreateObject(strClassString)
 If 0 = Err Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err = 0
End Function
%>


<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td width="100%">
      <b>&nbsp;</b>
      </td>
    </tr>

        <% 
		Dim i
           For i=0 to UBound(theComponent)
	     If Not IsObjInstalled(theComponent(i)) Then
	     Else
          Response.Write "<tr>" & vbCrLf
         Response.Write "<td width=""100%"">" & vbCrLf
         Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf
        Response.Write "</td>" & vbCrLf
       Response.Write "</tr>" & vbCrLf
	     End If
	   Next 
	   %>
  </table>
  </center>
</div>

</body>

</body>
</html></body>
</html>