Usar ExecuteGlobal en una DLL

[Srenau]

GRACIAS POR EL INTERES,

OS CUENTO:

Por la razon X,(No os quiero liar con las razones de diseño) tengo el codigo en disitntos archivos. Se trata de una aplicación en ASP con DLLs. La cuestion es que en estos archivos tenemos codigo ASP y necesito ejecutarlos desde otras páginas ASP.

La función viene a ser esta:

===============
Sub Mostrar_Archivo( ByVal archivo, ByVal modo )

Dim oFSO
Dim sBean
Dim sPath
Dim iPos

set fso = createObject("scripting.filesystemobject")

'sPath = Request.ServerVariables("PATH_TRANSLATED")
sPath =request.serverVariables("APPL_PHYSICAL_PATH")
'Response.write sPath
iPos = InStrRev(sPath, "\")
If (iPos > 0) Then
sPath = Left(sPath, iPos)
End If
'Response.Write "Fso.FileExists(sPath & ai_sBeanFile)=" & sPath & archivo & "<br>"
'Response.end
If (fso.FileExists(sPath & archivo)) Then
sBean = Fso.OpenTextFile(sPath & archivo, 1).ReadAll()
select case modo
case "VBS"
ExecuteGlobal sBean
case "HTM"
Response.Write sBean
end select
End If
End sub

================

Os podeis preguntar, pera que demonios te puede servir. Pues es similar a los includes pero los puedo modificar dinamicamente.
Como veis en esta funcion empleo HTML o ASP.

Bien en ASP todo perfecto, pero ahora quiero crear una DLL con esta función y cual es mi "sorpresa" la función ExecuteGlobal necesita alguna referencia la cual desconozco, si no no funciona.

Despues de esta miniclase del Executeglobal, os toca ayudarme adescubrir la pieza que me falta para hacer funcionar la DLL.

Si lo resulevo antes os prometo poner la solución.

Gracias de nuevo.