inc_avatar.asp file it's to be rewritten and recoded I think completely.
Here's what I'd like:
1.) have this mod installed
2.) go into acp--->avatar home--->then click on review/edit avatar.
3.) there u go. That small window is what I'd like to show. the one on top that says "Avatar Catagories" and then right below that it says "Pick a catagory to view:<drop down menu>" That window right there.
I have noticed that with this mod inc_avatar.asp page seems to have all avatars running down in ascending order instead of above mentioned #3 and just that window there in inc_avatar.asp.
Post a link to your "inc_avatar.asp" file in .txt format; I'll solve it for you.
<%
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## 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 Avatar Mod by: Richard Kinser ##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE file="inc_header_short.asp" -->
<%
'###### Avatar addon #####
if strDBNTUserName <> "" then
'###### Avatar addon #####
%>
<script language="JavaScript">
function retinfo(V2,width,height)
{
window.opener.document.forms['Form1'].<%= Request.QueryString("box")%>.value=V2;
window.opener.document.forms['Form1'].AvatarW.value=width;
window.opener.document.forms['Form1'].AvatarH.value=height;
self.close();
}
</script>
<%
'###### Avatar addon #####
dim jj, bb
bb = 0
jj = Request.QueryString("mmmid")
if jj = "" then jj = 0
'###### Avatar addon #####
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="top">
<tr>
<td bgcolor="<% =strTableBorderColor %>">
<table width="100%" align="center" border="0" cellspacing="1" cellpadding="4">
<tr>
<td align="left" bgcolor="<% =strHeadCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Our Avatars</font></b></td>
</tr>
<tr>
<td align="center" bgcolor="<% =strCategoryCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Preview</font></b></td>
<td align="center" bgcolor="<% =strCategoryCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Select This Avatar</font></b></td>
</tr>
<%
'## Forum_SQL - Get Avatar Settings from DB
strSql = "SELECT " & strTablePrefix & "AVATAR2.A_HSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_WSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER"
strSql = strSql & " FROM " & strTablePrefix & "AVATAR2"
set rsav = my_Conn.Execute (strSql)
'## Forum_SQL - Get Avatars from DB
strSql = "SELECT " & strTablePrefix & "AVATAR.A_ID"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_URL"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_NAME"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_WIDTH"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_HEIGHT"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_MEMBER_ID"
strSql = strSql & " FROM " & strTablePrefix & "AVATAR "
'###### Avatar addon #####
strSql = strSql & " WHERE " & strTablePrefix & "AVATAR.A_MEMBER_ID = " &jj
strSql = strSql & " OR " & strTablePrefix & "AVATAR.A_MEMBER_ID = " &bb
strSql = strSql & " ORDER BY " & strTablePrefix & "AVATAR.A_ID ASC;"
'###### Avatar addon #####
set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize = 20
rs.open strSql, my_Conn, 3
if rs.EOF or rs.BOF then '## No replies found in DB
%>
<tr>
<td bgcolor="<% =strForumFirstCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>" valign="top"><b>No Avatars Found</b></font></td>
</tr>
<%
else
rs.movefirst
rs.pagesize = strPageSize
maxpages = cint(rs.pagecount)
intI = 0
howmanyrecs = 0
rec = 1
do until rs.EOF '**
if intI = 0 then
CColor = strForumFirstCellColor
else
CColor = strAltForumCellColor
end if
%>
<tr>
<td bgcolor="<% =CColor %>" valign="center" align="center" nowrap><img src="<% =rs("A_URL") %>" width=<% =rs("A_WIDTH") %> height=<% =rs("A_HEIGHT") %> border=<% =rsav("A_BORDER") %> hspace=0 alt="<% =rs("A_NAME") %>"></td>
<td bgcolor="<% =CColor %>" valign="center" align="center"><p><form>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><input class=buttons type="button" onClick="JavaScript:retinfo('<% =rs("A_URL") %>','<% =rs("A_WIDTH") %>','<% =rs("A_HEIGHT") %>')" value="Use This Avatar"></font></form></p>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Avatar Name:</b><br><% =rs("A_NAME") %></font></td>
</tr>
<%
rs.MoveNext
intI = intI + 1
if intI = 2 then
intI = 0
end if
rec = rec + 1
loop
end if
rs.close
set rs = nothing
set rsav = nothing
%>
</table></td>
</tr>
</table>
<br>
<%
else
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>You must register first, login and then edit profile to select avatar.</font></p>" & vbNewline
end if
Response.Write "<br><p>" & vbNewLine & _
"<input value=""Gallery"" name=""gallery"" type=""button"" onclick=""openWindow3('pop_avatar_gallery.asp?mode=" & Request.Querystring("mode") & ""
if Request.Querystring("mode") <> "Register" then
Response.Write "&member=" & rs("Member_ID") & "&avatar=" & rs("M_AVATAR_URL") & "#" & rs("M_AVATAR_URL")
end if
Response.Write "')">""
%>
<!--#INCLUDE file="inc_footer_short.asp" -->
There u go. Sorry for the delay been on vacation. It seems like there's no such thing as vacation cuz u work and there's pretty much no R&R. I went camping. So there was pretty much not really R&R. I went July 1st and 2nd and threw in the towel the morning of the second. My knee caps (both of'em at the same time) and allergies. I said see'ya I'll be back. Been working 100 mph since. Sorry for the delay in response
MOD: Avatar Categories W/ Avatar Gallery
Posted - 15 March 2013 : 10:45:18
