---

Denne kode skulle hente et billed fra den mappe som den henter fra
rs("lille_arkiv") det virker næsten, bortset fra at den henter alle billeder
fra den mappe. Den skal kun hente et billed, bare det første i mappen.
Hvordan kan man få den til det?

<%
ImageDir = rs("lille_arkiv")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files %>
<%
For Each Image In objFiles
var=split(Image.Name,".")
Response.Write "<a target='_blank' href='listbilleder.asp?id=" & rs("id") &
"'>" & "<IMG SRC='" & ImageDir & "/" & Image.Name & "' BORDER='0'
ALIGN='bottom'> </a>" & "<br>"
Next
%>

Mvh
Thomas

---

> Den skal kun hente et billed, bare det første i mappen.
> Hvordan kan man få den til det?

Jeg er ikke sikker på dette er den "rigtige" måde ... men du burde kunne
fjerne Next i din kode... tror jeg


> <%
> ImageDir = rs("lille_arkiv")
> For Each Image In objFiles
> .........
> Next <--- Fjern
> %>
>
> Mvh
> Thomas
>
>

---

> <%
> ImageDir = rs("lille_arkiv")
> Set objFS = CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
> Set objFiles = objFolder.Files %>
> <%
> For Each Image In objFiles
> var=split(Image.Name,".")
> Response.Write "<a target='_blank' href='listbilleder.asp?id=" & rs("id")
&
> "'>" & "<IMG SRC='" & ImageDir & "/" & Image.Name & "' BORDER='0'
> ALIGN='bottom'> </a>" & "<br>"
> Next
> %>


du kan smide et "Exit For" ind inden "Next".
bruges normalt hvis en betingelse ikke er opfyldt eller lign, men kan
sikkert bruges her.

mvh.

- Arne.

---

Yes det virker, tak for det :D

Mvh Thomas
> du kan smide et "Exit For" ind inden "Next".
> bruges normalt hvis en betingelse ikke er opfyldt eller lign, men kan
> sikkert bruges her.
>
> mvh.
>
> - Arne.
>
>
>