Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 Private Groups
 New Topic
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 4

MaGraham
Senior Member

USA
1297 Posts

Posted - 21 January 2013 :  13:26:45  Show Profile  Reply with Quote

How would I set up a private group on my forum? Is there a mod for this?


"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 21 January 2013 :  15:20:32  Show Profile
You can use the user group mod. Check out the other area, as well (they should be merged).
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 21 February 2013 :  12:55:53  Show Profile

quote:
Originally posted by Carefree

You can use the user group mod. Check out the other area, as well (they should be merged).

Could you explain what you mean with this, Carefree?




"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 21 February 2013 :  17:18:31  Show Profile
There are two mod pages regarding the user groups mod. There are updates to the Prisoner sub-mod on both. Some sub-mods are only located on one page, others are only located on the other. So you may find features of interest in either place.
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 22 February 2013 :  01:52:05  Show Profile

I probably just need a starting point. Do I start with the User Groups or the USERGROUP?



"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 22 February 2013 :  07:03:26  Show Profile
Start with Anon's release (User Groups), the "UserGroup" original is the beta he referred to.
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 09 March 2013 :  00:34:59  Show Profile

One of the things I was hoping to do with the User Groups was to create groups that members could join (at their request). Is this not possible with the User Groups Mod?

I've been a member of websites in which I could view a list of the groups they had and there was a link beside each group to click on if I wanted to join. Is this not something that this mod offers?



"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 09 March 2013 :  10:07:38  Show Profile
That could be added without a lot of trouble, but it will defeat the security and some of the other features of the current design. For example, if you simply read the groups from a database field and created links to join them, an adolescent could join the "adults" group ... or a normal member could join the "staff" group. The way around it would be to add an additional field to the group definition table, specifying whether auto-joining would be allowed.

Edited by - Carefree on 09 March 2013 11:12:43
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 09 March 2013 :  11:53:15  Show Profile
quote:
Originally posted by Carefree

That could be added without a lot of trouble, but it will defeat the security and some of the other features of the current design. For example, if you simply read the groups from a database field and created links to join them, an adolescent could join the "adults" group ... or a normal member could join the "staff" group. The way around it would be to add an additional field to the group definition table, specifying whether auto-joining would be allowed.

That would work for me!

"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 09 March 2013 :  16:07:52  Show Profile
OK, here you go. This sub-mod enables members to join/quit groups which the forum admin specifies as allowed. It has been added to SnitzBitz.


Installation:

1. Copy all three files to forum directory, replace the "admin_usergroups.asp" default file with this one.
2. Run "USERGROUP_ALLOWJOIN v1.0" from admin console Mod Setup.
3. Create a link wherever you would like for members to access the "groupjoin.asp" file. If you wish to add it to the forum
heading menu, here's how:

"inc_header.asp"


Look for the following lines (appx 502-503):

			"          |" & vbNewline & _
			"          <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>"

Immediately ABOVE those lines, insert the following:

			"          |" & vbNewline & _
			"          <a href=""groupjoin.asp""" & dWStatus("Join/Quit Groups...") & " tabindex=""-1""><acronym title=""Join/Quit Groups..."">User Groups</acronym></a>" & vbNewline & _



"dbs_usergroup_allow.asp"


USERGROUP_ALLOWJOIN v1.0

[ALTER]
USERGROUPS
ADD#ALLOWJOIN#INT#NULL#0
[END]


"groupjoin.asp"


<%
'###############################################################################
'##
'##	              Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##	          Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.  The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; If not, write to:
'##
'##	          Free Software Foundation, Inc.
'##	          59 Temple Place, Suite 330
'##	          Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##	            http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##	             manderson@snitz.com
'##
'###############################################################################
'##
'##	"groupjoin.asp"  For User Groups Mod - Allowed Joining
'##
'###############################################################################
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<%
Response.Write	"      <table border=""0"" width=""100%"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""groupjoin.asp"">User Groups</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & "Auto Join<br /></font></td>" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine
If len(Request.QueryString("IG"))>0 Then
	If isNumeric(Request.QueryString("IG") Then
		intGroup=cInt(Request.QueryString("IG"))
		strSql="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
		Set rsGroup=my_Conn.Execute(strSql)
		If not rsGroup.EOF Then
			rsGroup.Close
			Set rsGroup=Nothing
			strSql="DELETE FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
			If strDBType="access" Then
				strSql="DELETE * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
			End If
			my_Conn.Execute(strSql)
			Response.Write	"<p align=""center"">Quit Group</p>" & vbNewLine
		Else
			Set rsGroup=Nothing
			my_Conn.Execute("INSERT INTO " & strTablePrefix & "USERGROUP_USERS (USERGROUP_ID, MEMBER_ID, MEMBER_TYPE) VALUES (" & intGroup & ", " & MEMBERID & ", 1)")
			Response.Write	"<p align=""center"">Joined Group</p>" & vbNewLine
		End If
		WriteFooter
		Response.Write	"<meta http-equiv=""Refresh"" content=""4; URL=groupjoin.asp"" />" & vbNewLine
		Response.End
	End If
End If
Response.Write	"<table align=""center"" width=""95%"" cellpadding=""0"" cellspacing=""0"" bgColor=""transparent"">" & vbNewLine & _
	"	<tr valign=""middle"">" & vbNewLine & _
	"		<td align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """>" & vbNewLine & _
	"			<table align=""center"" width=""100%"" cellpadding=""4"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
	"				<tr valign=""middle"" height=""60px;"" bgColor=""" & strCategoryCellColor & """>" & vbNewLine & _
	"					<td align=""center"" colspan=""3"" width=""100%"">" & vbNewLine & _
	"						<font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strHeaderFontSize+2 & """><b>Usergroup Joiner</b>" & vbNewLine & _
	"						</font>" & vbNewLine & _
	"					</td>" & vbNewLine & _
	"				</tr>" & vbNewLine & _
	"				<tr valign=""middle"" bgColor=""" & strHeadCellColor & """>" & vbNewLine & _
	"					<td align=""center"" width=""40%"">" & vbNewLine & _
	"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Usergroup Name</b>" & vbNewLine & _
	"						</font>" & vbNewLine & _
	"					</td>" & vbNewLine & _
	"					<td align=""center"" width=""55%"">" & vbNewLine & _
	"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Description</b>" & vbNewLine & _
	"						</font>" & vbNewLine & _
	"					</td>" & vbNewLine & _
	"					<td align=""center"" width=""5%"">" & vbNewLine & _
	"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Member</b>" & vbNewLine & _
	"						</font>" & vbNewLine & _
	"					</td>" & vbNewLine & _
	"				</tr>" & vbNewLine
strSql="SELECT * FROM " & strTablePrefix & "USERGROUPS WHERE ALLOWJOIN=1 AND MEM_HIDE=0"
Set rsToggle=my_Conn.Execute(strSql)
If not rsToggle.EOF Then
	intI=0
	rsToggle.MoveFirst
	Do while not rsToggle.EOF
		If intI=0 Then CColor=strForumFirstCellColor Else CColor=strAltForumCellColor
		intGroup=rsToggle("USERGROUP_ID")
		strGroup=rsToggle("USERGROUP_NAME")
		strDesc=rsToggle("USERGROUP_DESC")
		strSql1="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
		Set rsJoin=my_Conn.Execute(strSql1)
		If not rsJoin.EOF Then
			intJoin=1
			rsJoin.Close
		Else
			intJoin=0
		End If
		Set rsJoin=Nothing
		Response.Write	"				<tr valign=""middle"" bgColor=""" & CColor & """>" & vbNewLine & _
			"					<td align=""left"" size=""40%"">" & vbNewLine & _
			"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & strGroup & vbNewLine & _
			"						</font>" & vbNewLine & _
			"					</td>" & vbNewLine & _
			"					<td align=""left"" size=""55%"">" & vbNewLine & _
			"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & strDesc & vbNewLine & _
			"						</font>" & vbNewLine & _
			"					</td>" & vbNewLine & _
			"					<td align=""left"" size=""5%"">" & vbNewLine
		If intJoin=0 Then
			Response.Write	"						<a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Join Group") & "><acronym style=""border:none; text-decoration:none"" title=""Join Group""><img src="""& strImageURL &"icon_friends.gif"" style=""border:none"" alt=""Join Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
		Else
			Response.Write	"						<a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Quit Group") & "><acronym style=""border:none; text-decoration:none"" title=""Quit Group""><img src="""& strImageURL &"icon_unsubscribe.gif"" style=""border:none"" alt=""Quit Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
		End If
		Response.Write	"					</td>" & vbNewLine & _
			"				</tr>" & vbNewLine
		intI=1-intI
		rsToggle.MoveNext
	Loop
	rsToggle.Close
