Unbranded cost and cookies

0

sub sessAssign (sessName,sessValue)
 	session(dbName&sessName) = sessValue
 end sub
 
 sub sessRemove (sessName)
 	session.contents.remove(dbName&sessName)
 end sub
 
 sub sessSetTimeout (timeout)
 	session.timeout = timeout
 end sub
 
 function sessRead (sessName)
 	sessRead = session(dbName&sessName)
 end function
 
 function sessReadID
 	sessReadID = session.sessionID
 end function
 
 function sessReadTimeout
 	sessReadTimeout = session.timeout
 end function
 
 sub sessAbandon
 	call sessRemove("MemInfo")
 	Dim cookieKey
 	for each cookieKey in request.cookies
 		if instr(cookieKey,dbName)>0 then _
 			response.cookies(cookieKey).expires = date-1000
 	next
 end sub