function cookievalue(pcook) lhowlong=len(pcook) lwhereis=instr(document.cookie,pcook) if lwhereis=0 then cookievalue=false else lstartpos=len(document.cookie)-lwhereis-lhowlong lstartstring=right(document.cookie,lstartpos) do lchar=left(lstartstring,1) if lchar=";" then cookievalue=lendstring exit do else lendstring=lendstring & lchar if len(lstartstring)=1 then cookievalue=lendstring exit do else lstartstring=right(lstartstring,len(lstartstring)-1) end if end if loop end if end function
