User Group Prison Add-On

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/67207?pagenum=1
04 November 2025, 18:35

Topic

Carefree
User Group Prison Add-On
05 June 2008, 19:22


The Prison MOD allows administrators (and moderators if you choose) to incarcerate members to a specific forum and to release members to their previous settings, without allowing moderators access to all members' User Group settings - and with automatic Email notices of the action taken to both the member concerned and the administrator.
Available on SnitzBitz.

 

Replies ...

MarcelG
06 June 2008, 03:11


haha, nice idea!
Carefree
06 June 2008, 06:19


I knew what I wanted it to do - the hard part was convincing the software to cooperate. I avoided creating a group of additional variables and database settings, but anyone implementing it will have to make a number of small code changes.<
Carefree
15 June 2008, 17:33


Here's something driving me a bit buggy. This page is perfect in Firefox - but looks crappy in IE7. Can someone point out what's goofy?
Warden
texanman
16 July 2008, 12:37


Carefree
I just added this Mod. Everything seems to be fine except one thing. The "imprison member" doesn't work. If I do "release member", it does imprison the member. What could be going on?
Update: Got this working. Forgot to replace the second incident of usergroup_ID. But two other issues. One, the prisoners name is duplicate. Two: the warden is very slow relative to the other pages. I believe the first ptoblem is coming from this code:
if tmpStrNames = "" then
tmpStrNames = rsNames("M_NAME")
else
tmpStrNames = tmpStrNames & ", " & rsNames("M_NAME")
end if
HuwR
16 July 2008, 12:42


Originally posted by Carefree
Here's something driving me a bit buggy. This page is perfect in Firefox - but looks crappy in IE7. Can someone point out what's goofy?
Warden
your link does not work
texanman
16 July 2008, 12:56


Originally posted by Carefree
Here's something driving me a bit buggy. This page is perfect in Firefox - but looks crappy in IE7. Can someone point out what's goofy?
Warden
your link does not work
HuwR:

here is the file
warden
HuwR
16 July 2008, 13:22


ok, not going to able to help then since I don't have any of that stuff installed, I could probably tell you by looking at an image of the problem, or alternatively doing a view source on the page and providiing a link to that rather than the asp file would probably be better<
texanman
16 July 2008, 13:29


HuwR:

I don't have the problem carefree was referring to. I am using IE7 and everything looks great except the two issues in red in my previous post.<
Carefree
16 July 2008, 22:27


your link does not work

Replaced file.
Warden.txt GeneratedSource.txt - you'll have to r-click & save this one
FF Image IE Image<
Carefree
16 July 2008, 22:40


if tmpStrNames = "" then
tmpStrNames = rsNames("M_NAME")
else
tmpStrNames = tmpStrNames & ", " & rsNames("M_NAME")
end if
No duplicates here, I'd need to see what you're experiencing. Also, my warden page loads in about .1 second.
That routine, Tex, checks to see if there's already a value in the tmpStrNames variable; if so, it appends the new value to it and if not, it sets the variable to the value in memory. It doesn't duplicate, it cannot.
There's something else happening.<
texanman
17 July 2008, 08:25


You are right, it was my error, thanks. How hard would it be to make imprison a memeber and release prisoner to be selected from a pull down menu instead of typing names?<
Carefree
17 July 2008, 11:58


It wouldn't be that much trouble, but some systems have 20000 members ... typing would be infinitely faster.<
texanman
17 July 2008, 13:24


I understand. Some pull down menus have the feature of pointing to the list as you type the first few letters of the name.<
golfmann
17 July 2008, 16:01


Dis joint'l never hold me....
see?<
texanman
17 July 2008, 16:19


Originally posted by golfmann
Dis joint'l never hold me....
see?
I see! Said the blind man to his deaf daughter!<
fastrax
02 April 2009, 20:14


Can this mod be used to have new members in jail by default? We want new members to have the ability to post in one area only at first and read all others until they get used to the boards. Thanks
Carefree
02 April 2009, 20:34


You could, yes. Just set your prison group to the default for new members, then allow only that forum for that level.
fastrax
03 April 2009, 15:07


Thanks, I will give it a try then.
Carefree
29 July 2010, 04:33


