<h4>Additional Installed Components</h4><br>
<%
On Error Resume Next

Set obTest = Server.CreateObject("CDONTS.NEWMAIL")
Response.write "<P><strong>Creating Chili!Mail Component...</strong><br>"
errCheck(err)

Set obTest = Server.CreateObject("CHILI.POP3.1")
Response.write "<P><strong>Creating Chili!POP3 Component...</strong><br>"
errCheck(err)

Set obTest = Server.CreateObject("CHILI.UPLOAD.1")
Response.write "<P><strong>Creating Chili!Upload Component...</strong><br>"
errCheck(err)

Set obTest = Server.CreateObject("MSWC.ADROTATOR")
Response.write "<P><strong>Creating Ad Rotator Component...</strong><br>"
errCheck(err)

Set obTest = Server.CreateObject("MSWC.BrowserType")
Response.write "<P><strong>Creating Browser Capabilities Component...</strong><br>"
errCheck(err)

Set obTest = Server.CreateObject("MSWC.NEXTLINK")
Response.write "<P><strong>Creating Content Linking Component...</strong><br>"
errCheck(err)

Set obTest = Server.CreateObject("MSWC.CONTENTROTATOR")
Response.write "<P><strong>Creating Content Rotator Component...</strong><br>"
errCheck(err)

Set obTest = Server.CreateObject("MSWC.COUNTERS")
Response.write "<P><strong>Creating Counters Component...</strong><br>"
errCheck(err)

Set obTest = Server.CreateObject("MSWC.MYINFO")
Response.write "<P><strong>Creating MyInfo Component...</strong><br>"
errCheck(err)

Set obTest = Server.CreateObject("MSWC.TOOLS")
Response.write "<P><strong>Creating Tools Component...</strong><br>"
errCheck(err)

Set obTest = Nothing
%>

< %
Sub errCheck(errObj)
if errObj <> 0 then
response.write "This component is not available on this server.<BR>"
err.clear
else
response.write "Success!! This component is correctly installed and available on this server.<BR>"
end if
response.write "</P>"
End Sub
%>