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)
 MOD: Avatar Categories W/ Avatar Gallery

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
SiSL Posted - 23 September 2005 : 14:36:52
-----------------------------------------------------------
AVATAR CATEGORIES for Snitz 3.4 v1.0
Posted 9/23/2005 - SiSL
-----------------------------------------------------------

This mod allows you to edit / manage categories for your Avatar Mod also includes modified version of Avatar Gallery mod by filo_2k

This package includes following files and REQUIRES AVATAR MOD by Hamlin for 3.4 over Richard Kinser's..

Excuse if I missed any step (my first public mod) Hope that helps.

Download

UPDATE: DBS file change
<
15   L A T E S T    R E P L I E S    (Newest First)
Carefree Posted - 15 July 2013 : 18:33:40
I didn't code your select option, but this should fix your previous issue.


<%
'###############################################################################
'##
'##	              Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 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
'##
'###############################################################################
'##  Part of the Avatar Mod by: Richard Kinser                                ##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE file="inc_header_short.asp" -->
<%
If strDBNTUserName <> "" Then
	%>
	<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>
	<%
	dim jj, bb
	bb = 0
	jj = Request.QueryString("mmmid")
	If jj = "" Then jj = 0
	%>
	<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>
					<%
					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)
					If not rsAv.EOF Then
						intHS=rsAv("AVATAR2.A_HSIZE")
						intWS=rsAv("AVATAR2.A_WSIZE")
						intAB=rsAv("AVATAR2.A_BORDER")
						rsAv.Close
					End If
					Set rsAv=Nothing
					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 "
					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"
					Set rs = Server.CreateObject("ADODB.Recordset")
					rs.cachesize = 20
					rs.Open(strSql, my_Conn, 3)
					If rs.EOF or rs.BOF Then
						%>
						<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
							intRSID=rs("MEMBER_ID")
							strAvatar=rs("M_AVATAR_url")
 							%>
							<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 = 1 - intI
							rec = rec + 1
						Loop
						rs.Close
					End If
					Set rs = 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=" & intRSID & "&avatar=" & strAvatar & "#" & strAvatar
End If
Response.Write "')">"
WriteFooterShort
%>
shaggy073077 Posted - 15 July 2013 : 17:12:09
quote:
Originally posted by Carefree

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
Carefree Posted - 15 March 2013 : 16:03:15
Post a link to your "inc_avatar.asp" file in .txt format; I'll solve it for you.
shaggy073077 Posted - 15 March 2013 : 13:53:03
I just thought of a better idea.

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.

Is this possbile?
shaggy073077 Posted - 15 March 2013 : 12:17:56
Ok now it kind of loads up. I see on the bottom of the screen this:

Microsoft VBScript runtime error- Error '800a000d'

Type mismatch: 'rs'

/inc_avatar.asp, line 157


I have changed to what you said and still can't pull up the gallery.
quote:
Originally posted by Carefree

Yes - line 159 needs a closing quotation mark, move the greater than symbol one space to the left like this:

Response.Write "')">"


Carefree Posted - 15 March 2013 : 10:45:18
Yes - line 159 needs a closing quotation mark, move the greater than symbol one space to the left like this:

Response.Write "')">"
shaggy073077 Posted - 15 March 2013 : 10:41:45
Can somebody tell me what I'm doing wrong.

Microsoft VBScript compilation error- Error '800a0409'

Unterminated string constant

/inc_avatar.asp, line 159

Response.Write "')"">
---------------------^


The problem lies in inc_avatar.asp which the part of the inc_avatar.asp file it's talking about is:

<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=""Galeri"" 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" -->


Any help?
Gort Posted - 21 April 2006 : 19:13:19
I found another problem....my avatars aren't uploading correctly.
For some reason, the strCatID is not making its way into my sql statement. response.write on the statements gives the following:

INSERT INTO FORUM_AVATAR (A_URL, A_NAME, A_MEMBER_ID, A_CATID) VALUES ('avatars/batman1.jpg', 'batman1', 0, )
Microsoft JET Database Engine error '80040e14'
Syntax error in INSERT INTO statement.

/board/avatar_upload.asp, line 201


Does anyone have any ideas?
<
Gort Posted - 21 April 2006 : 16:03:03
Great MOD!

But your text colors are off - you're defining <td> bgcolor as category background but you're not using category background font color.....

I fixed it by replacing strDefaultFontColor with strCategoryfontcolor where ever the the TD bgcolor was strCategoryCellColor<
Shaggy Posted - 29 September 2005 : 06:26:54
Whoa! I must've been looking at that dbs completely wrong!

<
SiSL Posted - 28 September 2005 : 21:07:19
You know whats funny?

I re-checked my codes now and you don't even need AC_ID in AVATAR table. Silly me, it was something I used in first tries and forgot to remove it and asking for your forgiveness. So I deleted this line, that's why it does not give error after installation. I use A_CATID for my variables, not AC_ID from AVATAR table :)

So I re-uploaded this mod to Snitzbitz, you can find download link at original post.
<
modifichicci Posted - 28 September 2005 : 17:25:39
ohhh so I was not wrong... Thank you again for my update knowledge!<
SiSL Posted - 28 September 2005 : 17:18:58
Thank you, I'm kinda new on DBS file editing also having questions like that :(

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=59629
<
Shaggy Posted - 28 September 2005 : 12:20:52
You're welcome

<
modifichicci Posted - 28 September 2005 : 11:48:13
Ok thank you!<

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