<%@  Language=VBScript  %>
<%


Set  forum1  =  Server.CreateObject  ("eBizTSWebModules.Forum")
forum1.log  =  0
fid  =  Request("fid") '  Function  ID
gid  =  Request("gid") '  Group  ID
msgid  =  Request("mid") '  Msg  ID
content  =  Request("content")
action  =  Request("action")
nick  =  Request("nick")
if  action  <>  ""  Then
      forum1.ReturnURL  =  "forumx.asp?fid=msglist&gid="  &  gid
      forum1.submit  action,  gid,  msgid,  nick,  subject,  content  
else
      Select  Case  fid
            Case  "msglist"
                  forum1.msglist  gid
            Case  "show"
                  forum1.show  msgid
            Case  "post"
                  forum1.post    gid
            Case  "reply"
                  forum1.reply
            Case  "addgrp"
                  forum1.addgrp  Request("GroupName")
                  Response.Redirect  "forumx.asp"
            Case  "delgrp"      
                  forum1.delgrp  gid
                  Response.Redirect  "forumx.asp"
            Case  ""
                  set  groups  =  forum1.list      
%>
  <H3>Forum  Grpup  List</H3>
                  <Table  border=1  width=100%>
                  <tr><th>No.</th><th>List  Messages  in  Group</th><th>Post  New  Message</th><th>Delete  Group</th></tr>
<%   i  =  1
                  for  each  group  in  groups  %>
<tr>
<td><%=i%></td>
<td><a  href=forumx.asp?fid=msglist&gid=<%=Group%>><b><%=UCase(group)%></b></td>
<td><a  href=forumx.asp?fid=post&gid=<%=Group%>>Post  Message</td>
<td><a  href=forumx.asp?fid=delgrp&gid=<%=Group%>>Delete  Group</td>
</tr>                  
<%              i  =  i  +  1
                  next  %>
<tr><td  colspan=4>
<form  method=post>
Add  New  Message  Group.&nbsp;Name:&nbsp;<input  type=text  name=GroupName>&nbsp;
<input  type=hidden  name=fid  value=addgrp>
<input  type=submit  name=submit>
</td></tr>
                </Table>
                </form>  
<%          
      End  Select
end  if
%>