I was bored so I made a couple of updates to this mod. lol

First, I created a new file called "admin_amnesty.asp". Just in case the admin is feeling kind and generous, he/she can run this and create a random date to release anyone who is in prison as of the date the amnesty program is run. The date will be anytime within a specified range: 1 month, 3 months, 6 months or 1 year.
The date generated will be inserted into anyone's record who is in jail at that moment. If they are STILL in jail when that date is reached, the next time they logon they'll automatically get released.
The User Groups mod and the Prison Mod MUST both be installed before adding this feature.
Also, the title of the prisoner group MUST be Prisoners (or you'll have to change it in both the admin_amnesty and inc_header files).
Necessary changes to use this additional feature:

(1) Save this file as "dbs_prisoner.asp"
Code:

Prison Mod Amnesty
[ALTER]
USERGROUP_USERS
ADD#RELEASE_DATE#VARCHAR(14)#NULL#
[END]

(2) Within the admin control panel, select "Mod Setup" and choose the "Prison Mod Amnesty" mod to update database.
(3) Save the following as "admin_amnesty.asp".
Code:

<%
'###############################################################################
'##
'##			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
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_admin.asp" -->
<!--#INCLUDE FILE="inc_moderation.asp" -->
<%
dim strPardonsRange

if Session(strCookieURL & "Approval") <> "15916941253" then
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
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,"","") & " Amnesty<br /></font></td>" & vbNewLine & _
	"		</tr>" & vbNewLine & _
	"	</table>" & vbNewLine

if Request.Form("Method_Type") = "Write_Configuration" then 
	Application(strCookieURL & "ConfigLoaded") = ""
	PRange = Request.Form("strPardonsRange")
	Randomize
	DateNumber = Int(Rnd * PRange) + 1
	Pardon=DateAdd("d",DateNumber,date())
	strPardon=cStr(Pardon)+" 00:00:00"
	strRelease=DatetoStr(strPardon)
	Response.Write	"			<br><p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Adding Amnesty Date!</font></p><br>" & vbNewLine
	strSql="SELECT USERGROUP_ID, USERGROUP_NAME FROM " & strTablePrefix & "USERGROUPS WHERE USERGROUP_NAME='Prisoners'"
	set rsPrisoners=my_Conn.Execute(strSql)
	if rsPrisoners.EOF then
		Response.Write	"No usergroup named Prisoners found." & vbNewLine & _
			"			<meta http-equiv=""Refresh"" content=""3; URL=admin_home.asp"">" & vbNewLine
		WriteFooter
		Response.End
	else
		intUID=rsPrisoners("USERGROUP_ID")
		rsPrisoners.Close
	end if
	set rsPrisoners=Nothing
	strSql="UPDATE "& strTablePrefix & "USERGROUP_USERS SET RELEASE_DATE='" & strRelease & "' WHERE USERGROUP_ID=" & intUID
	Response.Write	strSql
	Response.End
	my_Conn.Execute(strSql)
	Response.Write	"	<table width=""100%"" border=""1"" cellspacing=""2"" cellpadding=""2"" align=""center"">" & vbNewline & _
		"		<tr>" & vbNewLine & _
		"			<td width=""50%"" align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strHeaderFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHeaderFontColor & """>Pardon Date</font></b><br />" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"		<tr>" & vbNewLine & _
		"			<td width=""50%"" align=""center"" bgcolor=""" & CColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>"& Pardon & "" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewline & _
		"	</table>" & vbNewLine & _
		"			<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Lucky Prisoners!</font></p>" & vbNewLine & _
		"			<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_home.asp"">Back To Admin Home</font></a></p>" & vbNewLine & _
		"			<meta http-equiv=""Refresh"" content=""6; URL=admin_home.asp"">" & vbNewLine
	WriteFooter
	Response.End
