" & objFile.Name & "
" end select Next Set objFolder = Nothing Set objFSO = Nothing %> Stäng fönster
<%
Dim objFSO, objFile, objFolder
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("/images/sale"))
For Each objFile in objFolder.Files
bild = right(objFile.name, 3)
Select Case bild
Case "jpg", "gif"
Response.Write "
" & objFile.Name & "
"
end select
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>
Stäng fönster