<%@ Language="VBScript" CodePage="65001" %>
<% Option Explicit
Response.Buffer = True
Response.ContentType = "text/plain"
Response.Charset = "utf-8"
If Application("BhyluLab") <> "YES" Then
    Response.Status = "403 Forbidden"
    Response.Write "Use the separate Bhylu learning lab."
    Response.End
End If
Dim names, name, component, checked
names = Array("MSWC.AdRotator", "MSWC.BrowserType", "MSWC.NextLink", "MSWC.ContentRotator")
checked = 0
For Each name In names
    Set component = Nothing
    On Error Resume Next
    Set component = Server.CreateObject(name)
    Err.Clear
    On Error GoTo 0
    Set component = Nothing
    checked = checked + 1
Next
Response.Write "Dependency names checked: " & checked
%>