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
