Private m_Application As ASPTypeLibrary.Application
Private m_Request As ASPTypeLibrary.Request
Private m_Response As ASPTypeLibrary.Response
Private m_Session As ASPTypeLibrary.Session
Public Sub OnStartPage(objScriptingContext As ASPTypeLibrary.ScriptingContext)
Set m_Application = objScriptingContext.Application
Set m_Request = objScriptingContext.Request
Set m_Response = objScriptingContext.Response
Set m_Session = objScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set m_Application = Nothing
Set m_Request = Nothing
Set m_Response = Nothing
Set m_Session = Nothing
End Sub
Public Sub WriteSomething()
m_Response.Write "<b>Something</b>"
End Sub