function ShowPrivateKey()
		
		Dim szHTML
    	
    	On Error Resume Next
    	
    	szHTML = "<p><table id=tblPrivKey cellSpacing=10 cellPadding=0 width=""800"" border=0 ms_1d_layout=""TRUE"">"
    	
    	szHTML = szHTML & "<tr><td><font color=#993300 size=2 face='Arial'>Private Key Properties:</font></td><td><font color=#993300 size=2 face='Arial'>"
    			
		if Certificate.PrivateKey.KeySpec = CAPICOM_KEY_SPEC_KEYEXCHANGE then
			szHTML = szHTML & " Exchange"
		else
    		szHTML = szHTML & " Signature"
    	end if
    	
		if Certificate.PrivateKey.IsAccessible = true then
			szHTML = szHTML & ", Accessible"
		else
			szHTML = szHTML & ", Not Accessible"
		end if
		
		if Certificate.PrivateKey.IsExportable = true then
			szHTML = szHTML & ", Exportable"
		else
			szHTML = szHTML & ", Not Exportable"
		end if
		
		if Certificate.PrivateKey.IsHardwareDevice = true then
			szHTML = szHTML & ", Stored on H/W Device"
		end if
		
		if Certificate.PrivateKey.IsMachineKeyset = true then
			szHTML = szHTML & ", Machine"
		end if

        if Certificate.PrivateKey.IsProtected = true then
			szHTML = szHTML & ", Protected"
		end if

        if Certificate.PrivateKey.IsRemovable = true then
			szHTML = szHTML & ", Removable"
		end if
		
		szHTML = szHTML & "</font></td></tr>"    	
    	szHTML = szHTML & "<tr><td><font color=#993300 size=2 face='Arial'>Container Name:</font></td><td><font color=#993300 size=2 face='Arial'>" & Certificate.PrivateKey.ContainerName & "</font></td>"

    	if Certificate.PrivateKey.ContainerName <> Certificate.PrivateKey.UniqueContainerName then
			szHTML = szHTML & "<tr valign=top><td><font color=#993300 size=2 face='Arial'>Unique Container Name:</font></td><td><font color=#993300 size=2 face='Arial'>" & Certificate.PrivateKey.UniqueContainerName& "</font></td></tr>"
		end if
		
		szHTML = szHTML & "</table>"
		datadiv.innerHTML=szHTML & "<p>"
	
     end function