home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / Components_VBScript.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  699 b   |  36 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <%  Option Explicit        %>
  3.  
  4.  
  5. <HTML>
  6.     <HEAD>
  7.         <TITLE>Using Components</TITLE>
  8.     </HEAD>
  9.  
  10.     <BODY bgcolor="white" topmargin="10" leftmargin="10">
  11.  
  12.         
  13.         <!-- Display Header -->
  14.  
  15.         <font size="4" face="Arial, Helvetica">
  16.         <b>Using Components with ASP</b></font><br>
  17.       
  18.         <hr size="1" color="#000000">
  19.  
  20.         This script uses the Tools component that
  21.         comes with IIS to generate a random number.
  22.         <br>
  23.         <br>
  24.  
  25.         <% 
  26.             Dim example
  27.         
  28.             ' Instantiate Component on the Server
  29.             Set example = Server.CreateObject("MSWC.Tools")
  30.         %>
  31.         
  32.         Random Number = <% = example.Random() %>
  33.  
  34.     </BODY>
  35. </HTML>
  36.