IMG fremviser

Helt tilfældigt så har jeg lige en sådan fremviser lige her...
--------------------------------------------------------------
<%
thumbwidth = \"30\"
thumbheight = \"30\"

Set fs = Server.CreateObject( \"Scripting.FileSystemObject\" )

Set myFolder = fs.GetFolder( Request.ServerVariables(\"APPL_PHYSICAL_PATH\") )
%>

<TABLE WIDTH=\"100%\">
<% For Each thing in myFolder.Files %>
<% If Right(thing.Name,4) = \".gif\" Or Right(thing.Name,4) = \".jpg\" Then %>
<tr>
  <td WIDTH=\"30%\" align=\"left\"><a href=\"<%= thing.Name%>\"><img src=\"<%= thing.Name%>\" border=\"0\" alt=\"<%=thing.Name%>\" width=\"<%= thumbwidth %>\" height=\"<%= thumbheight %>\"><%=thing.Name%></a></td>
</tr>
<% End If %>
<% Next %>
--------------------------------------------------------------
/Klyde

Hmmm. Ja den kan godt bruges...

Tak, det var hurtigt...

Selv tak...