Problem med slumpning

Jag vet inte, men kanske skulle

<%
Dim i
i = 1
Do until i = 5
Randomize
slump = cInt(rnd()4*)+1
%>
<!--#include virtual="/inc.asp?<%=slump%>" -->
<%
i = i + 1
loop
%>

Sedan på inc.asp skriver du...

<%
If cInt(request.querystring) = 1 Then response.write "<IMG...>"
If cInt(request.querystring) = 2 Then response.write "<IMG...>"
If cInt(request.querystring) = 3 Then response.write "<IMG...>"
If cInt(request.querystring) = 4 Then response.write "<IMG...>"
If cInt(request.querystring) = 5 Then response.write "<IMG...>"
%>

läses inte inc:en in före slumpscriptet

alltså<!--#include virtual="/inc.asp?<%=slump%>" -->

Jag tänkte mig mer en INC fil som heter SLUMPBILDMENY.inc då där jag i den filen har alla namn på bilder (bilden heter samma sak som querystringen i länken så de kan jag ta ut där) och i den filen slumpar fram 5 stycken av bilderna med radbrytning efter varje

Skapa en 2-dimensionell array där du lagrar info om varje bild.

arrImgInfo(0,0) = "bild1.gif"
arrImgInfo(1,0) = "Alt 1"
arrImgInfo(2,0) = "URL 1"
arrImgInfo(0,1) = "bild2.gif"
arrImgInfo(1,1) = "Alt 2"
arrImgInfo(2,1) = "URL 2"

etc beroende på hur många bilder du vill ha.

Slumpa sedan fram dem med LarsGs metod som du hittar här: http://cgi.webforum.nu/wf/Forum11/HTML/004703.html#1

kom bara ihåg att LarsG använder en vanlig array så du måste "fippla" om lite i scriptet för att funka med en 2-dimensionell array.

cya
PatrikB

ok tack, ska testa senare idag..

Man kan inte inkludera #include dynamiskt, dvs inte såhär:

<!--#include virtual="/inc.asp?<%=slump%>" -->

Nej vide jag skrev det ovan

nu leker jag å testar, läser om vektorer hos dig vide , återkommer

vad är det för fel, har pillat lite å pulat, men den säger

Subscript out of range: '[number: 2]'

på

dim ArraySlump(1,2) 

ArraySlump(0,0) = "Bild0"
ArraySlump(0,1) = "Text0"
ArraySlump(0,2) = "URL0"

ArraySlump(1,0) = "Bild1"
ArraySlump(1,1) = "Text1"
ArraySlump(1,2) = "URL1"

ArraySlump(2,0) = "Bild2"
ArraySlump(2,1) = "Text2"
ArraySlump(2,2) = "URL2"

ArraySlump(3,0) = "Bild3"
ArraySlump(3,1) = "Text3"
ArraySlump(3,2) = "URL3"

ArraySlump(4,0) = "Bild4"
ArraySlump(4,1) = "Text4"
ArraySlump(4,2) = "URL4"

fattar att det är något fel på hur jag dimmar, har inte riktigt fått klämm på det kanske man skulle kunna säga, lars g, hade inte du skrivit fel i hur jag tilldelar vektoren värden ?

tack igen

dim ArraySlump(4,2)

I vilket sammanhang har jag sagt vad?

Tack LarsG, det var PatrikB som skrev

arrImgInfo(2,1) = "URL 2"

fel av mig...Förlåt, du gör ju faktiskt aldrig fel, borde lärt mig det vid det här laget **småler**

Hmmm

<%

dim ArraySlump(4,2) 

ArraySlump(0,0) = "Bild0"
ArraySlump(0,1) = "Text0"
ArraySlump(0,2) = "URL0"

ArraySlump(1,0) = "Bild1"
ArraySlump(1,1) = "Text1"
ArraySlump(1,2) = "URL1"

ArraySlump(2,0) = "Bild2"
ArraySlump(2,1) = "Text2"
ArraySlump(2,2) = "URL2"

ArraySlump(3,0) = "Bild3"
ArraySlump(3,1) = "Text3"
ArraySlump(3,2) = "URL3"

