<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
Document Title
<%
Dim objSvrEnum
On Error Resume Next
Set objSvrEnum=Server.CreateObject("SvrVarEnumVBS.Scriptlet")
If Err.number <> 0 Then
Response.Write "CreateObject() failed
"
Response.Write "Did you register the scriptlet component in MTS?"
Response.End
End If
objSvrEnum.DisplaySvrVariables
If Err.number <>0 Then
Response.Write "Error description: " & Err.description
End If
%>