Subroutines

Example 1 : Using Subroutine

<%@Language=VBScript%>
<%Option Explicit %>
<HTML>
<HEAD>
<TITLE>Using Subroutines</TITLE>
</HEAD>
<BODY>

<%
  Sub SubHeading
    Response.Write("<P Align=right>")
    Response.Write("Your Name<BR />")
    Response.Write("Your Site Name<Hr />")
  End Sub

  SubHeading     ' Call the SubHeading three times
  SubHeading
  SubHeading
%>

</BODY>
</HTML>

Output

Example 2 : A Simple Subroutine with Argument Passing

<%@Language=VBScript%>
<%Option Explicit %>
<HTML>
<HEAD>
<TITLE>Using Subroutines</TITLE>
</HEAD>
<BODY>

<%
 Dim inumTimes
 Sub SubHeading(inumTimes)
  Dim iCounter
  for iCounter=1 to inumTimes
   Response.write("<P align=right>")
   Response.write("Your Name: <BR>")
   Response.write("Your Web Site Name:<HR>")
  Next
 End Sub
 inumTimes=4
 SubHeading inumTimes
 Response.write("inumTimes is :" & inumTimes)
%>
</BODY>
</HTML>

Output

Subroutines

RELATED POSTS