HRESULT hr = NOERROR;
	IRequestDictionary* pDict = NULL;   // First step to get cookie collection
	IWriteCookie* pWriteCookie = NULL;  // Cookie collection
	
	VARIANT vtCookieDict;               // ptr to dispinterface IWriteCookie
	VARIANT vtCookieName;               // For the name of the cookie
	VARIANT vtCookieKey;                // For the cookie key
	
	BSTR bstrCookieName;                // For the cookie name
	BSTR bstrCookieKey;                 // For the key
	BSTR bstrCookieVal;                 // For the value

	// Initialize the temp vars
	bstrCookieName = SysAllocString(L"KBTESTCOOKIES");
	bstrCookieKey  = SysAllocString(L"CookieKey");
	bstrCookieVal  = SysAllocString(L"CookieValue");


	// Initialize the variants
	VariantInit(&vtCookieDict);
	VariantInit(&vtCookieName);
	VariantInit(&vtCookieKey);

	// 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 you'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 IWriteCookie
	// object.  
	hr = m_piResponse->get_Cookies(&pDict);

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

		if(SUCCEEDED(hr))
		{
			// Got the pointer to IWriteCookie now make it friendly.
			pWriteCookie = (IWriteCookie*)(vtCookieDict.pdispVal);

			// Fill the Response buffer with the cookie data and we're done
			hr = pWriteCookie->put_Item(vtCookieKey, bstrCookieVal);

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

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

						

<%
 Dim obj
 Set obj = Server.CreateObject("KBWriteCookies.ASPCookies")
 Call obj.SendTestCookies()
 Response.Write Request.Cookies("KBTESTCOOKIES")
%>
						

   CookieKey=CookieValue