Dynamic Avatar Mod show all files in folder

here is the thing, it works great, i use it back in V7 and now in V8 also :)
No problems.

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 www.QCode.dk
'##
'## If you have any problems with this visit 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: drew@madasp.com
'## Website: 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
%>



Thats all. hope some of you can use this, i use it, and love it :)

you have fso defined twice, find the other Dim fso and delete it.