HRESULT hr = NOERROR;
	IRequestDictionary* pDict = NULL;   // First step to get cookie collection
	IReadCookie* pReadCookie = NULL;    // Cookie collection

	VARIANT vtCookieDict;               // ptr to dispinterface IReadCookie
	VARIANT vtCookieName;               // For the name of the cookie
	VARIANT vtCookieKey;                // For the cookie key<BR/>
	VARIANT vtCookieVal;		    // For the cookie value
	
	BSTR bstrCookieName;                // For the cookie name
	BSTR bstrCookieKey;                 // For the key
	
	// Initialize the temp vars
	bstrCookieName = SysAllocString(L"KBTESTCOOKIES");
	bstrCookieKey  = SysAllocString(L"CookieKey");

	// Set the name of the cookie and change the type
	// If you don't IRequestDictionary::get_Item() will
	// fail because the variant will come through as VT_EMPTY
	vtCookieName.bstrVal = bstrCookieName;
	vtCookieName.vt = VT_BSTR;

	// Set the key we'll use for the cookie's key/value pair.
	// Make sure to change the type or put_Item() will fail.
	vtCookieKey.bstrVal = bstrCookieKey;
	vtCookieKey.vt = VT_BSTR;

	
	// First you have to get the IRequestDictionary
	// then call get_Item() to get the actual IReadCookie
	// object. 
	hr = m_piRequest->get_Cookies(&pDict);

	if(SUCCEEDED(hr))
	{
		// Request access to the cookie named "KBTESTCOOKIES" specifically.
		// vtCookieDict will return with the ptr
		// to the IReadCookie object
		hr = pDict->get_Item(vtCookieName, &vtCookieDict);

		if(SUCCEEDED(hr))
		{
            // Got the pointer to IReadCookie now make it friendly.
			pReadCookie = (IReadCookie*)(vtCookieDict.pdispVal);
			hr = pReadCookie->get_Item(vtCookieKey, &vtCookieVal);
            
            // release what we're done with
            pReadCookie->Release();
			pDict->Release();

			if(SUCCEEDED(hr))
			{
                // Write the cookie value out to the page
				hr = m_piResponse->Write(vtCookieVal);

			}
		}
        else
        {
            pDict->Release();
        }
	
	}

    SysFreeString(bstrCookieName);
	SysFreeString(bstrCookieKey);
	SysFreeString(bstrCookieVal);
	
	return(hr);
						

<%
 Dim obj
 Set obj = Server.CreateObject("KBWriteCookies.ASPCookies")
 Call obj.ReadTestCookie()
%>