<%
if Request.Cookies("forumid")<>empty then
sql="select * from bbsconfig where id="&int(Request.Cookies("forumid"))&""
Set Rs=Conn.Execute(sql)
if Rs.eof then Response.Cookies("forumid")=""
if ""&Rs("password")&""="" then:password=0:else:password=1:end if
%>
<%
rs.close
else
ForumList(0)
end if
%>