function RandomImage(Images) If PageImageType = "Mark" then RandomImage = "_Mark"&Int(Rnd*(Images)) If PageImageType = "Koer" then RandomImage = "_Koer"&Int(Rnd*(Images)) If PageImageType = "Svin" then RandomImage = "_Svin"&Int(Rnd*(Images)) If PageImageType = "Mark" then RandomImage = "_Mark"&Int(Rnd*(Images)) end function
Årsagen er at du i alle tilfælde kalder en funktion der hedder RandomImage. Og hvordan der sen så ud?
Du definerer funktionen 4 gange (hvilket er MEGET forkert, og burder give en fejl), og den vælger så at bruge den sidste version.
Hvis du vil bruge en funktion kan det f.eks. gøres sådan:
Function RandomImage(Images) If PageImageType = "Koer" then RandomImage = "_Koer" & Int(Rnd*(Images)) If PageImageType = "Mark" then RandomImage = "_Mark" & Int(Rnd*(Images)) If PageImageType = "Svin" then RandomImage = "_Svin" & Int(Rnd*(Images)) End function
Eller bare:
Function RandomImage(PageImageType, Images) RandomImage = "_" & PageImageType & Int(Rnd*(Images)) End function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.