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

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 User Group Prison Add-On		  New Topic  Reply to Topic
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

fastrax
Starting Member

35 Posts
Posted - 02 April 2009 :  20:14:12  Show Profile  Reply with Quote
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
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 02 April 2009 :  20:34:32  Show Profile  Reply with Quote
You could, yes. Just set your prison group to the default for new members, then allow only that forum for that level.
Go to Top of Page

fastrax
Starting Member

35 Posts
Posted - 03 April 2009 :  15:07:09  Show Profile  Reply with Quote
Thanks, I will give it a try then.
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 29 July 2010 :  04:33:49  Show Profile  Reply with Quote
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?
Edited by - Carefree on 29 July 2010 07:41:10
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous Page
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.14 seconds. Powered By: Snitz Forums 2000 Version 3.4.07