Simple function for ASP to determine whether a DLL file has been registered

       code is as follows

       <%
       Features: Check if system components or components are successfully installed
       Parameters: Component name
       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
  &nb sp;   Err = 0
       end Function
        ' Get the system component version number
       Function getver (classstr)
     On Error Resume Next
     getver= ""
     Err = 0
     Dim xtestobj
     Set xtestobj = Server.CreateObject (CLASSSTR)
     If 0 = Err Then getver=xtestobj.version
     Set xtestobj = nothing< br>      Err = 0
       end Function
       %>
 

The method is invoked as follows:

The code is as follows

<%
If isobjinstalled ("Fso.file") =true Then
Response.Write ("Already Installed") &getver ("Fso.file")
End If
%>