function cookievalue(pcook)

lhowlong=len(pcook)

lwhereis=instr(documents.cookie,pcook)

if lwhereis=0 then

cookievalue=false

else

lstartpos=len(documents.cookie)-lwhereis-lhowlong

lstartstring=right(documents.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