25 lines
589 B
Plaintext
25 lines
589 B
Plaintext
<HTML>
|
|
|
|
<HEAD>
|
|
<TITLE>Testing VB5Pwr</TITLE>
|
|
</HEAD>
|
|
|
|
<H1>Testing VB5Pwr</H1>
|
|
|
|
<% Set myobj = Server.CreateObject("IISSample.VB5Power") %>
|
|
myProperty Value = <%= myobj.myProperty %><BR>
|
|
|
|
<% newvalue = "Power" %>
|
|
Set myProperty to <%= newvalue %>
|
|
<% myobj.myProperty = newvalue %><BR>
|
|
myProperty Value is now: <%= myobj.myProperty %><BR>
|
|
|
|
<% mystring = "My String" %>
|
|
Call myMethod with <%= mystring %>: <%= myobj.myMethod(mystring) %><BR>
|
|
|
|
MyPowerMethod returns: <% myobj.myPowerMethod() %><BR>
|
|
|
|
MyPowerProperty returns: <%= myobj.myPowerProperty %><br>
|
|
|
|
</HTML>
|