ArraySlump(4,0) = "Bild4"
ArraySlump(4,1) = "Text4"
ArraySlump(4,2) = "URL4"

dim choosen(4)
dim i,pictures,choice

randomize

for i = 0 to 4 
choice = int((ubound(ArraySlump,2)-i)*rnd())
choosen(i) = ArraySlump(choice)
ArraySlump(choice) = ArraySlump(ubound(ArraySlump,2)-i)
next

%>

ger
Subscript out of range som vanligt på raden "choosen(i) = ArraySlump(choice)"

Vad felar i min skalle ?

<%
'plats för 30 bilder
dim ArraySlump(29,2) 

ArraySlump(0,0) = "Bild0"
ArraySlump(0,1) = "Text0"
ArraySlump(0,2) = "URL0"

ArraySlump(1,0) = "Bild1"
ArraySlump(1,1) = "Text1"
ArraySlump(1,2) = "URL1"

ArraySlump(2,0) = "Bild2"
ArraySlump(2,1) = "Text2"
ArraySlump(2,2) = "URL2"

ArraySlump(3,0) = "Bild3"
ArraySlump(3,1) = "Text3"
ArraySlump(3,2) = "URL3"

ArraySlump(4,0) = "Bild4"
ArraySlump(4,1) = "Text4"
ArraySlump(4,2) = "URL4"

ArraySlump(5,0) = "Bild5"
ArraySlump(5,1) = "Text5"
ArraySlump(5,2) = "URL5"

ArraySlump(6,0) = "Bild6"
ArraySlump(6,1) = "Text6"
ArraySlump(6,2) = "URL6"

ArraySlump(7,0) = "Bild7"
ArraySlump(7,1) = "Text7"
ArraySlump(7,2) = "URL7"

ArraySlump(8,0) = "Bild8"
ArraySlump(8,1) = "Text8"
ArraySlump(8,2) = "URL8"

ArraySlump(9,0) = "Bild9"
ArraySlump(9,1) = "Text9"
ArraySlump(9,2) = "URL9"
'och så vidare tom 29 

dim choosen(4,2)
dim i,pictures,choice

randomize

for i = 0 to 4 
choice = int((ubound(ArraySlump,1)-i)*rnd())
choosen(i,0) = ArraySlump(choice,0)
choosen(i,1) = ArraySlump(choice,1)
choosen(i,2) = ArraySlump(choice,2)

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,2)-i,0)
ArraySlump(choice,1) = ArraySlump(ubound(ArraySlump,2)-i,1)
ArraySlump(choice,2) = ArraySlump(ubound(ArraySlump,2)-i,2)
next

%>

Lars G Tack!

ett par saker till om du har ork eller tid, eller kanske någon annan som har. Vad exakt gör denna kod.

For i = 0 to 4 
'här fattar jag, tills den har gått 5 ggr hehe

choice = int((ubound(ArraySlump,1)-i)*rnd())
choosen(i,0) = ArraySlump(choice,0)
choosen(i,1) = ArraySlump(choice,1)
choosen(i,2) = ArraySlump(choice,2)

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,2)-i,0)
ArraySlump(choice,1) = ArraySlump(ubound(ArraySlump,2)-i,1)
ArraySlump(choice,2) = ArraySlump(ubound(ArraySlump,2)-i,2)
Next
'hoppa vidare tills nästa

sen får jag felmeddelandet "Subscript out of range: '[number: -1]'" på raden

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,2)-i,0)

jag har gjort exakt som du skrev

ArraySlump(choice,0) = ArraySlump(ubound(ArraySlump,1)-i,0)
ArraySlump(choice,1) = ArraySlump(ubound(ArraySlump,1)-i,1)
ArraySlump(choice,2) = ArraySlump(ubound(ArraySlump,1)-i,2)

LarsG och ni andra, nu har jag äntligen börjat förstå arrays lite bättre...Tack 1000 ggr!

sorry för mitt missöde..

Brimba, det är lugnt

, Yo !

[Redigerat av erka den 04 sep 2001]