Bueno, aver si te he solucionado el problema ;)
Codigo de tu dll (modificada)
Dependencias: Microsoft Active Server Pages Object Library
Nombre del proyecto: Test_IIS
Nombre de la clase: MyTestClass
Código:
Option Explicit
Private m_ScriptingContext As ScriptingContext
Private m_Application As Application
Private m_Request As Request
Private m_Response As Response
Private m_Server As Server
Private m_Session As Session
'Private m_Conexion As ADODB.Connection 'Nota que los he comentado
'Private m_Recordset As ADODB.Recordset 'por perreria a buscar el control :-)
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set m_ScriptingContext = PassedScriptingContext
Set m_Application = m_ScriptingContext.Application
Set m_Request = m_ScriptingContext.Request
Set m_Response = m_ScriptingContext.Response
Set m_Server = m_ScriptingContext.Server
Set m_Session = m_ScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set m_ScriptingContext = Nothing
Set m_Application = Nothing
Set m_Request = Nothing
Set m_Response = Nothing
Set m_Server = Nothing
Set m_Session = Nothing
End Sub
Public Function PrintMsg(ByVal sMensaje As String) As Long
m_Response.Write sMensaje
End Function
Y ahora el codigo de la pagina asp:
Código:
<html>
<body>
<%
Dim test
Set test = Server.CreateObject("Test_IIS.MyTestClass")
Call test.PrintMsg("hola Mundo!!!")
Set test = Nothing
%>
</body>
</html>
Si no te funciona dilo que te dire otra forma mas altruista
J.M.A