<%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Expires= -1 %>
Default Script Language: VBScript
Default Script Language: VBScript
<%
dim strMsg ' AS STRING //Local variable.
strMsg = "Hello World"
//-----------------------------------------
sub displayLoop
//-----------------------------------------
dim intLoop ' AS NUMBER // Global variable.
intLoop = 5
dim x ' AS NUMBER
for x = 0 to intLoop
Response.Write( x & ". Hello World
" )
next
end sub
%>
Next, call VBScript's displayLoop() method from ASP.
<%
call displayLoop
%>
Note: intLoop is local so we would get an error if we referenced it here. strMsg is global and can be referenced: <%= strMsg %>.