Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 User Group Prison Add-On

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
Carefree Posted - 05 June 2008 : 19:22:41
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.
15   L A T E S T    R E P L I E S    (Newest First)
Carefree Posted - 29 July 2010 : 04:33:49
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"


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".


<%
'###############################################################################
'##
'##			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"


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"


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.


<%
'###############################################################################
'##
'## 	                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?
fastrax Posted - 03 April 2009 : 15:07:09
Thanks, I will give it a try then.
Carefree Posted - 02 April 2009 : 20:34:32
You could, yes. Just set your prison group to the default for new members, then allow only that forum for that level.
fastrax Posted - 02 April 2009 : 20:14:12
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
texanman Posted - 17 July 2008 : 16:19:36
quote:
Originally posted by golfmann

Dis joint'l never hold me....

see?


I see!
Said the blind man to his deaf daughter!<
golfmann Posted - 17 July 2008 : 16:01:21
Dis joint'l never hold me....

see?<
texanman Posted - 17 July 2008 : 13:24:14
I understand. Some pull down menus have the feature of pointing to the list as you type the first few letters of the name.<
Carefree Posted - 17 July 2008 : 11:58:02
It wouldn't be that much trouble, but some systems have 20000 members ... typing would be infinitely faster.<
texanman Posted - 17 July 2008 : 08:25:38
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 Posted - 16 July 2008 : 22:40:32
quote:
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.<
Carefree Posted - 16 July 2008 : 22:27:55
quote:
your link does not work


Replaced file.

Warden.txt
GeneratedSource.txt - you'll have to r-click & save this one
FF Image
IE Image<
texanman Posted - 16 July 2008 : 13:29:43
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.<
HuwR Posted - 16 July 2008 : 13:22:53
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 Posted - 16 July 2008 : 12:56:52
quote:
Originally posted by HuwR

quote:
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 Posted - 16 July 2008 : 12:42:55
quote:
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

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.09 seconds. Powered By: Snitz Forums 2000 Version 3.4.07