Option Explicit 

function getcookieEx(pName,pDefault)
	getcookie = ""
	dim	MYCOOKIE,tmpcookie,tmpEq	
	MYCOOKIE = pName & "="

	if instr(document.cookie ,MYCOOKIE) > 0 then

		tmpCookie = split(document.cookie,";")
		dim i 
		for i = lbound(tmpcookie) to ubound(tmpcookie) 
			if instr(tmpcookie(I) ,MYCOOKIE) > 0 then
				
				tmpEq = instr(tmpcookie(I) ,"=")
				
				getcookie = trim(mid(tmpcookie(I),tmpEq + 1))
				exit function
			end if
		next
	end if

	getcookie =pDefault
	
end function

function getcookie(pName)
	getcookie = ""
	dim	MYCOOKIE,tmpcookie,tmpEq	
	MYCOOKIE = pName & "="

	if instr(document.cookie ,MYCOOKIE) > 0 then

		tmpCookie = split(document.cookie,";")
		'msgbox "lb " & lbound(tmpcookie)
		dim i 
		for i = lbound(tmpcookie) to ubound(tmpcookie) 
			if instr(tmpcookie(I) ,MYCOOKIE) > 0 then
				
				tmpEq = instr(tmpcookie(I) ,"=")
				
				getcookie = trim(mid(tmpcookie(I),tmpEq + 1))
				exit for
			end if
		next
	end if
end function
sub setevercookie(pStr)

	document.cookie = pstr & ";Expires=Wed, 01 Jan 2020 18:56:35 GMT"
	
end sub