<%
'#################################################################################
'## Copyright (C) 2000-01 Michael Anderson, Pierre Gorissen
'##                       Huw Reddick and Richard Kinser
'## 
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## 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 the 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 the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com 
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'##       Part of the Private Messages MOD for Snitz Forums 2000 v3.4.04        ##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_common.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<%

if strDBNTUserName = "" then
	Response.Redirect "default.asp"
	Response.End
else
if trim(chkString(Request("method"),"SQLString")) <> "" then
	SortMethod = trim(chkString(Request("method"),"SQLString"))	
end if
strSortIconOn = getCurrentIcon(strIconPmSortASC,"Sort Messages","hspace=""4"" align=""absmiddle""")
strSortIconOff = getCurrentIcon(strIconPmSortDESC,"Sort Messages","hspace=""4"" align=""absmiddle""")		

select case SortMethod
	case "subjectinasc"
		strSql4 = " ORDER BY P.M_SUBJECT ASC, P.M_FROM DESC"
	case "subjectindesc"
		strSql4 = " ORDER BY P.M_SUBJECT DESC, P.M_FROM DESC"
	case "subjectoutasc"
		strSql4 = " ORDER BY P.M_SUBJECT ASC, P.M_TO DESC"
	case "subjectoutdesc"
		strSql4 = " ORDER BY P.M_SUBJECT DESC, P.M_TO DESC"
	case "frominasc"
		strSql4 = " ORDER BY P.M_FROM ASC, P.M_SENT DESC"
	case "fromindesc"
		strSql4 = " ORDER BY P.M_FROM DESC, P.M_SENT DESC"
	case "tooutasc"
		strSql4 = " ORDER BY P.M_TO ASC, P.M_SUBJECT ASC, P.M_SENT DESC"
	case "tooutdesc"
		strSql4 = " ORDER BY P.M_TO DESC, P.M_SUBJECT DESC, P.M_SENT DESC"
	case "sentinasc"
		strSql4 = " ORDER BY P.M_SENT ASC, P.M_SUBJECT ASC, P.M_TO DESC"
	case "sentindesc"
		strSql4 = " ORDER BY P.M_SENT DESC, P.M_SUBJECT DESC, P.M_TO DESC"
	case "sentoutasc"
		strSql4 = " ORDER BY P.M_SENT ASC, P.M_FROM DESC"
	case "sentoutdesc"
		strSql4 = " ORDER BY P.M_SENT DESC, P.M_FROM DESC"	
	case else
		strSql4 = " ORDER BY P.M_SENT DESC"
end select


	if Request.Cookies(strCookieURL & "paging")("outbox") = "" then
	       	if strSetCookieToForum = 1 then
       			Response.Cookies(strCookieURL & "paging").Path = strCookieURL
	 	end if
		'#######################################################################
		'#######  Right now if a user doesn't have an OUTBOX preference  #######
		'#######  set in their cookie it will default to double          #######
		'#######                                                         #######
		'#######  If you want to change it, just change "double" below   #######
		'#######  to either "single" or "none"                           #######
		'#######################################################################

		Response.Cookies(strCookieURL & "paging")("outbox") = "double"
		Response.Cookies(strCookieURL & "paging").Expires = dateAdd("d", 360, strForumTimeAdjust)
	end if
	Response.Write	"<center>" & vbNewLine & _
			"<form action=""pm_delete.asp"" method=""post"" name=""DeleteTopic"">" & vbNewLine
%>
	<script language="JavaScript">
	<!-- hide from JavaScript-challenged browsers
        window.name = 'pm_main';
	function pmmembers() { var MainWindow = window.open ("pm_members.asp", "","toolbar=no,location=no,menubar=no,scrollbars=yes,width=250,height=500,top=100,left=100,resizeable=yes,status=no");
	}
	// done hiding -->
	</script>
	<SCRIPT LANGUAGE="JavaScript">
	<!-- Modified By:  Steve Robison, Jr. (stevejr@ce.net) -->

	<!-- This script and many more are available free online at -->
	<!-- The JavaScript Source!! http://javascript.internet.com -->

	<!-- Begin
	var checkflag = "false";
	function check(field) {
	if (checkflag == "false") {
	for (i = 0; i < field.length; i++) {
	field[i].checked = true;}
	checkflag = "true";
	return "Uncheck All"; }
	else {
	for (i = 0; i < field.length; i++) {
	field[i].checked = false; }
	checkflag = "false";
	return "Check All"; }
	}
	//  End -->
	</script>
