microsofts active server pages object library

[courchjo]

Does anyone know where to get code samples or information about using "microsofts active server pages object library" in a Visual Basic 6.0 application.
I want to use the response.redirect within a DLL.
TIA

[JoshT]

This goes in a class module. Basically you create an instance of this class in ASP via Server.CreateObject and call its functions. You can get at the ASP Objects in the class's functions by the passed in references (MyResponse.Redirect).

Option Explicit
 
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session
 
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
    'get references to the ASP built in objects
    Set MyScriptingContext = PassedScriptingContext
    Set MyApplication = MyScriptingContext.Application
    Set MyRequest = MyScriptingContext.Request
    Set MyResponse = MyScriptingContext.Response
    Set MyServer = MyScriptingContext.Server
    Set MySession = MyScriptingContext.Session
End Sub
 
Public Sub OnEndPage()
    'release the references
    Set MyScriptingContext = Nothing
    Set MyApplication = Nothing
    Set MyRequest = Nothing
    Set MyResponse = Nothing
    Set MyServer = Nothing
    Set MySession = Nothing
End Sub