codice:
<%Percorso= "" & imgfolder & "\smiley\" 
Percorso = Server.MapPath(percorso) 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder(Percorso) 
Set fc = f.Files 
%> 
 
<div style="position: absolute; width: 150px; height: 70px; z-index: 1; left: 455px; top: 428px; background-color:#F4F4F4; border-style:groove; border-color:#666666; visibility:hidden; filter:alpha(opacity=90)" id="tip"> 
<%For Each whatever in fc 
Nome_File = LCase(whatever.name) 
estensione=right(Nome_File,4) 
%> 
<%if estensione=".jpg" or estensione=".jpeg" or estensione=".gif" or estensione=".png" then 
%> 
[img]<%=imgfolder%>/smiley/<%=nome_File%>[/img]</td> 
<% 
End if 
Next 
%>
lo riposto in code