Print Page | Close Window

Avatar Mod

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=21903
Printed Date: 28 March 2026 at 6:02am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: Avatar Mod
Posted By: justme
Subject: Avatar Mod
Date Posted: 09 November 2006 at 9:11pm
AVATAR MOD:
 Credit goes to original author:
 
Find file: forum/includes/select_avatar.asp
Just replase all inside thet file whit the code below :)
It will show all files you have in your avatar folder.
So you can just upload all the default avatar files you like :)
it shows files names, so if you upload a file thet has a name like this:
1213244324.jpg  then the user will see thet in the list.
try making your avarar files look nice for the user the selest from.
Cool_Man.jpg will look better than: 1213244324.jpg
<%
'#########################################################################
'##
'## Select Avatar WebWizForums v7.x
'## Works in version 8.x also testst by http://www.QCode.dk - www.QCode.dk
'##
'## If you have any problems with this visit http://www.maddogs-asp.com - www.maddogs-asp.com
'## and post on the forums with the problem you are having and
'## if you have any error please post the full error so we can
'## help you easyer.
'##
'## Just change the database connection in the strMembersModCon
'## variable.
'##
'## Then make sure the strMembersModForumPath is the right path
'## to your forum.
'##
'## Writen by Drew Gauderman (aka MadDog)
'## Email: mailto:drew@madasp.com - drew@madasp.com
'## Website: http://www.maddogs-asp.com - www.maddogs-asp.com
'##
'#########################################################################
Dim fso
Dim rootFolder
Dim files
Dim file
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.GetFolder(Server.MapPath("avatars/"))
Set files = rootFolder.Files

For Each file in files
    If file.Type = "GIF Image" OR file.Type = "JPG Image" OR file.Type = "JPEG Image" Then
        Response.Write("          <option value=""avatars/" & file.Name & """>" & file.Name & "</option>")
    End If
Next
Set rootFolder = Nothing
Set fso = Nothing
Set files = Nothing
%> 
 
 



Replies:
Posted By: Mikey
Date Posted: 12 November 2006 at 12:36pm
Have you got permission from Maddog to reproduce this code?

EDIT: Ooops can a mod move this back to the Mods forum please


-------------
Handyman man?


Posted By: justme
Date Posted: 12 November 2006 at 6:04pm

This Mod was already in the forum, I only re-created it in the Mod index so people can find it, I don't think I did anything worng by doing that. I even indicated that credit goes to original author, I am not trying to get credit for this, only trying to help others.

 



Posted By: dpyers
Date Posted: 12 November 2006 at 9:58pm
I think you should also notify the original authors when you relocate their code.

Personally, I like to keep track of what code I post and any downloads I set up - primarily so that there's no unpatched versions running around in the future with my name on it.


-------------

Lead me not into temptation... I know the short cut, follow me.


Posted By: justme
Date Posted: 12 November 2006 at 11:38pm
Yes, I agree on that one dpyers, I did not think about that :)



Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net