else
	Response.Write	"<form action=""admin_amnesty.asp"" method=""post"" id=""Form"" name=""Form"">" & vbNewLine & _
		"	<input type=""hidden"" name=""Method_Type"" value=""Write_Configuration"">" & vbNewLine & _
		"	<p><center>This program generates a random date for release of prisoners based upon the range selected below.<br></p>" & vbNewLine & _
		"	<table border=""1"" cellspacing=""2"" cellpadding=""2"" align=""center"">" & vbNewLine & _
		"		<tr valign=""middle"">" & vbNewLine & _
		"			<td width=""50%"" align=""center"" bgColor=""" & strPopUpTableColor & """><font face=""" & strHeaderFontFace & """ size=""" & strHeaderFontSize & """><b>Amnesty Period</b> </font>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"		<tr valign=""middle"">" & vbNewLine & _
		"			<td width=""50%"" align=""center"" bgColor=""" & CColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"				<select name=""strPardonsRange"">" & vbNewLine & _
		"					<option value=""31""" & chkSelect(strPardonsRange,31) & ">1 Month" & vbNewLine & _
		"					</option>" & vbNewLine & _
		"					<option value=""91""" & chkSelect(strPardonsRange,91) & ">3 Months" & vbNewLine & _
		"					</option>" & vbNewLine & _
		"					<option value=""182""" & chkSelect(strPardonsRange,182) & ">6 Months" & vbNewLine & _
		"					</option>" & vbNewLine & _
		"					<option value=""365""" & chkSelect(strPardonsRange,365) & ">1 Year" & vbNewLine & _
		"					</option>" & vbNewLine & _
		"				</select>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"		<tr valign=""middle"">" & vbNewLine & _
		"			<td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Submit"" id=""submit1"" name=""submit1"">" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"</form>" & vbNewLine
end if
WriteFooter
Response.end
%>

(4) Modify "admin_home.asp"
Code:

