home *** CD-ROM | disk | FTP | other *** search
Visual Basic class definition | 1997-09-04 | 496 b | 21 lines |
- VERSION 1.0 CLASS
- BEGIN
- MultiUse = -1 'True
- END
- Attribute VB_Name = "VBIntermediate"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = True
- Attribute VB_PredeclaredId = False
- Attribute VB_Exposed = True
- Function helloHTML() As Long
-
- Dim ctxObject As ObjectContext
-
- ' Obtain Transaction Context
- Set ctxObject = GetObjectContext()
-
- ' Print out a message using ASP Response Object
- ctxObject("Response").Write ("Hello World")
-
- End Function
-