COM

// MSDN CODE:
//
HRESULT CreateComponentCategory(CATID catid, WCHAR* catDescription)
{
   ICatRegister* pcr = NULL ;
   HRESULT hr = S_OK ;

   hr = CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
      NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, (void**)&pcr);
   if (FAILED(hr))
      return hr;

   // Make sure the HKCR\Component Categories\{..catid...}
   // key is registered.
   CATEGORYINFO catinfo;
   catinfo.catid = catid;
   catinfo.lcid = 0x0409 ; // english

   // Make sure the provided description is not too long.
   // Only copy the first 127 characters if it is.
   int len = wcslen(catDescription);
   if (len>127)
      len = 127;
   wcsncpy(catinfo.szDescription, catDescription, len);
   // Make sure the description is null terminated.
   catinfo.szDescription[len] = '\0';

   hr = pcr->RegisterCategories(1, &catinfo);
   pcr->Release();

   return hr;
}

HRESULT RegisterCLSIDInCategory(REFCLSID clsid, CATID catid)
{
   // Register your component categories information.
   ICatRegister* pcr = NULL ;
   HRESULT hr = S_OK ;
   hr = CoCreateInstance(CLSID_StdComponentCategoriesMgr, 
      NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, (void**)&pcr);
   if (SUCCEEDED(hr))
   {
      // Register this category as being "implemented" by the class.
      CATID rgcatid[1] ;
      rgcatid[0] = catid;
      hr = pcr->RegisterClassImplCategories(clsid, 1, rgcatid);
   }

   if (pcr != NULL)
      pcr->Release();

   return hr;
}

// I made this function a static member of my control.
/*static*/ HRESULT CYourActiveXControl::RegisterSafetyCategories()
{
   HRESULT hr = S_OK;
   hr = CreateComponentCategory(CATID_SafeForInitializing, L"Controls safely initializable from persistent data!");
   if (FAILED(hr))
      return hr;

   hr = RegisterCLSIDInCategory(IID_YourActiveXControlHere, CATID_SafeForInitializing);
   if (FAILED(hr))
      return hr;

   // Mark the control as safe for scripting.

   hr = CreateComponentCategory(CATID_SafeForScripting, L"Controls safely scriptable!");
   if (FAILED(hr))
      return hr;

   hr = RegisterCLSIDInCategory(IID_YourActiveXControlHere, CATID_SafeForScripting);
   if (FAILED(hr))
      return hr;
   
   return hr;
}
//
// END MSDN CODE.

Stop being PC and accounting for everyone and his momma's timeframe. Just enjoy your - Rohit Sinha in the content-challenged thread

<br />
	<OBJECT ID=fevis CLASSID="clsid:383680F6-54B7-4970-BB12-A41E7AC0B94B"<br />
	HEIGHT=400 WIDTH=680 CODEBASE="http://localhost/controls/fevisactivex.cab#version=1,0,0,2"><br />
	</OBJECT><br />

<br />
<script language="vbscript"><br />
  fevis.OpenFromURL "http://localhost/gallery/connectingrod.fvs"<br />
</script><br />

<br />
Call fevis.OpenFromURL( "http://localhost/gallery/connectingrod.fvs" )<br />

Stop being PC and accounting for everyone and his momma's timeframe. Just enjoy your - Rohit Sinha in the content-challenged thread

[id(2), helpstring("method GetString2")]
HRESULT GetString2([in] BSTR inStr, [out] BSTR* outStr, [out] VARIANT* outStr2, [out,retval] BSTR* retStr);

STDMETHODIMP CTest::GetString2(/*[in]*/ BSTR inStr, /*[out]*/ BSTR* outStr, /*[out]*/ VARIANT* outStr2, /*[out,retval]*/ BSTR* retStr)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());

	*outStr = SysAllocString(inStr);
	*retStr = SysAllocString(inStr);
	outStr2->vt = VT_BSTR;
	outStr2->bstrVal = SysAllocString(inStr);
	return S_OK;
}

Set business = CreateObject("COMTest.Test")
result=business.GetString2("Something", cstr(out), out2)
Response.Write "result=" & result & " out=" & out & " out2=" & out2