<script language="VB" runat="server">
public class Clock
public Second as integer
public Minute as integer
public Hour as integer
public ClockCounter as integer = 0
public sub SetTime(intSec as integer, intMin as integer, _
intHour as integer)
Second = intSec
Minute = intMin
Hour = intHour
end sub
end class
</script>
<HTML>
<BODY>
<%
dim objClock as new Clock()
objClock.SetTime(4,6,45)
Response.Write(objClock.ClockCounter)
%>
</BODY></HTML>
|