mail komponenter

Her er en component checker:

-----------------

<TITLE>componentchecker.asp</TITLE>
<body bgcolor="#FFFFFF">
<%
dim successSTR, FailSTR,checkSTR
whichfile=server.mappath("component.ini")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile, 1, False)

counter=0

do  UNTIL thisfile.AtEndOfStream
  counter=counter+1
  thisline=thisfile.readline
      attempt=thisline
  If mid(thisline,1,1)="[" then
      ' ignore
      CheckSTR=CheckSTR & thisline & " "
      category=thisline
      thisline=thisfile.readline
      attempt=thisline
  end if
  on error resume next
  set tempobject=server.createobject(attempt)
  If err.number=0 then
      successSTR = successSTR & category & " <b>" & attempt & "</b> was created successfully<br>"
  else
      FailSTR=FailSTR & category & " <b>" & attempt & "</b> failed. Error #" & err.number & "<br>"
  end if
  set tempobject=nothing
loop
thisfile.Close
set thisfile=nothing
set fs=nothing

response.write "Checked: " & checkSTR & "<hr>"
response.write successSTR & "<hr>"
response.write failSTR
%>

--------------

og her er filen component.ini, som ska ligge i samme dir:

-----------------

[standard]
mswc.browsertype
mswc.nextlink
scripting.dictionary
scripting.filesystemobject
[ado]
adodb.recordset
adodb.connection
adodb.command
[cdo]
CDONTS.NewMail
[msfreebies]
iissample.asp2htm
iissample.contentrotator
iissample.registry
iissample.summaryinfos
iissample.tracer
mswc.adrotator
mswc.counters
mswc.myinfo
MSWC.PageCounter
MSWC.PermissionChecker
mswc.tools
msc.loadbalance
[serverobjects]
ASPChart.Chart
AspConv.Expert
AspDNS.Lookup
AspFile.FileObj
AspHTTP.Conn
AspImage.Image
AspInet.FTP
AspMX.Lookup
AspNNTP.Conn
AspPager.Pager
POP3svg.Mailer
SMTPsvg.Mailer
[softartisans]
SoftArtisans.FileUp

------------------

Du kan tilføje flere componenter efter behag.

//>Rune

thx ;)

Anytime ;o)
Thx 4 Poinz

//>Rune