<%
'#########################################################################################
'## Copyright (C) 2000  Michael Anderson
'## 
'## 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
'#########################################################################################
'##  
'## Modified by R.E. Dulaney 
'## email: Ralph@woodburner.com
'## from inc_topmembers.asp
'## Simply add a block to the sitenews.asp where ever you would like the 
'## New Members displayed.
'##
'##
'#########################################################################################

app = "NewMembers"
apptitle = "New Members"
strShow = "strShow" & app
strSize = "strSize" & app
window = app & "Window"

if intMemberItems = 0 then
	intMemberItems = 5
end if

strSize = (request.querystring(app))
if strSize <> "" then
'####  Set Cookies For Menu Window
Response.Cookies(strUniqueID)(window)=(strSize)
'####  End of Set Cookies For Window
end if %>


<%if (Request.Cookies(strUniqueID)(Window)= "1") then '### Check Cookie For Minimize Status
' here is the code for the closed window display
%>
  <TABLE  BORDER=0 bgcolor="<% =strTableBorderColor %>" cellspacing="1" cellpadding="0" width="100%">
  <tr>
    <td bgcolor="<% =strHeadCellColor %>">
    <table>
    <tr>
      <td width="100%" valign="top">
      <font size="4" color="<% =StrHeadFontColor %>"><%= apptitle %></font>
      </td>
      <td align="right" valign="top"><a href="<%=Request.ServerVariables("script_name") %>?<%= app %>=0"><img src="<%= strImageURL %>icon_on.gif" border="0"></a>
      </td>
    </tr>
    </table>
    </td>
    </tr>
  </table>
<% else 
' and here comes the code of the open window.
%>

  <TABLE  BORDER=0 bgcolor="<% =strTableBorderColor %>" cellspacing="1" cellpadding="0" width="100%">
  <tr>
    <td bgcolor="<% =strHeadCellColor %>">
    <table>
    <tr>
      <td width="100%" valign="top">
      <font size="4" color="<% =StrHeadFontColor %>"> <%= apptitle %></font>
      </td>
      <td align="right" valign="top"><a href="<%=Request.ServerVariables("script_name") %>?<%= app %>=1"><img src="<%= strImageURL %>icon_off.gif" border="0"></a>
      </td>
    </tr>
    </table>
    
    </td>
  </tr>
  <tr>
    <td align="left" bgcolor="<%= strForumCellColor %>">

	<TABLE WIDTH=100% CELLPADDING=1 CELLSPACING=0>
		<TR>
			<TD width=50% bgcolor="<% =strCategoryCellColor %>" nowrap align=center><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize - 1 %>" color="<% =strHeadFontColor %>"> <B>USERNAME</B></font></TD>
			<TD width=50% bgcolor="<% =strCategoryCellColor %>" nowrap align=center><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize - 1 %>" color="<% =strHeadFontColor %>"> <B>DATE</B></font></TD>
		</TR>
		<TR>
			<TD bgcolor="black" colspan="2" nowrap height="1"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize - 2 %>" color="<% =strHeadFontColor %>"></font></TD>
		</TR>
<%
if strDBType = "mysql" then
	query = "SELECT MEMBER_ID, M_NAME, M_POSTS, M_DATE FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS=1 ORDER BY M_DATE DESC LIMIT " & intMemberItems
else
	query = "SELECT TOP " & intMemberItems & " MEMBER_ID, M_NAME, M_POSTS, M_DATE FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS=1 ORDER BY M_DATE DESC"
end if
set rstopmem = my_conn.execute (query)
rstopmem.movefirst
Do until rstopmem.EOF
	Response.Write "<TR><TD height='8'>"
	Response.Write "<font face=" & strDefaultFontFace & " size=" & strFooterFontSize - 1 & " color=" & strDefaultFontColor & "></FONT>"
	Response.Write "</TD></TR>"
	Response.Write "<TR><TD height='12'>"
	Response.Write "<font face=" & strDefaultFontFace & " size=" & strFooterFontSize & " color=" & strDefaultFontColor & ">  " & profileLink(rstopmem("M_NAME"),rstopmem("member_id")) & "</FONT>"
	Response.Write "</TD><TD>"
	Response.Write "<font face=" & strDefaultFontFace & " size=" & strFooterFontSize & " color=" & strDefaultFontColor & ">  " & ChkDate(rstopmem("M_DATE"),"",false) & "</FONT>"
	Response.Write "</TD></TR>"
	rstopmem.MoveNext
loop
	Response.Write "<TR><TD height='8'>"
	Response.Write "<font face=" & strDefaultFontFace & " size=" & strFooterFontSize - 1 & " color=" & strDefaultFontColor & "></FONT>"
	Response.Write "</TD></TR>"
rstopmem.Close
Set rspod = Nothing
%>
		</TABLE>
    </td>
  </tr> 
</table>
<% end if %>