---
title: "Slumpa bakrundsbanner"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/152047-slumpa-bakrundsbanner"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "appel"
published: "2006-10-03T23:33:10.000Z"
updated: "2008-01-29T21:37:10.000Z"
replies: 13
views: 772
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/152047-slumpa-bakrundsbanner"
---
# Slumpa bakrundsbanner
## #1 — appel, 2006-10-03T23:33Z
Någon som vet något bra sätt att slumpa fram olika bakrundsbanner bilder?
Använder mig av koden nedan nu:
```
Men bilderna syns inte?
Eller är jag helt fel ute?
Permalänk: https://www.webforum.nu/p/1877664
## #5 — Peter S, 2006-10-05T21:53Z
Så här kanske du kan göra:
```
img = Array("gfx_top.jpg", "gfx_foo.jpg")
randomize
response.write "
"
```
Permalänk: https://www.webforum.nu/p/1877665
## #6 — appel, 2006-10-05T22:22Z
Får det inte att fungera, hela raden försvinner och ingenting syns.
Permalänk: https://www.webforum.nu/p/1877669
## #7 — Peter S, 2006-10-05T22:42Z
Då får du undersöka sökvägen till bilderna. I ditt första inlägg säger du att de ligger i images/, varför jag utgick ifrån det.
Jag har gjort en liten ändring ovan, så se till att sökvägen stämmer och testa igen.
Permalänk: https://www.webforum.nu/p/1877671
## #8 — Riffles, 2006-10-05T22:52Z
Du kan göra så här:
```
<%
Function GetSubFolders(pfolder)
Dim sFolders, fldr, file, MyPath
For Each fldr In pfolder.SubFolders
sFolders = sFolders & GetSubFolders(fldr)
Next
For Each file In pfolder.Files
MyPath = Right(file.path, len(file.path) - len(rootname))
If Right(file.Name, 3) = "jpg" Then sFolders = sFolders & MyPath & ";"
Next
Set img = Nothing : Set fldr = Nothing
GetSubFolders = sFolders
End function
Dim rootname, arrImages
rootname = Server.MapPath("pix/")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = FSO.GetFolder(rootname)
arrImages = Split(GetSubFolders(Mapp), ";")
Set Mapp = nothing : Set FSO = nothing
%>
titel
<% If IsArray(arrImages) Then
randomize
rndNumber = Int(Rnd * UBound(arrImages))
Response.Write ""
End If
%>
```
Permalänk: https://www.webforum.nu/p/1877674
## #9 — appel, 2006-10-05T22:53Z
Jo sökvägen stämmer.
Och nu såg jag att jag glömmde lägga till img efter dim
Är detta rätt skrivet?
\<%
img = Array("gfx_top.jpg", "gfx_top2.jpg")
randomize
response.write "\
\"
%\>
Sen undrar jag om man nu inte har 2 st bilder, går det på något göra att den hittar tex gfx_top.jpg ändå, det är orginalbilden, men ibland vill jag använda mig av flera.
Det är till en fotbollsklubbs hemsida, och ibland vill jag tex visa matchannonser för flera lag.
Permalänk: https://www.webforum.nu/p/1877675
## #10 — Riffles, 2006-10-05T23:01Z
Onödigt att ha en slumpfunktion om du inte har fler bilder än en bild!
Men det är bara att fylla på din array med bildnamn och testa nu.
Permalänk: https://www.webforum.nu/p/1877677
## #11 — appel, 2006-10-05T23:05Z
Onödigt??
Ibland vill jag visa upp matchannonser för tex 2 eller 3 st olika matcher på ett snyggt sätt, ibland inte alls, då man bara använder sig av den vanliga bannern för klubben.
Permalänk: https://www.webforum.nu/p/1877678
## #12 — Riffles, 2006-10-05T23:15Z
Du kanske visar alla matcher under en viss vecka? Då kan det vara x antal matcher.
Hur ska du visa dina annonser? Alltså bestämma hur många du ska visa?
Det vore nog bra att tidsbestämma dem.
Om det är ex. vecka 37 visa alla matcher som spelas under denna vecka.
Eller om du ska visa matcher mellan två datum.
Permalänk: https://www.webforum.nu/p/1877680
## #13 — Peter S, 2006-10-06T08:26Z
> **appel skrev:**
>
> Jo sökvägen stämmer.
> Och nu såg jag att jag glömmde lägga till img efter dim
>
> Är detta rätt skrivet?
> \<%
> img = Array("gfx_top.jpg", "gfx_top2.jpg")
>
> randomize
> response.write "\
\"
> %\>
>
> Sen undrar jag om man nu inte har 2 st bilder, går det på något göra att den hittar tex gfx_top.jpg ändå, det är orginalbilden, men ibland vill jag använda mig av flera.
>
> Det är till en fotbollsklubbs hemsida, och ibland vill jag tex visa matchannonser för flera lag.
Ja, det ser ut att stämma. Oavsett antalet bilder kan du använda den koden. Du fyller endast på arrayen med de bildnamn som skall visas; skulle det nu vara *en* bild fungerar det också.
Permalänk: https://www.webforum.nu/p/1877729
## #14 — pbl, 2008-01-29T21:37Z
Sammanställning
En gammal tråd som jag blåser liv i igen. Kan någon skriva ihop den kod som de har diskuterat här till en hel? Fick inte riktigt ihop det sista när jag försökte.
Tacksam
Peter :-)
Permalänk: https://www.webforum.nu/p/2076500
---
Tråden på webben: https://www.webforum.nu/amne/asp/152047-slumpa-bakrundsbanner