Vis alle jpg/gif filer fra en mappe i en combobox...

<%

Dim objFSO, objFolder, objFile, strPath, strName

strPath = "./filer/" 'den mappe, filerne ligger i

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))

Response.Write("<select name=""filer"">")

For Each objItem in objFolder.Files
   
    strName = objItem.Name
   
    If Right(strName, 4) = ".jpg" Or Right(strName, 4) = ".gif" Then
       
        Response.Write("<option value=""" & objItem.Name & """>" & objItem.Name & "</option>")
       
    End If
   
Next

Response.Write("</select>")

Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

%>

Det kan man ikke.... Hilsen DR..... ej spøg til side....... Virker det ?

Ja, selvfølgelig virker det  :)

Takker!

Og tr0elz - dine vitser er dårlige...

selv tak  :)