%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
Intermiate VB Scriplet Sample
<%
Dim objPower
On Error Resume Next
Set objPower = Server.CreateObject("PowerVBS.Scriptlet")
If Err.number <> 0 Then
Response.Write "Failed to create PowerVBS.Scriptlet Object"
Response.End
End If
objPower.PowerDisplay
%>