Else
	Response.Write	"				<tr valign=""middle"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"					<td align=""center"" colspan=""3"" width=""100%"">" & vbNewLine & _
		"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>No available groups found." & vbNewLine & _
		"						</font>" & vbNewLine & _
		"					</td>" & vbNewLine & _
		"				</tr>" & vbNewLine
End If
Set rsToggle=Nothing
Response.Write	"			</table>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table>" & vbNewLine
WriteFooter
%>


"admin_usergroups.asp"


<%
'###############################################################################
'##
'##			Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-06 Michael Anderson, Pierre Gorissen,
'##			Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.	The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; if not, write to:
'##
'##			Free Software Foundation, Inc.
'##			59 Temple Place, Suite 330
'##			Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##			http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##			manderson@snitz.com
'##
'###############################################################################
'##
'## "admin_usergroups.asp"  For User Groups Mod - Adds Allowed-Joining
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_admin.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	strQS = request.querystring
	Response.Redirect "admin_login.asp?target=" & Server.URLEncode(scriptname(ubound(scriptname)) & "?" & strQS)
end if
Response.Write	"      <table border=""0"" width=""100%"">" & vbNewLine & _
	"        <tr>" & vbNewLine & _
	"          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
	"          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
	"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
	"          " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " <a href=""admin_usergroups.asp"">UserGroups Manager</a><br /></font></td>" & vbNewLine & _
	"        </tr>" & vbNewLine & _
	"      </table>" & vbNewLine
UserGroupActionMode = Request.Querystring("mode")
if UserGroupActionMode = "config" then
	for each key in Request.Form 
		if left(key,3) = "str" then
			strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLstring"))
		end if
	next
	Application(strCookieURL & "ConfigLoaded") = ""
	Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Configuration Posted!</font></p>" & vbNewLine & _
		"      <meta http-equiv=""Refresh"" content=""2; URL=admin_usergroups.asp"">" & vbNewLine & _
		"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Congratulations!</font></p>" & vbNewLine & _
		"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_usergroups.asp"">Back To UserGroups Manager</font></a></p>" & vbNewLine
	WriteFooter
	Response.End
end if
If UserGroupActionMode = "Delete" Or UserGroupActionMode = "Modify" Then
	GroupID = Request.Querystring("ID")
End If
If UserGroupActionMode = "Modify" Then
	strSql = "SELECT * FROM " & strTablePrefix & "USERGROUPS WHERE USERGROUP_ID = " & GroupID
	set rsGroup = Server.CreateObject("ADODB.Recordset")
'	rsGroup.cachesize=20	'fix for mysql problem
	rsGroup.open strSql, my_Conn, 3
	GroupName = rsGroup("USERGROUP_NAME")
	GroupDesc = rsGroup("USERGROUP_DESC")
	MemHideGroup = rsGroup("MEM_HIDE")
	ModHideGroup = rsGroup("MOD_HIDE")
	MemAllowJoin = rsGroup("ALLOWJOIN")
	GroupAutoJoin = rsGroup("AUTOJOIN")
	rsGroup.Close
	set rsGroup = Nothing
