Define Class Server as Session OlePublic
	oleServer = ""
	method = ""
	parameters = ""
	result = ""

   Procedure run
	    Local loOle as Object, lcRetorno as String, lcComando as String
	   	loOle = CreateObject(This.oleServer)
	   	lcComando = "loOle." + This.method + "(" + This.parameters + ")"
	   	This.result = &lcComando
   EndProc

EndDefine

Estrutura da outra, não há código no init. Eliminei o código dos outros métodos por motivo de espaço.
Define Class SiteView as Session OlePublic
   Procedure getMenusFlutuantes
      Return lcRetorno
   EndProc
   
   Procedure getCabecalho
   Lparameters tlcTitulo as String
   Return lcRetorno
   EndProc
   
   Procedure getHome_html
   Return lcRetorno
   EndProc

EndDefine