<html>
<head>
<title>Client</title>
</head>
<body>
<H2><CENTER><font face="Arial">Client-Side
Script</font></CENTER></H2>
<SCRIPT LANGUAGE="
VBScript ">
Option Explicit
Dim x
Dim y
x = 10
y=20
Private Function Increment(IVar)
IVar = IVar + 1
Increment =
IVar
End Function
Private Function Decrement(IVar)
IVar = IVar - 1
Decrement =
IVar
End Function
Document.write "The initial
value of x is " & x & "<BR>"
Document.Write "Value
returned by Increment: " & increment(x) & "BR>"
Document.Write "Value
returned by Increment: " & increment(x) & "BR>"
Document.Write "Value returned by Decrement: " & decrement(x)
& "BR>"
Document.Write "The value of x is now " & x & "<BR>
Document.Write "The value of y is now " & y & "<BR>
</SCRIPT>
</body>
</html>