End If
Select Case UserGroupActionMode
	Case "Delete"
		strSql = "DELETE FROM " & strTablePrefix & "ALLOWED_USERGROUPS "
		strSql = strSql & "WHERE USERGROUP_ID = " & GroupID
		my_Conn.Execute strSql
		strSql = "DELETE FROM " & strTablePrefix & "USERGROUP_USERS "
		strSql = strSql & "WHERE USERGROUP_ID = " & GroupID & " AND MEMBER_TYPE = 2"
		my_Conn.Execute strSql
		strSql = "DELETE FROM " & strTablePrefix & "USERGROUP_USERS "
		strSql = strSql & "WHERE USERGROUP_ID = " & GroupID
		strSql = "DELETE FROM " & strTablePrefix & "USERGROUPS "
		strSql = strSql & "WHERE USERGROUP_ID = " & GroupID
		my_Conn.Execute strSql
		Response.Redirect("admin_usergroups.asp")
	Case "Add", "Modify"
		strAddOrModify = "Add Group"
		strConfirm = Request.Form("submit")
		If strConfirm = "Add Group" Then
			intMAJ = 0
			intAJ = 0
			intModH = 0
			intMemH = 0
			if Request.Form("MemAllowJoin") = "on" then intMAJ = 1
			if Request.Form("GroupAutoJoin") = "on" then intAJ = 1
			if Request.Form("MemHideGroup") = "on" then intMemH = 1
			if Request.Form("ModHideGroup") = "on" then intModH = 1
			my_Conn.execute("INSERT INTO " & strTablePrefix & "USERGROUPS (USERGROUP_NAME,USERGROUP_DESC,ALLOWJOIN,AUTOJOIN,MEM_HIDE,MOD_HIDE) " & _
				"VALUES ('" & chkString(Request.Form("GroupName"),"SQLString") & "', '" & chkString(Request.Form("GroupDesc"),"SQLString") & "', " & intMAJ & ", " & intAJ & ", " & intMemH & ", " & intModH & ")")
			set rsGroup = Server.CreateObject("ADODB.Recordset")
			set rsGroup = my_conn.execute("SELECT TOP 1 USERGROUP_ID FROM " & strTablePrefix & "USERGROUPS ORDER BY USERGROUP_ID")
			Groupid = rsGroup("USERGROUP_ID")
			rsGroup.Close
			set rsGroup = nothing
			Response.Redirect("admin_usergroups.asp?mode=Modify&ID=" & GroupID)
		End If
		If strConfirm = "Modify Group" Then
			intMAJ = 0
			intAJ = 0
			intModH = 0
			intMemH = 0
			if Request.Form("MemAllowJoin") = "on" then intMAJ = 1
			if Request.Form("GroupAutoJoin") = "on" then intAJ = 1
			if Request.Form("MemHideGroup") = "on" then intMemH = 1
			if Request.Form("ModHideGroup") = "on" then intModH = 1
			strSql = "UPDATE " & strTablePrefix & "USERGROUPS SET USERGROUP_NAME = '" &_
				ChkString(Request.Form("GroupName"),"SQLString") & "', USERGROUP_DESC = '" &_
				ChkString(Request.Form("GroupDesc"),"SQLString") & "', ALLOWJOIN=" & intMAJ & ", AUTOJOIN = " &_
				intAJ & ", MEM_HIDE = " & intMemH & ", MOD_HIDE = " & intModH &_
				" WHERE USERGROUP_ID = " & cLng(GroupID)
			my_Conn.execute(strSql)
			Users  = Split(Request.Form("AuthUsers"),",")
			my_Conn.execute("DELETE FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID = " & cLng(GroupID))
			for count = Lbound(Users) to Ubound(Users)
				if Left(Trim(Users(count)),1) = "G" then
	  				intMemberType = 2
	  			else
	  				intMemberType = 1
	  			end if
	  			intUser = Trim(Users(count))
	  			intLen = Len(intUser)
	  			intUser = Mid(intUser, 2, intLen-1)
				strSql = "INSERT INTO " & strTablePrefix & "USERGROUP_USERS ("
				strSql = strSql & "USERGROUP_ID, MEMBER_ID, MEMBER_TYPE) VALUES ("
				strSql = strSql & GroupID & ", " & intUser & ", " & intMemberType & ")"
				my_Conn.execute(strSql)
			next
			my_Conn.execute("DELETE FROM " & strTablePrefix & "ALLOWED_USERGROUPS WHERE USERGROUP_ID = " & GroupID)
			for each key in Request.Form
				if Left(key,5) = "Perms" and Request.Form(key) <> "notset" then
					strFid = Trim(Mid(key,6))
					strSql = "INSERT INTO " & strTablePrefix & "ALLOWED_USERGROUPS ("
					strSql = strSql & "FORUM_ID, USERGROUP_ID, PERMS) VALUES ("
					strSql = strSql & strFid & ", " & GroupID & ", " & Request.Form(key) & ")"
					my_Conn.execute(strSql)
				end if
			next
			Response.Redirect("admin_usergroups.asp")
		End If
		Response.Write	"	<table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
			"		<tr>" & vbNewLine & _
			"			<td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
			"				<table border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
			"					<form name=""GroupModify"" method=""POST"" action=""admin_usergroups.asp?mode=" & UserGroupActionMode & "&ID=" & GroupID & """>" & vbNewLine & _
			"					<tr>" & vbNewLine & _
			"						<td bgColor=""" & strPopUpTableColor & """ noWrap align=""right"">" & vbNewLine & _
			"						  	<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Group Name:</b></font></td>" & vbNewLine & _
			"						<td bgColor=""" & strPopUpTableColor & """ noWrap align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"							<input style=""width:100%;"" type=""textbox"" name=""GroupName"" size=""50"" value=""" & ChkString(GroupName,"edit") & """></font></td>" & vbNewLine & _
			"					</tr>" & vbNewLine & _
			"					<tr>" & vbNewLine & _
			"						<td bgColor=""" & strPopUpTableColor & """ noWrap align=""right"" valign=""top"">" & vbNewLine & _
			"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Description:</b></font></td>" & vbNewLine & _
			"						<td bgColor=""" & strPopUpTableColor & """ noWrap align=""left""><font size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"							<textarea style=""width:100%;font-family:" & strDefaultFontFace & ";"" name=""GroupDesc"" cols=""50"" rows=""3"">" & ChkString(GroupDesc,"edit") & "</textarea></font></td>" & vbNewLine & _
			"					</tr>" & vbNewLine &_
			"					<tr>" & vbNewLine & _
			"						<td bgColor=""" & strPopUpTableColor & """ noWrap align=""right"" valign=""top"">" & vbNewLine & _
			"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Group Options:</b></font></td>" & vbNewLine & _
			"						<td bgColor=""" & strPopUpTableColor & """ noWrap align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
				"							<input type=""checkbox"" name=""MemAllowJoin"" value=""on""" & chkCheckBox(MemAllowJoin,1,true) & "> Allow Self-Joining<br />" & vbNewline &_
			"							<input type=""checkbox"" name=""MemHideGroup"" value=""on""" & chkCheckBox(MemHideGroup,1,true) & "> Hidden from members<br />" & vbNewline &_
			"							<input type=""checkbox"" name=""ModHideGroup"" value=""on""" & chkCheckBox(ModHideGroup,1,true) & "> Hidden from forum moderators<br />" & vbNewline &_
			"							<input type=""checkbox"" name=""GroupAutoJoin"" value=""on""" & chkCheckBox(GroupAutoJoin,1,true) & "> Auto-join for new members on registration<br />" & vbNewline
		Response.Write	"						</font></td>" & vbNewLine & _
			"					</tr>" & vbNewLine
		if UserGroupActionMode = "Modify" then
			Response.Write	"					<SCRIPT LANGUAGE=""JavaScript"" SRC=""javascript/selectbox.js""></SCRIPT>" & vbNewLine & _
				"					<tr>" & vbNewLine & _
				"						<td bgColor=""" & strPopUpTableColor & """ noWrap valign=""top"" align=""right"">" & vbNewLine & _
				"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Group Members:</b></font></td>" & vbNewLine & _
				"						<td bgColor=""" & strPopUpTableColor & """ align=""left"">" & vbNewLine
			strSql = "SELECT MEMBER_ID, M_NAME "
			strSql = strSql & "FROM " & strMemberTablePrefix & "MEMBERS "
			strSql = strSql & "ORDER BY M_NAME"
			strSqlG = "SELECT USERGROUP_ID, USERGROUP_NAME "
			strSqlG = strSqlG & " FROM " & strTablePrefix & "USERGROUPS "
			strSqlG = strSqlG & " WHERE USERGROUP_ID <> " & GroupID
			blnFirst = True
			ParentGroupList (GroupID)
			if blnFirst = "False" then strSqlG = strSqlG & ")"
			strSqlG = strSqlG & " ORDER BY USERGROUP_NAME"
			on error resume next
			set rsMember = my_Conn.execute (strSql)
			set rsGroup = my_Conn.execute(strSqlG)
			strSql = "SELECT MEMBER_ID FROM " & strTablePrefix & "USERGROUP_USERS "
			strSql = strSql & " WHERE USERGROUP_ID = " & GroupID
			strSql = strSql & " AND MEMBER_TYPE = 1"
			strSqlG = "SELECT MEMBER_ID FROM " & strTablePrefix & "USERGROUP_USERS "
			strSqlG = strSqlG & " WHERE USERGROUP_ID = " & GroupID
			strSqlG = strSqlG & " AND MEMBER_TYPE = 2"
			set rsGroupMember = my_Conn.execute (strSql)
			set rsSubGroup = my_Conn.execute(strSqlG)
			tmpStrUserList = ""
			do while not (rsGroupMember.EOF or rsGroupMember.BOF)
				if tmpStrUserList = "" then
					tmpStrUserList = rsGroupMember("MEMBER_ID")
				else
					tmpStrUserList = tmpStrUserList & "," & rsGroupMember("MEMBER_ID")
				end if
				rsGroupMember.movenext
			loop
			tmpStrGroupList = ""
			do while not (rsSubGroup.EOF or rsSubGroup.BOF)
				if tmpStrGroupList = "" then
					tmpStrGroupList = rsSubGroup("MEMBER_ID")
				else
					tmpStrGroupList = tmpStrGroupList & "," & rsSubGroup("MEMBER_ID")
				end if
				rsSubGroup.movenext
			loop
			SelectSize = 10
			Response.Write	"							<table width=""100%"">" & vbNewLine & _
				"								<tr>" & vbNewLine & _
				"									<td width=""50%"">" & vbNewLine & _
				"										<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Forum Members:</b></font><br />" & vbNewLine & _
				"										<select style=""width:100%"" name=""AuthUsersCombo"" size=""" & SelectSize & """ multiple onDblClick=""moveSelectedOptions(document.GroupModify.AuthUsersCombo, document.GroupModify.AuthUsers, false, '');sortSelect(document.GroupModify.AuthUsers)"">" & vbNewLine
			rsGroup.movefirst
			do until rsGroup.eof
				if not(InStr("," & tmpStrGroupList & "," , "," & rsGroup("USERGROUP_ID") & ",") > 0) THEN
					Response.Write "											<option value=""G" & rsGroup("USERGROUP_ID") & """" & isSel & ">* " & ChkString(rsGroup("USERGROUP_NAME"),"display") & "</option>" & vbNewline
				end if
				rsGroup.movenext
			loop
			set rsGroup = nothing
			rsMember.movefirst
			do until rsMember.eof
				if not(Instr("," & tmpStrUserList & "," , "," & rsMember("MEMBER_ID") & ",") > 0) then
					Response.Write "											<option value=""M" & rsMember("MEMBER_ID") & """" & isSel & ">" & ChkString(rsMember("M_NAME"),"display") & "</option>" & vbNewline
				end if
				rsMember.movenext
			loop
			set rsMember = nothing			
			Response.Write	"										</select>" & vbNewLine & _
				"									</td>" & vbNewLine & _
				"									<td width=""15"" align=""center"" valign=""middle"">" & vbNewLine & _
				"										<a href=""javascript:moveAllOptions(document.GroupModify.AuthUsers, document.GroupModify.AuthUsersCombo, false, '');sortSelect(document.GroupModify.AuthUsersCombo)""><img src=""" & strImageURL & "icon_Private_remall.gif"" width=""23"" height=""22"" border=""0"" alt=""""></a>" & vbNewLine & _
				"										<a href=""javascript:moveSelectedOptions(document.GroupModify.AuthUsers, document.GroupModify.AuthUsersCombo, false, '');sortSelect(document.GroupModify.AuthUsersCombo)""><img src=""" & strImageURL & "icon_Private_remove.gif"" width=""23"" height=""22"" border=""0"" alt=""""></a>" & vbNewLine & _
				"										<a href=""javascript:moveSelectedOptions(document.GroupModify.AuthUsersCombo, document.GroupModify.AuthUsers, false, '');sortSelect(document.GroupModify.AuthUsers)""><img src=""" & strImageURL & "icon_Private_add.gif"" width=""23"" height=""22"" border=""0"" alt=""""></a>" & vbNewLine & _
				"										<a href=""javascript:moveAllOptions(document.GroupModify.AuthUsersCombo, document.GroupModify.AuthUsers, false, '');sortSelect(document.GroupModify.AuthUsers)""><img src=""" & strImageURL & "icon_Private_addall.gif"" width=""23"" height=""22"" border=""0"" alt=""""></a>" & vbNewLine & _
				"									</td>" & vbNewLine & _
				"									<td width=""50%"">" & vbNewLine & _
				"										<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Selected Members:</b></font><br>" & vbNewLine & _
				"										<select style=""width:100%;"" name=""AuthUsers"" size=""" & SelectSize & """ multiple onDblClick=""moveSelectedOptions(document.GroupModify.AuthUsers, document.GroupModify.AuthUsersCombo, false, '');sortSelect(document.GroupModify.AuthUsersCombo)"">" & vbNewLine
			rsSubGroup.movefirst
			do until rsSubGroup.EOF
				if rsSubGroup("MEMBER_ID") <> "" then
					Response.Write "											<option value=""G" & rsSubGroup("MEMBER_ID") & """>* " & ChkString(getUserGroupName(rsSubGroup("MEMBER_ID")),"display") & "</option>" & vbNewline
				end if
				rsSubGroup.movenext
			loop
			set rsSubGroup = nothing
			rsGroupMember.movefirst
			do until rsGroupMember.EOF
				if rsGroupMember("MEMBER_ID") <> "" then
					Response.Write "											<option value=""M" & rsGroupMember("MEMBER_ID") & """>" & ChkString(getMemberName(rsGroupMember("MEMBER_ID")),"display") & "</option>" & vbNewline
				end if
				rsGroupMember.movenext
			loop
			set rsGroupMember = nothing
			Response.Write	"										</select>" & vbNewLine & _
				"									</td>" & vbNewLine & _
				"								</tr>" & vbNewLine & _
				"							</table>" & vbNewLine & _
				"						</td>" & vbNewLine & _
				"					</tr>" & vbNewLine
			Response.Write	"					<tr>" & vbNewLine & _
				"						<td bgColor=""" & strPopUpTableColor & """ noWrap valign=""top"" align=""right"">" & vbNewLine & _
				"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Set Permissions<br />on Forum(s):</b></font></td>" & vbNewLine & _
				"						<td bgColor=""" & strPopUpTableColor  & """ noWrap align=""left"">" & vbNewLine &_
				"							<table width=""100%"">" & vbNewLine &_
				"								<tr><td colspan=""2""><font size=""" & strDefaultFontSize & """><b>Forum</b></font></td><td align=""right""><font size=""" & strDefaultFontSize & """><b>Permissions</b></font></td></tr>" & vbNewLine
			strSql = "SELECT CAT_ID, CAT_STATUS, CAT_NAME, CAT_ORDER "
			strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
			strSql = strSql & " ORDER BY CAT_ORDER, CAT_NAME "
			set rsCat = my_Conn.execute(strSql)
			arCat = Null
			if not rsCat.bof and not rsCat.eof then arCat = rsCat.GetRows
			rsCat.Close
			set rsCat = Nothing
			if not IsNull(arCat) then
				for CatCount = LBound(arCat,2) to UBound(arCat,2)
					Response.Write	"								<tr><td colspan=""3""><font size=""" & strDefaultFontSize & """><b>" & chkString(arCat(2,CatCount),"display") & "</b></font></td></tr>" & vbNewline
					strSql = "SELECT FORUM_ID, F_PRIVATEFORUMS, F_SUBJECT, CAT_ID, F_TYPE, F_ORDER "
					strSql = strSql & "FROM " & strTablePrefix & "FORUM"
					strSql = strSql & " WHERE CAT_ID = " & arCat(0,CatCount)
					strSql = strSql & " ORDER BY F_ORDER ASC, F_SUBJECT ASC;"
					set rsF = my_Conn.execute(strSql)
					arF = Null
					if not rsF.bof and not rsF.eof then arF = rsF.GetRows
					rsF.Close
					set rsF = Nothing
					if not IsNull(arF) then
						for FCount = LBound(arF,2) to UBound(arF,2)
							strSql = "SELECT PERMS FROM " & strTablePrefix & "ALLOWED_USERGROUPS WHERE "
							strSql = strSql & "FORUM_ID = " & arF(0,FCount)
							strSql = strSql & " AND USERGROUP_ID = " & GroupID
							set rsPerms = my_Conn.execute(strSql)
							strPerms = ""
							if not rsPerms.BOF and not rsPerms.EOF then strPerms = rsPerms(0)
							rsPerms.Close
							set rsPerms = Nothing
							Response.Write	"								<tr>" & vbNewline &_
								"									<td><a href=""post.asp?method=EditForum&FORUM_ID=" & arF(0,FCount) & "&CAT_ID=" & arCat(0,CatCount) & "&type=0"">" & getCurrentIcon(strIconFolderPencil,"Edit Forum Properties","hspace=""0""") & "</a></td>" & vbNewline &_
								"									<td><font size=""" & strDefaultFontSize & """>" & chkString(arF(2,FCount),"display") & "</font></td>" & vbNewline &_
								"									<td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><select name=""Perms" & arF(0,FCount) & """>" & vbNewline &_
								"										<option value=""notset"""
							if strPerms = "" then Response.Write " selected"
							Response.Write	">Do Not Set</option>" & vbNewline
							if mLev>3 or (arF(1,FCount) = 1 or arF(1,FCount) = 6 or arF(1,FCount) = 3) then
								Response.Write	"										<option value=""0"""
								if strPerms = "0" then Response.Write " selected"
								Response.Write	">Allow</option>" & vbNewline
							end if
							Response.Write	"										<option value=""2"""
							if strPerms = "2" then Response.Write " selected"
							Response.Write	">Read-Only</option>" & vbNewline
							Response.Write	"										<option value=""1"""
							if strPerms = "1" then Response.Write " selected"
							Response.Write	">Deny</option>" & vbNewline &_
								"									</select></font></td>" & vbNewline &_
								"								</tr>" & vbNewline
						next
					end if
				next
			else
				Response.Write	"								<tr><td colspan=""3""><font size=""" & strDefaultFontSize & """>No forums were found.</font></td></tr>" & vbNewline
			end if
			Response.Write	"							</table>" & vbNewline &_
				"						</td>" & vbNewline &_
				"					</tr>" & vbNewline
			strAddOrModify = "Modify Group"
		end if
		Response.Write	"					<tr>" & vbNewLine & _
			"						<td bgColor=""" & strPopUpTableColor & """ noWrap align=""right""></td>" & vbNewLine & _
			"						<td bgColor=""" & strPopUpTableColor & """ noWrap align=""left"">" & vbNewLine & _
			"							<input type=""submit"" name=""submit"" value=""" & strAddOrModify & """"
		if UserGroupActionMode = "Modify" then 
			Response.Write	" onClick=""selectAllOptions(document.GroupModify.AuthUsers)"""
		end if
		Response.Write	"> <input type=""reset"" value=""Cancel"" id=""cancel"" name=""cancel"" onClick=""document.location.href='admin_usergroups.asp';"">" & vbNewLine & _
			"						</td>" & vbNewLine & _
			"					</tr>" & vbNewLine & _
			"					</form>" & vbNewLine & _
			"				</table>" & vbNewLine & _
			"			</td>" & vbNewLine & _
			"		</tr>" & vbNewLine & _
			"	</table>" & vbNewLine
	Case Else
	Response.Write	"	<script type=""text/javascript"" language=""javascript"">" & vbNewline &_
		"		function limitValues() {" & vbNewline &_
		"			var UGView = document.getElementById('strUGView');" & vbNewline &_
		"			var UGForm = UGView.form;" & vbNewline &_
		"			switch (UGView.value) {" & vbNewline &_
		"			case '0':" & vbNewline &_
		"				UGForm.strUGMemView[1].disabled = true;" & vbNewline &_
		"				UGForm.strUGMemView[2].disabled = true;" & vbNewline &_
		"				UGForm.strUGMemView[0].checked = true;" & vbNewline &_
		"				break;" & vbNewline &_
		"			case '1':" & vbNewline &_
		"				UGForm.strUGMemView[1].disabled = false;" & vbNewline &_
		"				UGForm.strUGMemView[2].disabled = true;" & vbNewline &_
		"				if (UGForm.strUGMemView[2].checked == true) {UGForm.strUGMemView[1].checked = true;}" & vbNewline &_
		"				break;" & vbNewline &_
		"			case '2':" & vbNewline &_
		"				UGForm.strUGMemView[1].disabled = false;" & vbNewline &_
		"				UGForm.strUGMemView[2].disabled = false;" & vbNewline &_
		"				break;" & vbNewline &_
		"			default:" & vbNewline &_
		"				UGForm.strUGMemView[1].disabled = true;" & vbNewline &_
		"				UGForm.strUGMemView[2].disabled = true;" & vbNewline &_
		"				UGForm.strUGMemView[0].checked = true;" & vbNewline &_
		"				break;" & vbNewline &_
		"			}" & vbNewline &_
		"		}" & vbNewline &_
		"	</script>" & vbNewline
	Response.Write	"	<form action=""admin_usergroups.asp?mode=config"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
		"	<table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
		"		<tr>" & vbNewLine & _
		"			<td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
		"				<table border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td bgcolor=""" & strHeadCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>UserGroups Configuration</b></font></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>UserGroup Information Visible to:</b> </font></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"							<select name=""strUGView"" onChange=""limitValues();"">" & vbNewline &_
		"								<option value=""0""" & chkSelect(strUGView,0) & ">Admin only</option>" & vbNewline &_
		"								<option value=""1""" & chkSelect(strUGView,1) & ">UserGroup Members</option>" & vbNewline &_
		"								<option value=""2""" & chkSelect(strUGView,2) & ">All Members</option>" & vbNewline &_
		"							</select>" & vbNewline &_
		"						</font></td>" & vbNewline &_
		"					</tr>" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>UserGroup Members Visible to:</b> </font></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"								<input type=""radio"" name=""strUGMemView"" value=""0""" & chkRadio(strUGMemView,0,true) & " />Admin only " & vbNewline &_
		"								<input type=""radio"" name=""strUGMemView"" value=""1""" & chkRadio(strUGMemView,1,true) & " />UserGroup Members " & vbNewline &_
		"								<input type=""radio"" name=""strUGMemView"" value=""2""" & chkRadio(strUGMemView,2,true) & " />All Members" & vbNewline &_
		"						</font></td>" & vbNewline &_
		"					</tr>" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Moderator Access to Forum UserGroup Permissions: </b></font><br /><font size=""" & strFooterFontSize & """>(View and Edit allow moderators to view UserGroup members) </font></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"							<select name=""strUGModForums"">" & vbNewline &_
		"								<option value=""0""" & chkSelect(strUGModForums,0) & ">None</option>" & vbNewline &_
		"								<option value=""1""" & chkSelect(strUGModForums,1) & ">View</option>" & vbNewline &_
		"								<option value=""2""" & chkSelect(strUGModForums,2) & ">Edit</option>" & vbNewline &_
		"							</select>" & vbNewline &_
		"						</font></td>" & vbNewline &_
		"					</tr>" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Submit New Config"" id=""submit1"" name=""submit1""> <input type=""button"" onClick=""document.location.href='admin_usergroups.asp';"" value=""Reset Old Values"" id=""reset1"" name=""reset1""></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"	</form>" & vbNewLine &_
		"	<script type=""text/javascript"" language=""javascript"">limitValues();</script>" & vbNewline
		Response.Write	"	<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
			"		<tr>" & vbNewLine & _
			"			<td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
			"				<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
			"					<tr>" & vbNewLine & _
			"						<td bgColor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Group Name</font></b></td>" & vbNewLine & _
			"						<td bgColor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Description</font></b></td>" & vbNewLine & _
			"						<td nowrap align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & vbNewLine & _
			"							<a href=""admin_usergroups.asp?mode=Add"">" & getCurrentIcon(strIconGroup,"Add UserGroup ...","hspace=""0""") & "</a></font></b></td>" & vbNewLine & _
			"					</tr>" & vbNewLine
		strSql = "SELECT " & strTablePrefix & "USERGROUPS.USERGROUP_ID, "
		strSql = strSql & strTablePrefix & "USERGROUPS.USERGROUP_NAME, " 
		strSql = strSql & strTablePrefix & "USERGROUPS.USERGROUP_DESC "
		strSql = strSql & " FROM " &strTablePrefix & "USERGROUPS "
		set rs = Server.CreateObject("ADODB.Recordset")
		rs.cachesize=20
		rs.open  strSql, my_Conn, 3
		if rs.EOF or rs.BOF then  '## No Groups found
			Response.Write	"					<tr>" & vbNewLine & _
				"						<td bgcolor=""" & strForumCellColor & """ colspan=""3""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>No Groups Found</b></font></td>" & vbNewLine & _
				"					</tr>" & vbNewLine
		else
			do until rs.EOF
				Response.Write	"					<tr>" & vbNewLine & _
					"						<td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("USERGROUP_NAME"),"display") & "</font></td>" & vbNewLine & _
					"						<td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("USERGROUP_DESC"),"display") & "</font></td>" & vbNewLine & _
					"						<td nowrap bgcolor=""" & strForumCellColor & """ align=center><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
					"							<a href=""admin_usergroups.asp?mode=Modify&ID=" & rs("USERGROUP_ID") & """>" & getCurrentIcon(strIconPencil,"Modify UserGroup", "hspace=""0""") & "</a>" & vbNewLine & _
					"							<a href=""admin_usergroups.asp?mode=Delete&ID=" & rs("USERGROUP_ID") & """>" & getCurrentIcon(strIconTrashcan,"Delete UserGroup", "hspace=""0""") & "</a>" & vbNewLine & _
					"						</td>" & vbNewLine & _
					"					</tr>" & vbNewLine
				rs.MoveNext
			loop
		end if 
		rs.Close
		set rs = Nothing
		Response.Write	"				</table>" & vbNewLine & _
			"			</td>" & vbNewLine & _
			"		</tr>" & vbNewLine & _
			"	</table>" & vbNewLine
	End Select
WriteFooter
Response.End
sub ParentGroupList(intGroupID)
	strSqlParG = "SELECT USERGROUP_ID FROM " & strTablePrefix & "USERGROUP_USERS"
	strSqlParG = strSqlParG & " WHERE MEMBER_ID = " & intGroupID & " AND MEMBER_TYPE = 2"
	set rsParent = my_Conn.execute(strSqlParG)
	if not rsParent.bof and not rsParent.eof then
		myGroup = rsParent.GetRows()
		set rsParent = Nothing
		for i = LBound(myGroup) to UBound(myGroup)
			if blnFirst = False Then
				strSqlG = strSqlG & (", ")
			else
				blnFirst = False
				strSqlG = strSqlG & " AND USERGROUP_ID NOT IN ("
			end if
			strSqlG = strSqlG & myGroup(0,i)
			ParentGroupList(myGroup(0,i))
		next
	end if
end sub
%>


Use:

1. Forum administrator: Access the user group administration page from admin console "UserGroups Manager" link. Add/Edit user groups in same manner as previously, with one exception. There is an added checkbox to control whether members can join or quit particular groups from the "groupjoin.asp" file. Groups must NOT be hidden from members and the allow box must be checked for the group to be controlled from the new program.
2. Members: Access the "groupjoin.asp" file. Group titles, descriptions and control links for any groups meeting the criterion in paragraph 1 above will be displayed. If a member already belongs to the group, a link to quit the group will be displayed; otherwise, a link to join will be displayed. Simply clicking the link will join/quit the group.

Edited by - Carefree on 12 March 2013 19:40:05
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 09 March 2013 :  23:35:55  Show Profile


THANK YOU, Carefree!! I REALLY appreciate you and your hard work!

Would I be asking too much to be able to place an image with the description of each group like we can do when creating a forum? Could there be a "Join Group" column (link) that members could see and click on when viewing the list of groups? Also, when viewing the list of members in a group could it display the members' avatar instead of the default profile icon?

What's the "Member Type" column for when viewing a list of the members? It lists each member as "user" so is there a purpose for that?

When viewing the list of groups there's a "UserGroup Name" column and a "UserGroup Description" column but the column title for "View Members" is missing.



"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 10 March 2013 :  00:56:13  Show Profile
The sub-mod already provides a link to join/quit a group, that was the whole point of writing it. This sub-mod doesn't display members of a group, that's an entirely different function. I don't have a "view members" column, so there shouldn't be a title.... As for the Member type column, I have no idea what its purpose was; doesn't seem to have any.

As for adding an image, make the following change, then in the group description enclose an image link in the [img][/img] format:

"groupjoin.asp"


Look for the following line (appx 128):

			"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & strDesc & vbNewLine & _

Change it to say:

			"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & formatstr(strDesc) & vbNewLine & _

Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 10 March 2013 :  03:51:41  Show Profile
Here's a version of "groupjoin.asp" which includes member list and avatar (if available, otherwise user_name) links to profiles. Here's the image I'm using for the members list icon:



<%
'###############################################################################
'##
'##	              Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##	          Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.  The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; If not, write to:
'##
'##	          Free Software Foundation, Inc.
'##	          59 Temple Place, Suite 330
'##	          Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##	            http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##	             manderson@snitz.com
'##
'###############################################################################
'##
'##	"groupjoin.asp"  For User Groups Mod - Allowed Joining
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<%
Response.Write	"      <table border=""0"" width=""100%"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""groupjoin.asp"">User Group Joiner</a><br />" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table><br />" & vbNewLine
If Request.QueryString("VG")="1" and len(Request.QueryString("IG"))>0 Then
	If isNumeric(Request.QueryString("IG")) Then
		intGroup=cInt(Request.QueryString("IG"))
		strSql = "SELECT * FROM " & strTablePrefix & "USERGROUPS WHERE USERGROUP_ID=" & intGroup
		Set rsGroup=my_Conn.Execute(strSql)
		If not rsGroup.EOF Then
			strName=rsGroup("usergroup_name")
			strDesc=rsGroup("usergroup_desc")
			intHide=rsGroup("mem_hide")
			intAllow=rsGroup("allowjoin")
			rsGroup.Close
			If intHide<>1 and intAllow=1 Then
				strSqll="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
				Set rsMem=my_Conn.Execute(strSqll)
				If not rsMem.EOF Then
					intJoin=1
					rsMem.Close
				Else
					intJoin=0
				End If
				Set rsMem=Nothing
				strSql="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup
				Set rsMem=my_Conn.Execute(strSql)
				If not rsMem.EOF Then
					Response.Write	"<table align=""center"" width=""95%"" cellpadding=""0"" cellspacing=""0"" bgColor=""transparent"">" & vbNewLine & _
						"	<tr valign=""middle"">" & vbNewLine & _
						"		<td align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """>" & vbNewLine & _
						"			<table align=""center"" width=""100%"" cellpadding=""4"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
						"				<tr valign=""middle"" height=""60px;"" bgColor=""" & strCategoryCellColor & """>" & vbNewLine & _
						"					<td align=""center"" colspan=""4"" width=""100%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strHeaderFontSize+2 & """><b>Usergroup Joiner</b>" & vbNewLine & _
						"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"				</tr>" & vbNewLine & _
						"				<tr valign=""middle"" bgColor=""" & strHeadCellColor & """>" & vbNewLine & _
						"					<td align=""center"" width=""25%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Usergroup Name</b>" & vbNewLine & _
						"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"					<td align=""center"" width=""30%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Description</b>" & vbNewLine & _
						"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"					<td align=""center"" width=""40%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Members</b>" & vbNewLine & _
						"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"					<td align=""center"" width=""5%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Action</b>" & vbNewLine & _
						"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"				</tr>" & vbNewLine & _
						"				<tr bgColor=""" & strForumCellColor & """>" & vbNewLine & _
						"					<td valign=""bottom"" align=""left"" width=""25%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & strName & vbNewLine & _
						"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"					<td valign=""bottom"" align=""left"" width=""30%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & FormatStr(strDesc) & vbNewLine & _
						"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"					<td valign=""bottom"" align=""left"" width=""40%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & vbNewLine
					rsMem.MoveFirst
					Do while not rsMem.EOF
						strSql2 = "SELECT * FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & rsMem("MEMBER_ID") & " AND M_STATUS>0"
						Set rsData=my_Conn.Execute(strSql2)
						If not rsData.EOF Then
							Response.Write	"<a href=""pop_profile.asp?mode=display&id=" & rsData("MEMBER_ID") & """ target=""_blank""><acronym style=""border:none; text-decoration:none"" title=""View " & rsData("M_NAME") & "'s Profile"">"
							If strShowAvatar=1 and len(rsData("M_Avatar_URL"))>4 Then
								Response.Write	"<img src=""" & rsData("M_Avatar_URL") & """ height=""35"" alt=""" & rsData("M_NAME") & """ style=""border:none"" />"
							Else
								Response.Write	rsData("M_NAME")
							End If
							Response.Write	"</acronym></a>"
							rsData.Close
						End If
						Set rsData=Nothing	
						rsMem.MoveNext
						If not rsMem.EOF Then Response.Write	", "
					Loop
					rsMem.Close
					Response.Write	"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"					<td align=""center"" valign=""bottom"" width=""5%"">" & vbNewLine
					If intJoin=0 Then
						Response.Write	"						<a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Join Group") & "><acronym style=""border:none; text-decoration:none"" title=""Join Group""><img src="""& strImageURL &"icon_friends.gif"" style=""border:none"" alt=""Join Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
					Else
						Response.Write	"						<a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Quit Group") & "><acronym style=""border:none; text-decoration:none"" title=""Quit Group""><img src="""& strImageURL &"icon_unsubscribe.gif"" style=""border:none"" alt=""Quit Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
					End If
					If intHide<>1 Then 
						Response.Write	"						<a href=""groupjoin.asp?IG="&intGroup&"&VG=1""" & dWStatus("View Group") & "><acronym style=""border:none; text-decoration:none"" title=""View Group""><img src="""& strImageURL &"icon_members.png"" height=""20"" style=""border:none"" alt=""View Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
					End If
					Response.Write	"					</td>" & vbNewLine & _
						"				</tr>" & vbNewLine & _
						"			</table>" & vbNewLine & _
						"		</td>" & vbNewLine & _
						"	</tr>" & vbNewLine & _
						"</table>" & vbNewLine
				Else
					Response.Write	"<table align=""center"" width=""95%"" cellpadding=""0"" cellspacing=""0"" bgColor=""transparent"">" & vbNewLine & _
						"	<tr valign=""middle"">" & vbNewLine & _
						"		<td align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """>" & vbNewLine & _
						"			<table align=""center"" width=""100%"" cellpadding=""4"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
						"				<tr valign=""middle"" height=""60px;"" bgColor=""" & strCategoryCellColor & """>" & vbNewLine & _
						"					<td align=""center"" colspan=""4"" width=""100%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strHeaderFontSize+2 & """><b>Usergroup Joiner</b>" & vbNewLine & _
						"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"				</tr>" & vbNewLine & _
						"				<tr valign=""middle"" height=""60px;"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
						"					<td align=""center"" colspan=""4"" width=""100%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>No Members" & vbNewLine & _
						"						</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"				</tr>" & vbNewLine & _
						"			</table>" & vbNewLine & _
						"		</td>" & vbNewLine & _
						"	</tr>" & vbNewLine & _
						"</table>" & vbNewLine
				End If
				Set rsMem=Nothing
			End If
		End If
		Set rsGroup=Nothing
	End If	
	WriteFooter
	Response.End
