home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_07.cab / VBIntermediate.cls < prev    next >
Encoding:
Visual Basic class definition  |  1997-09-04  |  496 b   |  21 lines

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "VBIntermediate"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Function helloHTML() As Long
  11.  
  12.     Dim ctxObject  As ObjectContext
  13.     
  14.     ' Obtain Transaction Context
  15.     Set ctxObject = GetObjectContext()
  16.  
  17.     ' Print out a message using ASP Response Object
  18.     ctxObject("Response").Write ("Hello World")
  19.  
  20. End Function
  21.