Upload af billede / visning af alle billeder i dropdownmenu

Dim objFS, objBaseFolder, objFiles, f1, subfolder, fe, imgArr
Redim imgArr(-1)
myPath = "/images/"
folderspec=Server.MapPath(myPath)
   
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objBaseFolder = objFS.GetFolder(folderspec)
   
Set objFiles = objBaseFolder.Files
   
For Each f1 in objFiles
    fe = Lcase(right(f1.name,3))   
    if ((fe = "png") or (fe = "gif") or (fe = "jpg")) then
        Redim preserve imgArr(Ubound(imgArr) + 1)
        imgArr(Ubound(imgArr)) = f1.name
    end if
Next

Så har du et array med billederne i

<select>
<option> - vælg her - </option>
<%
for i = 0 to Ubound(imgArr)
  Response.write ("<option>" & imgArr(i) & "</option>"
next
%>
</select>

Hvad skal der så ske når man vælger?

Så skal det gemmes i en DB. ;)

i et felt der hedder imageUrl, men du har jo svaret på mit spørgsmål, så pointene er self. dine, hvis du lige svarer. :)

Nå ja :o)

og tak