<% if isempty(session("userid")) or session("userid")="" then session("userid")=1 end if function HTMLDecode(fString) fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, "", CHR(13)) ' fString = Replace(fString, " ", CHR(10)) HTMLDecode = fString end function Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" If usermode=2 or usermode=3 then if session("username")="" or session("usergroup")="" then response.Redirect("login.asp") response.end end if end if strsql3="select count(userid) as userno from [user] where usergroup>'1'" set rs3=conn.execute(strsql3) userno=rs3("userno") rs3.close set rs3=nothing %>