<% function SetUserPermissionCookies(ByRef pobjCon, ByVal pintUserID) dim rstUser set rstUser = GetUser(pobjCon, pintUserID) if rstUser("anyBoardRights") then Response.Cookies("cLICENSE_ID")("anyBoardRights")="yes" else Response.Cookies("cLICENSE_ID")("anyBoardRights")="" end if if rstUser("anyGroupRights") then Response.Cookies("cLICENSE_ID")("anyGroupRights")="yes" else Response.Cookies("cLICENSE_ID")("anyGroupRights")="" end if if rstUser("anySysopRights") then Response.Cookies("cLICENSE_ID")("anySysopRights")="yes" else Response.Cookies("cLICENSE_ID")("anySysopRights")="" end if if rstUser("anyModeratorRights") then Response.Cookies("cLICENSE_ID")("anyModeratorRights")="yes" else Response.Cookies("cLICENSE_ID")("anyModeratorRights")="" end if if rstUser("anyReadRights") then Response.Cookies("cLICENSE_ID")("anyReadRights")="yes" else Response.Cookies("cLICENSE_ID")("anyReadRights")="" end if if rstUser("anyWriteRights") then Response.Cookies("cLICENSE_ID")("anyWriteRights")="yes" else Response.Cookies("cLICENSE_ID")("anyWriteRights")="" end if rstUser.close set rstUser = Nothing end function %>