🚀 go-pugleaf

Hi !,
    I'm trying to build a Active Sever Object with Borland 6 C++, I just
created a Method to write a text into my ASP using "response->write" of my
IResponse interface but it doesn't work... ?!?!
I olso tryed to use response->redirect and It works!!!

Is There someone who can help me??

this is the code:

THKS

H
----------------------------------------------------------------------------
------
     IScriptingContext *m_scriptContext;
     IResponse *rs;

CPP
----------------------------------------------------------------------------
------

STDMETHODIMP TWEBImpl::OnStartPage(LPUNKNOWN AScriptingContext)
{
  HRESULT hr = E_FAIL;
  try
  {
    IObjectContext* ObjectContext;
    m_scriptContext = (IScriptingContext*)AScriptingContext;
    m_scriptContext->get_Response((IResponse**)&rs);

    hr = TASPObject::OnStartPage(AScriptingContext);
  }
  return hr;
}

STDMETHODIMP TWEBImpl::Method1()
{
     tagVARIANT rr;
     rr.bstrVal = (WideString)"Prova";

     rs->Write(rr);

     return S_OK;
}

ASP
----------------------------------------------------------------------------
------
<%
     set xx = Server.CreateObject("OJB.WEB")
     xx.Method1
     set xx = nothing
 %>