<% response.expires = -1 %>
<% 'response.buffer = false %>
<%
Sub ShowComponents
' ****** Visning af komponenter - start ******
response.write "<tr><td colspan=2><b>[standard]</b></td></tr>"
response.write CheckThisComponent("mswc.browsertype")
response.write CheckThisComponent("mswc.nextlink")
response.write CheckThisComponent("scripting.dictionary")
response.write CheckThisComponent("Scripting."&"FileSystemObject")
response.write "<tr><td colspan=2><br><b>[ado]</b></td></tr>"
response.write CheckThisComponent("adodb.recordset")
response.write CheckThisComponent("adodb.connection")
response.write CheckThisComponent("adodb.command")
response.write CheckThisComponent("ADODB.Stream")
response.write "<tr><td colspan=2><br><b>[indexserver]</b></td></tr>"
response.write CheckThisComponent("ixsso.Query")
response.write CheckThisComponent("ixsso.Util")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://msdn.microsoft.com/scripting' target=_blank>[msdn.microsoft.com/scripting]</a></b></td></tr>"
response.write CheckThisComponent("Wscript.Shell")
response.write "<tr><td colspan=2><br><b>[msXML]</b></td></tr>"
response.write CheckThisComponent("microsoft.XMLHTTP")
response.write CheckThisComponent("microsoft.XMLDOM")
response.write "<tr><td colspan=2><br><b>[msfreebies]</b></td></tr>"
response.write CheckThisComponent("iissample.asp2htm")
response.write CheckThisComponent("iissample.contentrotator")
response.write CheckThisComponent("iissample.registry")
response.write CheckThisComponent("iissample.summaryinfos")
response.write CheckThisComponent("iissample.tracer")
response.write CheckThisComponent("mswc.adrotator")
response.write CheckThisComponent("mswc.counters")
response.write CheckThisComponent("mswc.myinfo")
response.write CheckThisComponent("MSWC.PageCounter")
response.write CheckThisComponent("MSWC.PermissionChecker")
response.write CheckThisComponent("mswc.tools")
response.write CheckThisComponent("mswc.loadbalance")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://tech.dimac.net' target=_blank>[tech.dimac.net]</a></b></td></tr>"
response.write CheckThisComponent("Socket.TCP")
response.write CheckThisComponent("JMail.POP3")
response.write CheckThisComponent("JMail.Message")
response.write CheckThisComponent("JMail.SMTPMail")
response.write CheckThisComponent("JMail.SMTP")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.persits.com' target=_blank>[
www.persits.com]</a></b></td></tr>" response.write CheckThisComponent("Persits.MailSender")
response.write CheckThisComponent("Persits.Upload.1")
response.write CheckThisComponent("Persits.Jpeg")
response.write "<tr><td colspan=2><br><b>[diverse]</b></td></tr>"
response.write CheckThisComponent("MSWC.Status")
response.write CheckThisComponent("IISSample.PageCounter")
response.write CheckThisComponent("ImgSize.Check")
response.write CheckThisComponent("AspPing.Conn")
response.write CheckThisComponent("LastMod.FileObj")
response.write CheckThisComponent("WaitFor.Comp")
response.write CheckThisComponent("AspCrypt.Crypt")
response.write CheckThisComponent("GuidMakr.GUID")
response.write CheckThisComponent("ASPExec.Execute")
response.write CheckThisComponent("AspInet.FTP")
response.write CheckThisComponent("ASPsvg.Process")
response.write CheckThisComponent("Bible.Lookup")
response.write CheckThisComponent("AspSock.Conn")
response.write CheckThisComponent("AspQMail.Mailer")
response.write CheckThisComponent("aspSmartUpload.SmartUpload")
response.write CheckThisComponent("aeImage.Canvas")
response.write "<tr><td colspan=2><br><b>[cdo]</b></td></tr>"
response.write CheckThisComponent("CDONTS.NewMail ")
response.write "<tr><td colspan=2><br><b>[cyscape]</b></td></tr>"
response.write CheckThisComponent("cyScape.browserObj")
response.write "<tr><td colspan=2><br><b>[Lyris]</b></td></tr>"
response.write CheckThisComponent("Lyris.LCP")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.serverobjects.com' target=_blank>[
www.serverobjects.com]</a></b></td></tr>" response.write CheckThisComponent("ASPChart.Chart")
response.write CheckThisComponent("AspConv.Expert")
response.write CheckThisComponent("AspDNS.Lookup")
response.write CheckThisComponent("AspFile.FileObj")
response.write CheckThisComponent("AspHTTP.Conn")
response.write CheckThisComponent("AspImage.Image")
response.write CheckThisComponent("AspInet.FTP ")
response.write CheckThisComponent("AspMX.Lookup")
response.write CheckThisComponent("AspNNTP.Conn")
response.write CheckThisComponent("AspPager.Pager")
response.write CheckThisComponent("SMTPsvg.Mailer")
response.write CheckThisComponent("Dynu.DNS")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.aspdb.com' target=_blank>[
www.aspdb.com]</a></b></td></tr>" response.write CheckThisComponent("ASPdb.Free")
response.write CheckThisComponent("ASPdb.View")
response.write CheckThisComponent("ASPdb.Pro")
response.write CheckThisComponent("ASPdb.EP")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.softartisans.com' target=_blank>[
www.softartisans.com]</a></b></td></tr>" response.write CheckThisComponent("SoftArtisans.FileUp")
response.write CheckThisComponent("SoftArtisans.SACheck")
response.write CheckThisComponent("SoftArtisans.SASessionPro")
response.write CheckThisComponent("SoftArtisans.FileManager")
response.write CheckThisComponent("EZsite.Calender")
response.write CheckThisComponent("EZsite.CalendarManager")
response.write CheckThisComponent("EZsite.WebNotes")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.active4.com' target=_blank>[
www.active4.com]</a></b></td></tr>" response.write CheckThisComponent("ActiveLaunch.Control")
response.write CheckThisComponent("ActiveSAR.SearchAndReplace")
response.write CheckThisComponent("ActiveShopper.Cart")
response.write CheckThisComponent("ActiveShopper.BasketItem")
response.write CheckThisComponent("FileTouch.Control")
response.write CheckThisComponent("PCAuthX.Authorizer")
response.write CheckThisComponent("Prt2Disk.Control")
response.write CheckThisComponent("SemClient.Control")
response.write CheckThisComponent("SPrinterPro.Object")
response.write CheckThisComponent("TimeSpan.Control")
response.write CheckThisComponent("WWWPrint.Client")
response.write "<tr><td colspan=2><br><b>[Zaks Software]</b></td></tr>"
response.write CheckThisComponent("ZaksPop3.Server")
response.write CheckThisComponent("JavaPop3.Mailer")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.oceantek.com' target=_blank>[
www.oceantek.com]</a></b></td></tr>" response.write CheckThisComponent("ASPL.Login")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.able-consulting.com' target=_blank>[
www.able-consulting.com]</a></b></td></tr>" response.write CheckThisComponent("ACI.WhoIs")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.softwing.com' target=_blank>[
www.softwing.com]</a></b></td></tr>" response.write CheckThisComponent("Softwing.EventLogReader")
response.write CheckThisComponent("Softwing.OdbcRegTool")
response.write CheckThisComponent("w3info.w3info.1")
response.write CheckThisComponent("InetCtls.Inet.1")
response.write CheckThisComponent("Softwing.AspQPerfCounters")
response.write CheckThisComponent("SQLOLE.SQLServer")
response.write CheckThisComponent("SOFTWING.ASPEventlog")
response.write CheckThisComponent("SOFTWING.ASPtear")
response.write CheckThisComponent("SOFTWING.EDConverter")
response.write CheckThisComponent("SOFTWING.EventLogReader")
response.write CheckThisComponent("SOFTWING.FileCache.1")
response.write CheckThisComponent("SOFTWING.OdbcRegTool")
response.write CheckThisComponent("SOFTWING.LocaleFormatter")
response.write CheckThisComponent("SOFTWING.Profiler")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.dougdean.com' target=_blank>[
www.dougdean.com]</a></b></td></tr>" response.write CheckThisComponent("EZsite.EZuploadLite")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.algonet.se/~jekman' target=_blank>[
www.algonet.se/~jekman]</a></b></td></tr>" response.write CheckThisComponent("lightcom.xBrowser")
response.write CheckThisComponent("lightcom.xContent")
response.write CheckThisComponent("lightcom.xPop3")
response.write CheckThisComponent("lightcom.xSMTP")
response.write CheckThisComponent("lightcom.xTree")
response.write CheckThisComponent("JESoftware.xContent")
response.write CheckThisComponent("JESoftware.xPop3")
response.write CheckThisComponent("JESoftware.xSMTP")
response.write CheckThisComponent("JESoftware.xTree")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.de-info.com' target=_blank>[
www.de-info.com]</a></b></td></tr>" response.write CheckThisComponent("checkemail.maccheckemail")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.pstruh.cz' target=_blank>[
www.pstruh.cz]</a></b></td></tr>" response.write CheckThisComponent("TCPIP.Trace")
response.write CheckThisComponent("TCPIP.DNS")
response.write" <tr><td colspan=2><br><b><a class=default href='
http://www.dana-net.com/products/aspcomponents/magicregistry' target=_blank>[
www.dana-net.com/products/aspcomponents/magicregistry]</a></b></td></tr>" response.write CheckThisComponent("MagicRegistry.Tricks")
' ****** Visning af komponenter - slut ******
End Sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Kontrol af installerede komponenter</title>
</head>
<body>
<p class="Header">Komponeneter på denne server</p>
<table border=0>
<%
Function CheckThisComponent(CheckComponent)
On Error Resume Next
CheckThisComponent = "<tr><td width=400>" & CheckComponent & "</td><td>not installed!</td></tr>" & VbCrLf
Err = 0
Dim TempObj
Set TempObj = Server.CreateObject(CheckComponent)
If 0 = Err Then CheckThisComponent = "<tr><td width=400>" & CheckComponent & "</td><td width=100><strong>installed!</strong></td></tr>" & VbCrLf
Set TempObj = Nothing
Err = 0
End Function
if request.form("component") <> "" then
response.write CheckThisComponent(request.form("component"))
response.write "<tr><td colspan=2><br></td></tr>"
end if
Showcomponents
%>
</table>
<br><hr size='1' color='#000000' noshade>
</layer></div>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
