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/O Code)
 Adding Flash Avtars to Avatar Mod.		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Nathan
Help Moderator

USA
7664 Posts
Posted - 01 April 2002 :  01:28:49  Show Profile  Visit Nathan's Homepage
Here is an excerp from the readme files with the nessisary changes to display flash avtars.

*******************************
In the file:  TOPIC.ASP       *
*******************************
 
look for this code:  (around line #383)
-------------------------------------------
 
        <br><% if Trim(rsReplies("M_AVATAR_URL")) <> "" and lcase(rsReplies("M_AVATAR_URL")) <> "noavatar.gif" and (IsNull(rsReplies("M_AVATAR_URL")) = false) then %>
<%	'## Forum_SQL - Get Avatar Settings from DB
	strSql = "SELECT " & strTablePrefix & "AVATAR2.A_WSIZE"
	strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_HSIZE"
	strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER"
	strSql = strSql & " FROM " & strTablePrefix & "AVATAR2"
 
	set rsav = my_Conn.Execute (strSql) %>
        <img src="<% =rsReplies("M_AVATAR_URL") %>" align="absmiddle" width=<% =rsav("A_WSIZE") %> height=<% =rsav("A_HSIZE") %> border=<% =rsav("A_BORDER") %> hspace="0" ><% set rsav = nothing %><% end if %>
 
replace the line that has just the <br> on it with this:
 
        <br><% = getStar_Level(rsReplies("M_LEVEL"), rsReplies("M_POSTS")) %>
<%			end if %>
<%      if Trim(rsReplies("M_AVATAR_URL")) <> "" and lcase(rsReplies("M_AVATAR_URL")) <> "noavatar.gif" and (IsNull(rsReplies("M_AVATAR_URL")) = false) then 
          '## Forum_SQL - Get Avatar Settings from DB
          strSql = "SELECT " & strTablePrefix & "AVATAR2.A_WSIZE"
          strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_HSIZE"
          strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER"
          strSql = strSql & " FROM " & strTablePrefix & "AVATAR2"
          set rsav = my_Conn.Execute (strSql) 
          strExtension = Mid(rsReplies("M_AVATAR_URL"), InstrRev(rsReplies("M_AVATAR_URL"), "."))
          if strExtension = ".swf" then
            response.write "<embed src=""" & rsReplies("M_AVATAR_URL") & """ align=""absmiddle"" width=""" & rsav("A_WSIZE") & """ height=""" & rsav("A_HSIZE") & """ border=""" & rsav("A_BORDER") & """ hspace=""0"" ></embed>" & VBNewLine
          else
            response.write "<img src=""" & rsReplies("M_AVATAR_URL") & """ align=""absmiddle"" width=""" & rsav("A_WSIZE") & """ height=""" & rsav("A_HSIZE") & """ border=""" & rsav("A_BORDER") & """ hspace=""0"" >" & VBNewLine
          end if
          set rsav = nothing 
        end if %>
 
look for this code:  (around line #539)
-------------------------------------------
 
        <br><% if Trim(rsTopic("M_AVATAR_URL")) <> "" and lcase(rsTopic("M_AVATAR_URL")) <> "noavatar.gif" and (IsNull(rsTopic("M_AVATAR_URL")) = false) then %>
<%	'## Forum_SQL - Get Avatar Settings from DB
	strSql = "SELECT " & strTablePrefix & "AVATAR2.A_WSIZE"
	strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_HSIZE"
	strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER"
	strSql = strSql & " FROM " & strTablePrefix & "AVATAR2"
 
	set rsav = my_Conn.Execute (strSql) %>
        <img src="<% =rsTopic("M_AVATAR_URL") %>" align="absmiddle" width=<% =rsav("A_WSIZE") %> height=<% =rsav("A_HSIZE") %> border=<% =rsav("A_BORDER") %> hspace="0" ><% set rsav = nothing %><% end if %>
 
replace the line that has just the <br> on it with this:
 
         <br>
<%      if Trim(rsTopic("M_AVATAR_URL")) <> "" and lcase(rsTopic("M_AVATAR_URL")) <> "noavatar.gif" and (IsNull(rsTopic("M_AVATAR_URL")) = false) then 
          '## Forum_SQL - Get Avatar Settings from DB
          strSql = "SELECT " & strTablePrefix & "AVATAR2.A_WSIZE"
          strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_HSIZE"
          strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER"
          strSql = strSql & " FROM " & strTablePrefix & "AVATAR2"
          set rsav = my_Conn.Execute (strSql) 
          strExtension = Mid(rsTopic("M_AVATAR_URL"), InstrRev(rsTopic("M_AVATAR_URL"), "."))
          if strExtension = ".swf" then
            response.write "<embed src=""" & rsTopic("M_AVATAR_URL") & """ align=""absmiddle"" width=""" & rsav("A_WSIZE") & """ height=""" & rsav("A_HSIZE") & """ border=""" & rsav("A_BORDER") & """ hspace=""0"" ></embed>" & VBNewLine
          else
            response.write "<img src=""" & rsTopic("M_AVATAR_URL") & """ align=""absmiddle"" width=""" & rsav("A_WSIZE") & """ height=""" & rsav("A_HSIZE") & """ border=""" & rsav("A_BORDER") & """ hspace=""0"" >" & VBNewLine
          end if
          set rsav = nothing 
        end if %>
 
*********************************************
In the file:  ADMIN_REVIEW_AVATAR.ASP       *
*********************************************
 
look for this code:  (around line #539)
-------------------------------------------
        <td bgcolor="<% =CColor %>" valign="center" align="center" nowrap><img src="<% =rs("A_URL") %>" height=<% =rsav("A_HSIZE") %> width=<% =rsav("A_WSIZE") %> border=<% =rsav("A_BORDER") %> hspace=0 alt="<% =rs("A_NAME") %>"> </td>
 
replace it with this
 
        <td bgcolor="<% =CColor %>" valign="center" align="center" nowrap><%
        strExtension = Mid(rs("A_URL"), InstrRev(rs("A_URL"), "."))
        if strExtension = ".swf" then
          %><embed src="<% =rs("A_URL") %>" height=<% =rsav("A_HSIZE") %> width=<% =rsav("A_WSIZE") %>></embed><% 
        else
          %><img src="<% =rs("A_URL") %>" height=<% =rsav("A_HSIZE") %> width=<% =rsav("A_WSIZE") %> border=<% =rsav("A_BORDER") %> hspace=0 alt="<% =rs("A_NAME") %>"><%
        end if%>
        </td>



Some notes on this - FLASH AVATARS DO NOT SHOW IN PREVIEW ON REGISTER OR PROFILE.ASP!!!

I decided that this was acceptable because To make it work I would have had to re-design the mod a wee bit (to base it around A_ID instead of A_URL) and I didn't want people to have to reinstall an entire new version of the mod. Besides, its not my mod and I dont want to step on anyones toes

Nathan Bales - Romans 15:13
----------------------------------
Snitz Exchange | Do's and Dont's

Edited by - Nathan on 01 April 2002 01:31:55

milki
Junior Member

Israel
320 Posts
Posted - 01 April 2002 :  22:54:02  Show Profile  Visit milki's Homepage  Send milki an ICQ Message
tanx !!!!!!
it will be great !!!!!!!!!


some one can give me the code for flash in the masseg plaese ?

and tanx agin ! ! ! ! ! ! !
Go to Top of Page

dayve
Forum Moderator

USA
5820 Posts
Posted - 03 April 2002 :  21:46:20  Show Profile  Visit dayve's Homepage
Flash Forum Code

Here is a live demo..

Nine Inch Nails Flash Demo

____________
dayve@burningsouls.com


http://www.nineinchnailz.com - your source for everything nine inch nails !

Edited by - dayve on 03 April 2002 21:50:52
Go to Top of Page

milki
Junior Member

Israel
320 Posts
Posted - 03 April 2002 :  23:24:46  Show Profile  Visit milki's Homepage  Send milki an ICQ Message
tanx man !
Go to Top of Page

NewT
Starting Member

1 Posts
Posted - 19 April 2002 :  11:58:44  Show Profile
Note: The flash avatars worked only when I replaced the ENTIRE section that Nathan showed, with the new code, not "just" the <br> line.

Also, in the first change for TOPIC.ASP, the second line of the new version should not be there. Take out <% end if %> and it should be fine.

Last note: The change to ADMIN_REVIEW_AVATAR.ASP is not on line 539, the file is much shorter than that.

Otherwise the flash avatar rocks! Excellent find Nathan! Thanks a bunch
Go to Top of Page

T.G.K
Junior Member

Vietnam
347 Posts
Posted - 01 May 2002 :  14:00:47  Show Profile  Visit T.G.K's Homepage  Send T.G.K an AOL message  Send T.G.K an ICQ Message  Send T.G.K a Yahoo! Message
dayve i can't enter ur site on port 666

~~~~~~~~~~~~~~~~~~~~~~~~
Go to Top of Page

MDGamezz
Junior Member

USA
100 Posts
Posted - 03 May 2002 :  22:24:17  Show Profile  Send MDGamezz an AOL message  Send MDGamezz an ICQ Message
http://dayve.d2g.com:8010/forum/topic.asp?TOPIC_ID=1368

It's port 8010 now.

MDGamezz
Go to Top of Page

T.G.K
Junior Member

Vietnam
347 Posts
Posted - 05 May 2002 :  09:59:27  Show Profile  Visit T.G.K's Homepage  Send T.G.K an AOL message  Send T.G.K an ICQ Message  Send T.G.K a Yahoo! Message
i got this error:

Error Type:
Microsoft VBScript compilation (0x800A040E)
'loop' without 'do'
/crash/topic.asp, line 753
loop

<%			
		    rsReplies.MoveNext
		    intI  = intI + 1
		    if intI = 2 then 
				intI = 0
			end if
		    rec = rec + 1
		loop  <-- line 753
	end if
 %>


here is the zip of my topic.asp
http://giakien.netfirms.com/topic.zip

Plz take a look and tell me where is wrong

~~~~~~~~~~~~~~~~~~~~~~~~
Go to Top of Page

pox
Junior Member

Denmark
110 Posts
Posted - 14 August 2002 :  05:51:29  Show Profile  Visit pox's Homepage
dose it work whith Snitz Forums 2000 Version 3.3.03 ???
Go to Top of Page

Nathan
Help Moderator

USA
7664 Posts
Posted - 14 August 2002 :  05:53:00  Show Profile  Visit Nathan's Homepage
Yes, thats what I designed it on.
Nathan Bales
CoreBoard | Active Users Download
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.27 seconds. Powered By: Snitz Forums 2000 Version 3.4.07