Look for the following line (appx 153):

		"                <LI><span class=""spnMessageText""><a href=""setup.asp"">Check Installation</a></span><font size=""" & strFooterFontSize & """><b> (Run after each upgrade !)</b></font></LI>" & vbNewLine & _

After it, insert this:

	"								<LI><span class=""spnMessageText""><a href=""admin_Amnesty.asp"">Amnesty</a></span></LI>" & vbNewLine & _


(5) Modify "inc_header.asp"
Code:

Look for these lines (appx 81-84):

If strDBType = "" then
	Response.Write	"<html>" & vbNewLine & _
			"<head>" & vbNewline & _
			"<title>" & strForumTitle & "</title>" & vbNewline


Above them, insert the following:

'#######    Begin UserGroup MOD     #######
if Session(strCookieURL & "UserGroups" & MemberID) = "" or _
	IsNull(Session(strCookieURL & "UserGroups" & MemberID)) then
	strGroupMembership = getGroupMembership(MemberID,1)
	Session(strCookieURL & "UserGroups" & MemberID) = strGroupMembership
	Session(strCookieURL & "UserGroups" & MemberID) = strGroupMembership
else
	strSql="SELECT USERGROUP_ID, USERGROUP_NAME FROM " & strTablePrefix & "USERGROUPS WHERE USERGROUP_NAME='Prisoners'"
	set rsPrisoners=my_Conn.Execute(strSql)
	if not rsPrisoners.EOF then
		intUID=rsPrisoners("USERGROUP_ID")
		rsPrisoners.Close
	end if
	set rsPrisoners=Nothing
	strSql="SELECT ORIGINAL_ID, USERGROUP_ID, MEMBER_ID, RELEASE_DATE FROM " & strTablePrefix & "USERGROUP_USERS WHERE MEMBER_ID=" & MemberID
	set rsPrisoners=my_Conn.Execute(strSql)
	if not rsPrisoners.EOF then
		intORI=rsPrisoners("ORIGINAL_ID")
		intRPI=rsPrisoners("USERGROUP_ID")
		strRD=rsPrisoners("RELEASE_DATE")
		rsPrisoners.Close
	end if
	set rsPrisoners=Nothing
	if isNull(strRD) then
		strSql="UPDATE " & strTablePrefix & "USERGROUP_USERS SET RELEASE_DATE='0' WHERE MEMBER_ID="& MemberID
		my_Conn.Execute(strSql)
	end if
	if (intRPI=intUID) AND (strRD < DatetoStr(strForumTimeAdjust)) AND (strRD <> "0") then	'is Released due to Amnesty
		strRD="0"
		strSql="UPDATE "& strTablePrefix & "USERGROUP_USERS SET USERGROUP_ID=" & intORI & ", RELEASE_DATE='0' WHERE MEMBER_ID=" & MemberID
		my_Conn.Execute(strSql)
		Response.Write	"Congratulations!  Due to admin amnesty, you have been released from Correctional Custody.<br>To regain access to all forum functions, you must sign out and back in."
		Call ClearCookies
		Response.Write	"<meta http-equiv=""Refresh"" content=""6; URL=default.asp"">" & vbNewLine & _
			"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
		WriteFooter
		Response.End
	end if
end if
'#######     End UserGroup MOD      #######


(6) Finally, replace "warden.asp" with this:
Note: If you used a forum name other than "Correctional Custody", you will need to replace it on line 51.
Code:

<%
'###############################################################################
'##
'## 	                Snitz Forums 2000 v3.4.06
'##
'###############################################################################
'##
'## 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
'##
'###############################################################################

%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_func_common.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<%

strPrisonForum = "Correctional Custody"

Function SendReleaseMail
	strSql = "SELECT M_EMAIL, M_NAME FROM " & strMemberTablePrefix & "MEMBERS " &_
		"WHERE M_NAME = '" & Request.Form("RPrisoner") & "'"
	set rsMail = my_conn.execute(strSql)
	strRecipients = rsMail("M_EMAIL")
	strRecipientsName = rsMail("M_NAME")
	strFrom = strForumTitle
	strSubject = "Return to User Group"
	strMessage = "You have been released from " & strPrisonForum & " and returned to the User Group to which you previously belonged."
	strMessage = strMessage & "Welcome back to " & strForumURL & "."
	strExcon=strRecipientsName
	%>
	<!--#INCLUDE FILE="inc_mail.asp" -->
	<%
	'##  Administrator Notification ##
	strRecipients = strSender
	strRecipientsName = strForumTitle
	strFrom = strSender
	strFromName = strForumTitle
	strsubject = strForumTitle & " Prison Action"
	strMessage = "" & strExcon & " has been released from " & strPrisonForum & "." & vbNewLine
	%>
	<!--#INCLUDE FILE="inc_mail.asp" -->
	<%
	rsMail.close
	set rsMail = nothing
End Function

Function SendPrisonMail
	strSql = "SELECT M_EMAIL, M_NAME FROM " & strMemberTablePrefix & "MEMBERS " &_
		"WHERE M_NAME = '" & Request.Form("IMember") & "'"
	set rsFMail = my_conn.execute(strSql)
	strRecipients = rsFMail("M_EMAIL")
	strRecipientsName = rsFMail("M_NAME")
	strFrom = strForumTitle
	strSubject = "Confinement to " & strPrisonForum & ""
	strMessage = "Your account on " & strForumTitle & " has been placed under review.  You will remain confined to the " & strPrisonForum & " forum "
	strMessage = strMessage & "until the moderators or administrators are satisfied that the issue(s) have been resolved.  At that point, "
	strMessage = strMessage & "you will be released from " & strPrisonForum & " and returned to the User Group to which you previously belonged.  "
	strMessage = strMessage & "Please post any questions/comments/rebuttals to the issue in the " & strPrisonForum & " forum, where they will be addressed.  "
	strMessage = strMessage &	"Do not reply to this message, this service is not monitored."
	strConvict=strRecipientsName
	%>
	<!--#INCLUDE FILE="inc_mail.asp" -->
	<%
	'	##  Administrator Notification ##
	strRecipients = strSender
	strRecipientsName = strForumTitle
	strFrom = strSender
	strFromName = strForumTitle
	strsubject = strForumTitle & " Prison Action"
	strMessage = "" & strConvict & " has been confined to " & strPrisonForum & "." & vbNewLine
	%>
	<!--#INCLUDE FILE="inc_mail.asp" -->
	<%
	rsFMail.close
	set rsFMail = nothing
End Function

dim tmpStrNames
tmpStrNames=""
if mLev < 3 then
	Response.Write	"<P><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><a href=""default.asp"">No Access.  Returning to the forums.</a></b></font></p>" & vbNewLine & _
		"<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine
end if
Response.Write	"      <table border=""0"" width=""50%"">" & 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(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " <a href=""warden.asp"">Prison and Parole Manager</a><br /> </font></td>" & vbNewLine & _
	"        </tr>" & vbNewLine & _
	"      </table>" & vbNewLine
if request.form("Method_Type")="Imprison" then
	strSql=	"SELECT U.USERGROUP_ID,M.MEMBER_ID,U.MEMBER_TYPE,U.ORIGINAL_ID "&_
	"FROM "&strTablePrefix&"USERGROUP_USERS U,"&strMemberTablePrefix&"MEMBERS M "&_
	"WHERE M.M_NAME='"&chkstring(request.form("IMember"),"sqlstring")&"' "&_
	"AND U.MEMBER_ID=M.MEMBER_ID"
	set objRs=my_conn.execute(strSql)
	if objRs.EOF or objRs.BOF then
		' do nothing
	else
		RPRISON_ID = objRs("MEMBER_ID")
		Set ObjRelease = Server.CreateObject("ADODB.Recordset")
		strSQL = "UPDATE " & strTablePrefix & "USERGROUP_USERS SET " & _
			"ORIGINAL_ID=" & objRs("USERGROUP_ID") & _
			", USERGROUP_ID=1, RELEASE_DATE='0' " &_
			"WHERE MEMBER_ID=" & objRs("MEMBER_ID") & ""
		set objRelease=my_conn.execute(strSQL)
		sendPrisonMail
	end if
	if mLev < 4 then
		Response.Write	"<P><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><a href=""moderator_home.asp"">Returning to Moderator Home</a></b></font></p>" & vbNewLine & _
			"<meta http-equiv=""Refresh"" content=""2; URL=moderator_home.asp"">" & vbNewLine
	end if
	if mLev > 3 then
		Response.Write	"<P><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><a href=""admin_home.asp"">Returning to Admin Home</a></b></font></p>" & vbNewLine & _
			"<meta http-equiv=""Refresh"" content=""2; URL=admin_home.asp"">" & vbNewLine
	end if
	WriteFooter
	Response.End
end if
if request.form("Method_Type")="Release" then
	strSql=	"SELECT U.USERGROUP_ID,M.MEMBER_ID,U.MEMBER_TYPE,U.ORIGINAL_ID "&_
		"FROM "&strTablePrefix&"USERGROUP_USERS U,"&strMemberTablePrefix&"MEMBERS M "&_
		"WHERE M.M_NAME='"&chkstring(request.form("RPrisoner"),"sqlstring")&"' "&_
		"AND U.MEMBER_ID=M.MEMBER_ID"
	set objRs=my_conn.execute(strSql)
	intOI=objRS("ORIGINAL_ID")
	if objRs.BOF or objRs.EOF then
		'do nothing
	else
		RPRISON_ID = objRs("MEMBER_ID")
		Set ObjRelease = Server.CreateObject("ADODB.Recordset")
		strSQL = "UPDATE " & strTablePrefix & "USERGROUP_USERS SET " & _
			"USERGROUP_ID="& intOI &_
			", RELEASE_DATE='0' WHERE MEMBER_ID=" & objRs("MEMBER_ID") & ""
		set objRelease=my_conn.execute(strSQL)
		sendReleaseMail
	end if
	if mLev < 4 then
		Response.Write	"<P><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><a href=""moderator_home.asp"">Returning to Moderator Home</a></b></font></p>" & vbNewLine & _
			"<meta http-equiv=""Refresh"" content=""2; URL=moderator_home.asp"">" & vbNewLine
	end if
	if mLev > 3 then
		Response.Write	"<P><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><a href=""admin_home.asp"">Returning to Admin Home</a></b></font></p>" & vbNewLine & _
			"<meta http-equiv=""Refresh"" content=""2; URL=admin_home.asp"">" & vbNewLine
	end if
	WriteFooter
	Response.End
end if
Response.Write	"	<table width=""75%"" border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"">" & vbNewLine & _
	"		<tr>" & vbNewLine & _
	"			<td width=""100%"" bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
	"				<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
	"					<tr valign=""middle"">" & vbNewLine & _
	"						<td align=""center"" width=""100%"" bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
	"							<font face=""" & strHeaderFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHeadFontColor & """><b><br>Prison Population<br> </b>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr valign=""top"">" & vbNewLine & _
	"						<td width=""100%"" bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
	"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>Inmates:  " & vbNewLine
strSql = "SELECT G.USERGROUP_ID, G.MEMBER_ID, " &_
	"M.MEMBER_ID, M.M_NAME " &_
	"FROM " & strTablePrefix & "USERGROUP_USERS G, " & strMemberTablePrefix & "MEMBERS M " &_
	"WHERE G.USERGROUP_ID = 1 AND M.MEMBER_ID = G.MEMBER_ID " &_
	"ORDER BY M_NAME"
set rsNames = my_conn.execute(strSql)
Do while not rsNames.EOF and not rsNames.BOF
	if tmpStrNames = "" then
		tmpStrNames = rsNames("M_NAME")
	else
		tmpStrNames = tmpStrNames & ", " & rsNames("M_NAME")
	end if
rsNames.movenext
loop
Response.Write	tmpStrNames
rsNames.close
set rsNames = Nothing
Response.Write	"								</font>" & vbNewLine & _
	"						<br> </td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"					<tr>" & vbNewLine & _
	"						<td width=""100%"" bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
	"								<form action=""warden.asp"" method=""post"" id=""release"" name=""release"">" & vbNewLine & _
	"									<input type=""hidden"" value=""Release"" name=""Method_Type"">" & vbNewLine & _
	"										<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"">" & vbNewLine & _
	"											<tr>" & vbNewLine & _
	"												<td width=""100%"" align=""center"" bgcolor=""" & CategoryCellColor & """> <br>" & vbNewLine & _
	"													<input type=""text"" name=""RPrisoner"" size=""75"" maxlength=""75"">" & vbNewLine & _
	"													</input>" & vbNewLine & _
	"												</td>" & vbNewLine & _
	"											</tr>" & vbNewLine & _
	"											<tr valign=""middle"">" & vbNewLine & _
	"												<td width=""100%"" bgColor=""" & strForumCellColor & """ align=""center""><input type=""submit"" value=""Release Inmate"" id=""submit1"" name=""submit1"">" & vbNewLine & _
	"												</td>" & vbNewLine & _
	"											</tr>" & vbNewLine & _
	"										</table>" & vbNewLine & _
	"									</input>" & vbNewLine & _
	"								</form>" & vbNewLine & _
	"								<form action=""warden.asp"" method=""post"" id=""imprison"" name=""imprison"">" & vbNewLine & _
	"									<input type=""hidden"" value=""Imprison"" name=""Method_Type"">" & vbNewLine & _
	"										<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""1"" align=""center"">" & vbNewLine & _
	"											<tr>" & vbNewLine & _
	"												<td width=""100%"" align=""center"" bgcolor=""" & CategoryCellColor & """>" & vbNewLine & _
	"													<input type=""text"" name=""IMember"" size=""75"" maxlength=""75"">" & vbNewLine & _
	"													</input>" & vbNewLine & _
	"												</td>" & vbNewLine & _
	"											</tr>" & vbNewLine & _
	"											<tr valign=""middle"">" & vbNewLine & _
	"												<td width=""100%"" bgColor=""" & strForumCellColor & """ align=""center""><input type=""submit"" value=""Imprison Member"" id=""submit1"" name=""submit1"">" & vbNewLine & _
	"												</td>" & vbNewLine & _
	"											</tr>" & vbNewLine & _
	"										</table>" & vbNewLine & _
	"									</input>" & vbNewLine & _
	"								</form>" & vbNewLine & _
	"							</font>" & vbNewLine & _
	"						</td>" & vbNewLine & _
	"					</tr>" & vbNewLine & _
	"				</table>" & vbNewLine & _
	"			</td>" & vbNewLine & _
	"		</tr>" & vbNewLine & _
	"	</table> <br>" & vbNewLine
WriteFooter
%>

That's it. All done, wasn't so bad, was it?
© 2000-2021 Snitz™ Communications