---
title: "array + bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39668-array-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crazyl"
published: "2002-03-14T22:38:52.000Z"
updated: "2002-03-15T13:06:09.000Z"
replies: 5
views: 446
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/39668-array-bilder"
---

# array + bilder

## #1 — crazyl, 2002-03-14T22:38Z

Hej!
Jag har sparat sökvägar till bilder i en array. Jag undrar hur jag ska göra för att sedan visa dessa bilder på så vis att en bild visas i taget och när man klickar på en framåt-knapp ska nästa bild visas?

Har denna kod:

If Request.Form("visabild")= "visa" then 
    set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")
    set filer =  objFSO1.GetFolder("c:\\jobb")
   
    intFiles = filer.Files.Count 
    Response.Write intFiles      
    If intFiles \>= 1 then        
       ReDim Arr(intFiles)
       
      for each objFile in filer.Files 
        Arr(i)= objFile.Path		   	
        Response.Write Arr(i)
        i = i + 1					   
      Next
              
      For i = 0 TO UBound(Arr) 
	str1= Arr(i)
	i = i + 1
        Response.Write str1
      Next 
    End If
End If

Problemet är hur jag nu ska få bilderna att laddas en i taget i imagetaggen(genom att klicka på framåtknappen):
\<img name="image1" width="140" height="100" bgcolor="#003070" src="\<%=str1%\>" \>

Har ytterligare ett problem med koden. När jag skriver ut antal filer här är de 24(vilket är det rätta antalet)

      for each objFile in filer.Files 
        Arr(i)= objFile.Path		   	
        Response.Write Arr(i)
        i = i + 1					   
      Next

...men när jag skriver ut dem här visas bara tolv av dem?
   For i = 0 TO UBound(Arr) 
	str1= Arr(i)
	i = i + 1
        Response.Write str1
      Next 

Snällt om någon ville hjälpa mig!
MVH

Permalänk: https://www.webforum.nu/p/39668

## #2 — LarsG, 2002-03-14T22:52Z

```
For i = 0 TO UBound(Arr) 
str1= Arr(i) 

Response.Write str1 
Next
```

I räknades upp två gånger, därför skrev du bara ut varannat filnamn.

För att hantera bläddringen får du lägga ut en länk där du skickar med en querystring där du lägger ut bildnummer. Lite schematiskt

```
<%
if request.querystring("bildNummer") <> "" then
   bildNummer = cint(request.querystring("bildnummer"))
else
  bildNummer = 0
end if
'hämta bild

if bildNummer < filer.count then %>
<a href='visabild.asp?bildnummer=<%=bildNummer + 1%>'> Nästa bild </a>
<%end if%>
```

Permalänk: https://www.webforum.nu/p/624182

## #3 — solbulle, 2002-03-14T22:53Z

Ta bort i = i + 1

Red. Aldrig kan man hinna först... ;)

Permalänk: https://www.webforum.nu/p/624183

## #4 — crazyl, 2002-03-14T22:59Z

Tack så mycket för hjälpen...men skulle du vilja tala om vad du menar med bildnummer?(håller på att lära mig asp)
MVH

Permalänk: https://www.webforum.nu/p/624189

## #5 — LarsG, 2002-03-15T12:32Z

Bildnummer är bara en siffra för att hålla reda på vilken bild du ska visa.

Permalänk: https://www.webforum.nu/p/624368

## #6 — PatrikB, 2002-03-15T13:06Z

Med:

```
Arr(i)= objFile.Path
```

så sparar du hela den fysiska sökvägen till filen, dvs typ: D:\\folder\\imgfolder\\img.gif

Använd objFile.Name så får du bara filens namn och sedan när du visar så bygger du sökvägen i img-taggen.

\<% ="\<IMG src=""/images/" & Arr(i) & """\>

cya,
PatrikB

Permalänk: https://www.webforum.nu/p/624388

---

Tråden på webben: https://www.webforum.nu/amne/asp/39668-array-bilder