[Resolvido] cookies determina se o navegador esta OK

[xanburzum 169]

A função Cookieok determina se o navegador do cliente é capaz de usar

cookies. Retorna True se o navegador suporta cookies ou False se não.

 

sintaxe:

 

boolean = Cookieok()

 

exemplo :

 

<%
dim a
a = Cookieok
if a then
	 ' browser supports cookies
else
	 ' browser doesn't support cookies
end if
%>

code:

 

<%
Private Function Cookieok()
	dim bc
	Set bc = Server.CreateObject("MSWC.BrowserType")
	Cookieok = bc.cookies
	if Lcase( Cookieok ) = "unknown" then
		Response.Cookies("tst") = "IHAVECOOKIES"
		If UCASE( Request.Cookies("tst") ) = _
		    "IHAVECOOKIES" then
			Cookieok = True
		Else
			Cookieok = False
		End If
	end if
	Set bc = Nothing
End Function
%>