End If
If len(Request.QueryString("IG"))>0 Then
	If isNumeric(Request.QueryString("IG")) Then
		intGroup=cInt(Request.QueryString("IG"))
		strSql="SELECT * FROM " & strTablePrefix & "USERGROUPS WHERE USERGROUP_ID=" & intGroup
		Set rsCheck=my_Conn.Execute(strSql)
		If not rsCheck.EOF Then
			intAllow=rsCheck("AllowJoin")
			rsCheck.Close
		End If
		Set rsCheck=Nothing
		If intAllow=1 Then
			strSql="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
			Set rsGroup=my_Conn.Execute(strSql)
			If not rsGroup.EOF Then
				rsGroup.Close
				Set rsGroup=Nothing
				strSql="DELETE FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
				If strDBType="access" Then
					strSql="DELETE * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
				End If
				my_Conn.Execute(strSql)
				Response.Write	"<p align=""center"">Quit Group</p>" & vbNewLine
			Else
				Set rsGroup=Nothing
				my_Conn.Execute("INSERT INTO " & strTablePrefix & "USERGROUP_USERS (USERGROUP_ID, MEMBER_ID, MEMBER_TYPE) VALUES (" & intGroup & ", " & MEMBERID & ", 1)")
				Response.Write	"<p align=""center"">Joined Group</p>" & vbNewLine
			End If
		Else
			Response.Write	"<p align=""center"">Not found!</p>"
		End If
		Response.Write	"<meta http-equiv=""Refresh"" content=""4; URL=groupjoin.asp"" />" & vbNewLine
		WriteFooter
		Response.End
	End If