<%

	Response.Write	"<table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
			"  <tr>" & vbNewLine & _
			"    <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"    " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & "&nbsp;<a href=""default.asp"">All Forums</a><br>" & vbNewLine & _
			"    " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & "&nbsp;<a href=""pm_view.asp"">Private Messages</a></font></td>" & vbNewLine & _
			"  </tr>" & vbNewLine & _
			"</table>" & vbNewLine

	if strDBType = "access" then
		strSqL = "SELECT count(M_TO) as [pmtotal] FROM " & strTablePrefix & "PM P," & strMemberTablePrefix & "MEMBERS M WHERE M.M_NAME = '" & strDBNTUserName & "' AND M.MEMBER_ID = P.M_TO"
	else
        	strSqL = "SELECT count(M_TO) as pmtotal FROM " & strTablePrefix & "PM P," & strMemberTablePrefix & "MEMBERS M WHERE M.M_NAME = '" & strDBNTUserName & "' AND M.MEMBER_ID = P.M_TO"
    end if     
	
	Set rsPM = my_Conn.Execute(strSql)
	pmtotal = rsPM("pmtotal")
	
	rsPM.close
	set rsPM = nothing

Response.Write    " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""1"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
			" <tr>" & vbNewLine & _
  			" <td width=""100%"">" & vbNewLine & _
      		" <table border=""0"" width=""100%"" bgcolor=""" & strPopUpTableColor & """ cellspacing=""0"" cellpadding=""0"">"  & vbNewLine & _
			" <tr>" & vbNewLine & _
  			" <td width=""50%"" align=""center"">" & vbNewLine
	If pmtotal = strPMLimit or pmtotal > strPMLimit then
		Response.Write ("<center><b><font face=""" & strDefaultFontFace & """ color=""" & StrHiLiteFontColor & """ size=""" & strFooterFontSize & """>You have reached your private message limit of " & strPMLimit & ".<br>To send further private messages you must clean your Inbox.</font></center>")
	else
		Response.Write ("<center><b><font face=""" & strDefaultFontFace & """ color=""" & strDefaultFontColor & """ size=""" & strFooterFontSize & """>You currently have " & pmtotal & " saved private messages.<br>Your Inbox limit is " & strPMLimit & ".<br>Please delete your messages once you have read them.</font></center>")
	end if
Response.Write 	" </td>" & vbNewLine & _
			" <td width=""50%"" align=""right"">" & vbNewLine
	if Request.Cookies(strCookieURL & "paging")("OUTBOX") = "double" and Request.QueryString("view") <> "outbox" then Response.Write ("<a href=""pm_view.asp?view=outbox"">" & getCurrentIcon(strIconPmoutbox,"Outbox","hspace=""0""") & "</a>")
	if Request.Cookies(strCookieURL & "paging")("OUTBOX") = "double" and Request.QueryString("view") = "outbox" then Response.Write ("<a href=""pm_view.asp"">" & getCurrentIcon(strIconPminbox,"Inbox","hspace=""0""") & "</a>")
	If pmtotal < strPMLimit or mLev > 2 then
	Response.Write	("<a href=""privatesend.asp?method=Topic"">" & getCurrentIcon(strIconPmnewBig,"Write a New Message","hspace=""0""") & "</a>")
	end if		
	Response.Write "<a href=""pm_view.asp"">" & getCurrentIcon(strIconPmreceive,"Check for New Messages","hspace=""0""") & "</a><a href=""members.asp"">" & getCurrentIcon(strIconPmmemberlist,"Browse the Memberlist","hspace=""0""") & "</a><a href=""pm_options.asp"">" & getCurrentIcon(strIconPmprivpref,"Set Your Private Message Preferences","hspace=""0""") & "</a><a href=""pm_blocklist.asp"">" & getCurrentIcon(strIconPmblocklist,"View Your Blocked List","hspace=""0""") & "</a></td>" & vbNewLine & _
			" </tr>" & vbNewLine & _
			" </table>" & vbNewLine & _
			" </td>" & vbNewLine & _
			" </tr>" & vbNewLine & _
			" </table>" & vbNewLine & _
			" <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
			" <tr>" & vbNewLine & _
			" <td height=""10"">" & vbNewLine & _
			" </td>" & vbNewLine & _
			" </tr>" & vbNewLine & _
			" </table>" & vbNewLine
	if Request.QueryString("view") <> "outbox" then
		Response.Write	"	<table bgcolor=""" & strTableBorderColor & """ border=""0"" cellpadding=""4"" border=""0"" cellspacing=""1"" width=""100%"">" & vbNewLine & _
				"  <tr bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
				"    <td width=""20""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>&nbsp;</font></td>" & vbNewLine & _
				"    <td width=""60%""><a href=""pm_view.asp?method="
				if Request.QueryString("method") = "subjectindesc" then Response.Write("subjectinasc" & """>" & strSortIconOn) else Response.Write("subjectindesc" & """>" & strSortIconOff)
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & strDBNTUserName & "'s Inbox</b></font></a></td>" & vbNewLine & _
				"    <td width=""150"" nowrap><a href=""pm_view.asp?method="
				if Request.QueryString("method") = "fromindesc" then Response.Write("frominasc" & """>" & strSortIconOn) else Response.Write("fromindesc" & """>" & strSortIconOff)
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>From</b></font></td>" & vbNewLine & _
				"    <td nowrap><a href=""pm_view.asp?method="
				if Request.QueryString("method") = "sentindesc" then Response.Write("sentinasc" & """>" & strSortIconOn) else Response.Write("sentindesc" & """>" & strSortIconOff)
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Date Sent</b></font></td>" & vbNewLine & _
				"    <td width=""40""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Delete?</b></font></td>" & vbNewLine & _
				"  </tr>" & vbNewLine
				
		if Request.QueryString("marknew") = "1" then	
			strSql = "UPDATE " & strTablePrefix & "PM SET " & strTablePrefix & "PM.M_READ = 0 WHERE (" & strTablePrefix & "PM.M_ID = " & cLng(Request.QueryString("id")) & ");"		
			my_conn.Execute (strSql)		
		end if

		Response.Flush

		strSql = "SELECT M.MEMBER_ID, M.M_NAME, P.M_ID, P.M_TO, P.M_SUBJECT, P.M_SENT, P.M_FROM, P.M_READ FROM " & strMemberTablePrefix & "MEMBERS M , " & strTablePrefix & "PM P WHERE M.M_NAME = '" & strDBNTUserName & "' AND M.MEMBER_ID = P.M_TO" 


		Set rsMessage = my_Conn.Execute(strSql & strSql4)

		if rsMessage.EOF or rsMessage.BOF then  '## No Private Messages found in DB
			InboxEmpty = "Yes"
			Response.Write	"  <tr bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
					"    <td bgcolor=""" & strForumFirstCellColor & """>&nbsp;</td>" & vbNewLine & _
					"    <td bgcolor=""" & strForumFirstCellColor & """ colspan=""5""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>You have no Private Messages in your Inbox</b></font></td>" & vbNewLine & _
					"  </tr>" & vbNewLine
		else
			icount = 0
			i = 0
		      	do Until rsMessage.EOF
				if i = 1 then
					CColor = strForumCellColor
				else
					CColor = strForumCellColor
				end if

				strFromMemberName = getMemberName(rsMessage("M_FROM"))
				strIsNew = rsMessage("M_READ")

				Response.Write	"  <tr bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
						"    <td align=""center"" bgcolor=""" & CColor & """>"
				if strIsNew = "0" then
					Response.Write  (getCurrentIcon(strIconPmnewSm,"New Message","hspace=""0"""))
				else
					Response.Write	"<span class=""spnMessageText""><a href=""pm_view.asp?marknew=1&id=" & rsMessage("M_ID") & """>" & (getCurrentIcon(strIconPmOld,"Click here to mark this message new","hspace=""0""")) & "</a></span>"
				end if
				Response.Write	"</td>" & vbNewLine & _
						"    <td bgcolor=""" & CColor & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText""><a href=""privateread.asp?id=" & rsMessage("M_ID") & """>" & strNewPMs & rsMessage("M_SUBJECT") & strNewPMe & "</a></span></font></td>" & vbNewLine & _
						"    <td bgcolor=""" & CColor & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
				if strUseExtendedProfile then
					Response.Write	"<span class=""spnMessageText""><a href=""pop_profile.asp?mode=display&id=" & rsMessage("M_FROM") & """>" & strNewPMs & strFromMemberName & strNewPMe & "</a></span></font></td>" & vbNewLine
				else
					Response.Write	"<span class=""spnMessageText""><a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & rsMessage("M_FROM") & "')"">" & strNewPMs & strFromMemberName & strNewPMe & "</a></span></font></td>" & vbNewLine
				end if
				strDateTime = rsMessage("M_SENT")
				Response.Write	"    <td nowrap bgcolor=""" & CColor & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strNewPMs & ChkDate(strDateTime, "&nbsp;:&nbsp;" ,true) & "&nbsp;&nbsp;" & strNewPMe & "</font></td>" & vbNewLine & _
						"    <td align=""center"" bgcolor=""" & CColor & """><input type=""checkbox"" name=""DELETE"" value=""" & rsMessage("M_ID") & """></td>" & vbNewLine & _
						"  </tr>" & vbNewLine
				rsMessage.MoveNext
				icount = icount + 1
				i = i + 1
				if i = 2 then i = 0
			loop
		end if
		rsMessage.close
		set rsMessage = nothing
		Response.Write	"</table>" & vbNewLine & _
				"<table border=""0"" cellpadding=""2"" border=""0"" cellspacing=""0"" width=""100%"">" & vbNewLine & _
				"  <tr>" & vbNewLine
		if InboxEmpty <> "Yes" then
			Response.Write	"    <td align=""right""><input type=""submit"" value=""Delete"">"
			if icount > 1 then
				Response.Write	" <input type=""button"" value=""Check All"" onClick=""this.value=check(this.form.DELETE)"">"
			end if
		end if
		Response.Write	"    </td>" & vbNewLine & _
				"  </tr>" & vbNewLine & _
				"</table>" & vbNewLine & _
				"</form>" & vbNewLine
	end if
	if Request.Cookies(strCookieURL & "paging")("OUTBOX") = "single" or Request.QueryString("view") = "outbox" then
Response.Write	"<center>" & vbNewLine & _
				"<form action=""pm_delete.asp"" method=""post"" name=""RemoveTopic"">" & vbNewLine & _
				"<input name=""RemoveTopic"" type=""hidden"" value=""1"">" & vbNewLine & _
				"<table border=""0"" cellpadding=""4"" border=""0"" cellspacing=""1"" width=""100%"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
				"  <tr bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
				"    <td width=""20""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>&nbsp;</font></td>" & vbNewLine & _
				"    <td width=""60%""><a href=""pm_view.asp?view=outbox&method="
				if Request.QueryString("method") = "subjectoutdesc" then Response.Write("subjectoutasc" & """>" & strSortIconOn) else Response.Write("subjectoutdesc" & """>" & strSortIconOff)
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>" & strDBNTUserName & "'s Outbox</b></font></a></td>" & vbNewLine & _
				"    <td width=""150"" nowrap><a href=""pm_view.asp?method="
				if Request.QueryString("method") = "fromoutdesc" then Response.Write("tooutasc" & """>" & strSortIconOn) else Response.Write("tooutdesc" & """>" & strSortIconOff)
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Sent To</b></font></td>" & vbNewLine & _
				"    <td nowrap><a href=""pm_view.asp?method="
				if Request.QueryString("method") = "sentoutdesc" then Response.Write("sentoutasc" & """>" & strSortIconOn) else Response.Write("sentoutdesc" & """>" & strSortIconOff)
Response.Write  "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Date Sent</b></font></td>" & vbNewLine & _
				"    <td width=""40""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Remove?</b></font></td>" & vbNewLine & _
				"  </tr>" & vbNewLine

		'#PM SQL get private messages
		strSql = "SELECT M.MEMBER_ID, M.M_NAME, P.M_ID, P.M_TO, P.M_SUBJECT, P.M_SENT, P.M_FROM, P.M_READ, P.M_OUTBOX FROM " & strMemberTablePrefix & "MEMBERS M , " & strTablePrefix & "PM P WHERE M.M_NAME = '" & strDBNTUserName & "' AND M.MEMBER_ID = P.M_FROM AND P.M_OUTBOX = 1"

		Set rsFMessage = my_Conn.Execute(strSql & strSql4)

		if rsFMessage.EOF or rsFMessage.BOF then  '## No Private Messages found in DB
			OutBoxEmpty = "Yes"
			Response.Write	"  <tr bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
					"    <td bgcolor=""" & strForumFirstCellColor & """>&nbsp;</td>" & vbNewLine & _
					"    <td bgcolor=""" & strForumFirstCellColor & """ colspan=""4""><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>You have no Private Messages in your Outbox</b></font></td>" & vbNewLine & _
					"  </tr>" & vbNewLine
		else
		        ocount = 0
		        o = 0
			do Until rsFMessage.EOF
				if o = 1 then
					CColor = strForumCellColor
				else
					CColor = strForumCellColor
				end if

				strTOMemberName = getMemberName(rsFMessage("M_TO"))
				strIsRead = rsFMessage("M_READ")

				Response.Write	"  <tr bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
						"    <td align=""center"" bgcolor=""" & CColor & """>"
				if strIsRead = "0" then
					Response.Write	getCurrentIcon(strIconPmnewsm,"" & strTOMemberName & " has not read this message yet.","align=""absmiddle""")
				else
					Response.Write	getCurrentIcon(strIconPmOld,"" & strTOMemberName & " has read this message yet.","align=""absmiddle""")
				end if
				Response.Write	"</td>" & vbNewLine & _
						"    <td bgcolor=""" & CColor & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText""><a href=""privatesent.asp?id=" & rsFMessage("M_ID") & """>" & strReadPMs & rsFMessage("M_SUBJECT") & strReadPMe & "</a></span></font></td>" & vbNewLine & _
						"    <td bgcolor=""" & CColor & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
				if strUseExtendedProfile then
					Response.Write	"<span class=""spnMessageText""><a href=""pop_profile.asp?mode=display&id=" & rsFMessage("M_TO") & """>" & strReadPMs & strTOMemberName & strReadPMe & "</a></span></font></td>"
				else
					Response.Write	"<span class=""spnMessageText""><a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & rsFMessage("M_TO") & "')"">" & strReadPMs & strTOMemberName & strReadPMe & "</a></span></font></td>"
				end if
				strDateTime = rsFMessage("M_SENT")
				Response.Write	"    <td nowrap bgcolor=""" & CColor & """><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & strReadPMs & ChkDate(strDateTime, "&nbsp;:&nbsp;" ,true) & "&nbsp;&nbsp;" & strReadPMe & "</font></td>" & vbNewLine & _
						"    <td align=""center"" bgcolor=""" & CColor & """><input type=""checkbox"" name=""Remove"" value=""" & rsFMessage("M_ID") & """></td>" & vbNewLine & _
						"  </tr>" & vbNewLine
				rsFMessage.MoveNext
				ocount = ocount + 1
				o = o + 1
				if o = 2 then o = 0
			loop
		end if
		rsFMessage.close
		set rsFMessage = nothing
		Response.Write	"</table>" & vbNewLine & _
				"<table border=""0"" cellpadding=""2"" border=""0"" cellspacing=""0"" width=""100%"">" & vbNewLine & _
				"  <tr>" & vbNewLine
		if OutBoxEmpty <> "Yes" then
			Response.Write	"    <td align=""right""><input type=""submit"" value=""Remove"">"
			if ocount > 1 then
				Response.Write	" <input type=""button"" value=""Check All"" onClick=""this.value=check(this.form.Remove)"">"
			end if
		end if
		Response.Write	"    </td>" & vbNewLine & _
				"  </tr>" & vbNewLine & _
				"</table>" & vbNewLine & _
				"</form>" & vbNewLine & _
				"</center>" & vbNewLine
	end if
end if
WriteFooter
Response.End
%>