Avatars from 7.5 to 7.7

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I want to upgrade my ver from 7.5 to 7.7.  I have over 200 avatars and do not want to edit 200 lines in the select_avatar file.  In ver 7.5 I can replace all the code in select_avatar file with the following:
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("     &n bsp;    <option value=""avatars/" & file.Name & """>" & file.Name & "</option>")
 End If
Next
Set rootFolder = Nothing
Set fso = Nothing
Set files = Nothing
%>
And all the avatars in the avatar folder show up, however in ver 7.7 putting the above in the select_avatar file nothing shows up.  How can I fix it without typing all the code for each and every one of the avatars?