End If
Response.Write	"<table align=""center"" width=""95%"" cellpadding=""0"" cellspacing=""0"" bgColor=""transparent"">" & vbNewLine & _
	"	<tr valign=""middle"">" & vbNewLine & _
	"		<td align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """>" & vbNewLine & _
	"			<table align=""center"" width=""100%"" cellpadding=""4"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
	"				<tr valign=""middle"" height=""60px;"" bgColor=""" & strCategoryCellColor & """>" & vbNewLine & _
	"					<td align=""center"" colspan=""3"" width=""100%"">" & vbNewLine & _
	"						<font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strHeaderFontSize+2 & """><b>Usergroup Joiner</b>" & vbNewLine & _
	"						</font>" & vbNewLine & _
	"					</td>" & vbNewLine & _
	"				</tr>" & vbNewLine & _
	"				<tr valign=""middle"" bgColor=""" & strHeadCellColor & """>" & vbNewLine & _
	"					<td align=""center"" width=""40%"">" & vbNewLine & _
	"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Usergroup Name</b>" & vbNewLine & _
	"						</font>" & vbNewLine & _
	"					</td>" & vbNewLine & _
	"					<td align=""center"" width=""55%"">" & vbNewLine & _
	"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Description</b>" & vbNewLine & _
	"						</font>" & vbNewLine & _
	"					</td>" & vbNewLine & _
	"					<td align=""center"" width=""5%"">" & vbNewLine & _
	"						<font face=""" & strDefaultFontFace & """ color=""" & strHeadFontColor & """ size=""" & strHeaderFontSize & """><b>Action</b>" & vbNewLine & _
	"						</font>" & vbNewLine & _
	"					</td>" & vbNewLine & _
	"				</tr>" & vbNewLine
strSql="SELECT * FROM " & strTablePrefix & "USERGROUPS WHERE ALLOWJOIN=1 AND MEM_HIDE=0"
Set rsToggle=my_Conn.Execute(strSql)
If not rsToggle.EOF Then
	intI=0
	rsToggle.MoveFirst
	Do while not rsToggle.EOF
		If intI=0 Then CColor=strForumFirstCellColor Else CColor=strAltForumCellColor
		intGroup=rsToggle("USERGROUP_ID")
		strGroup=rsToggle("USERGROUP_NAME")
		strDesc=rsToggle("USERGROUP_DESC")
		intHide=rsToggle("MEM_HIDE")
		strSql1="SELECT * FROM " & strTablePrefix & "USERGROUP_USERS WHERE USERGROUP_ID=" & intGroup & " AND MEMBER_ID=" & MEMBERID
		Set rsJoin=my_Conn.Execute(strSql1)
		If not rsJoin.EOF Then
			intJoin=1
			rsJoin.Close
		Else
			intJoin=0
		End If
		Set rsJoin=Nothing
		Response.Write	"				<tr valign=""middle"" bgColor=""" & CColor & """>" & vbNewLine & _
			"					<td align=""left"" size=""40%"">" & vbNewLine & _
			"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & strGroup & vbNewLine & _
			"						</font>" & vbNewLine & _
			"					</td>" & vbNewLine & _
			"					<td align=""left"" size=""55%"">" & vbNewLine & _
			"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & formatstr(strDesc) & vbNewLine & _
			"						</font>" & vbNewLine & _
			"					</td>" & vbNewLine & _
			"					<td align=""absmiddle"" size=""5%"">" & vbNewLine
		If intJoin=0 Then
			Response.Write	"						<a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Join Group") & "><acronym style=""border:none; text-decoration:none"" title=""Join Group""><img src="""& strImageURL &"icon_friends.gif"" style=""border:none"" alt=""Join Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
		Else
			Response.Write	"						<a href=""groupjoin.asp?IG="&intGroup&"""" & dWStatus("Quit Group") & "><acronym style=""border:none; text-decoration:none"" title=""Quit Group""><img src="""& strImageURL &"icon_unsubscribe.gif"" style=""border:none"" alt=""Quit Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
		End If
		If intHide<>1 Then 
			Response.Write	"						<a href=""groupjoin.asp?IG="&intGroup&"&VG=1""" & dWStatus("View Group") & "><acronym style=""border:none; text-decoration:none"" title=""View Group""><img src="""& strImageURL &"icon_members.png"" height=""20"" style=""border:none"" alt=""View Group"" hspace=""0"" style=""text-decoration:none;""></acronym></a>" & vbNewLine
		End If
		Response.Write	"					</td>" & vbNewLine & _
			"				</tr>" & vbNewLine
		intI=1-intI
		rsToggle.MoveNext
	Loop
	rsToggle.Close
