<% '=============================================================== const cMAXSHOWN=10 msgbase=request("id") if msgbase="" then Response.Write "Invalid Message Thread" else dim isAdmin isAdmin=false if session("admin")<>"" then if session("admin")>=50 then isAdmin=true end if zSTART=request("st") set conn=server.CreateObject("adodb.Connection") set rs=server.CreateObject("adodb.recordset") conn.open DB_JAVADIR sql="select member_id as id from gamedir where game_id=(select idref from forum where forum_id="&msgbase&")" rs.Open sql,conn if not rs.EOF then if rs("id")=session("member_id") then isAdmin=true end if rs.Close if isAdmin=true then if Request.form("Delete")="Delete Check" then max = request.form("cat").count if max > 0 then conn.BeginTrans for i = 1 to max conn.execute "Delete from [forum] WHERE [forum_id] = " & request.form("cat")(i) next conn.CommitTrans end if end if end if '-------------------------------------------------------------------------------- '-------------------------------------------------------------------------------- sql="select * from vw_forum_view where msgstatus<=1 and msgbase="&msgbase&" order by datetime asc" rs.Open sql,conn forum_type=1 forum_name="No Title" if not rs.EOF then fid=rs("forum_topic_id") forid=cint(rs("forum_id")) forum_name=rs("forum_name") forum_type=cint(rs("forum_type")) subject=rs("subject") msglevel=cint(rs("msglevel"))+1 idref=rs("idref") post=rs("post") end if if zSTART="" then zSTART=(int((post-1)/cMAXSHOWN)*cMAXSHOWN)+1 end if wnum=writepages(cMAXSHOWN,post,zSTART,"mbthread.asp?id="&msgbase) %>

<% if wnum<>"" then %> <%end if count=0 number=1 col="a" if zSTART>1 then rs.Move (zSTART-1) number=zSTART end if while not rs.EOF and count" end if if col="" then col="a" else col="" end if %> <% count=count+1 number=number+1 wend rs.Close '-------------------------------------------------------------------------------- conn.close set rs=nothing set conn=nothing %>

Forum :   <%=forum_name%>   ( <%=post%> post )
-=[ <%=subject%> ]=-
<%=wnum%>
<%=number%> <% if isAdmin=true and ""&forid<>""&msgbase then Response.Write "" %>	<%=subject%> [reply] <%=body%> by <%=name%> on <%=datetime%>
<%=wnum%>
<% if isAdmin=true then Response.Write "   " if fid=3 and idref<>"" then Response.Write "   " end if %>

<% select case forum_type case 1: if session("admin")="" then createMessage "This is a Read Only Message Board" elseif session("admin")>=50 then createPostNew fid,forum_name,"","","mb.asp?t=1" else createMessage "This is a Read Only Message Board" end if case else: createPost fid,forum_name,msglevel,forid,idref,msgbase,"re: "&subject,"","mbthread.asp?id="&msgbase end select end if %>