Else
	Response.Write	"				<tr valign=""middle"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"					<td align=""center"" colspan=""3"" width=""100%"">" & vbNewLine & _
		"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>No available groups found." & vbNewLine & _
		"						</font>" & vbNewLine & _
		"					</td>" & vbNewLine & _
		"				</tr>" & vbNewLine
End If
Set rsToggle=Nothing
Response.Write	"			</table>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table>" & vbNewLine
WriteFooter
%>

Edited by - Carefree on 12 March 2013 19:38:00
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 10 March 2013 :  16:36:03  Show Profile

I am TOTALLY loving this, Carefree!

It is Sooo COOL!

Doesn't it look modernized and even classy now!






Thank you Soooo MUCH for your hard work, Carefree!

You are Soooo very much appreciated!



"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Edited by - MaGraham on 10 March 2013 16:53:32
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 17 May 2013 :  00:52:45  Show Profile

quote:
Originally posted by Carefree

The sub-mod already provides a link to join/quit a group, that was the whole point of writing it. This sub-mod doesn't display members of a group, that's an entirely different function. I don't have a "view members" column, so there shouldn't be a title.... As for the Member type column, I have no idea what its purpose was; doesn't seem to have any.

As for adding an image, make the following change, then in the group description enclose an image link in the [img][/img] format:

"groupjoin.asp"


Look for the following line (appx 128):

			"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & strDesc & vbNewLine & _

Change it to say:

			"						<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & formatstr(strDesc) & vbNewLine & _





This isn't working with the new install, Carefree. It's displaying the img link. Is this a different problem or the same problem as here: http://forum.snitz.com/forum/topic.asp?TOPIC_ID=70510



"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Edited by - MaGraham on 17 May 2013 02:47:51
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts

Posted - 17 May 2013 :  03:42:17  Show Profile
Probably the same issue. Must be in the formatstr function in "inc_func_common.asp"
Go to Top of Page
Page: of 4 Previous Topic Topic Next Topic  
Next Page
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.49 seconds. Powered By: Snitz Forums 2000 Version 3.4.07