Hej
Jeg har, med lidt hjælp, prøvet at få dette script til at
opstille en række billeder i en tabel med tre kolonner. Når jeg
prøver at vise siden, kører processoren på fuld knald indtil den
time-out'er. Der må være en loop, der kører igen og igen. Hvis
jeg erstatter intAntal i if-funktionen i den indre loop med det
antal billeder, der virkelig er i array'en virker det fint nok,
men meningen med scriptet er, at det selv skal kigge efter
billeder i en folder og så liste dem.
Function Filliste()
Dim fi, intAntal, intTaeller
fi =
array(,"/Billeder/Chat.jpg","/billeder/Spiller.jpg","/billeder/Do
edbrukken.jpg","/billeder/Calling.jpg")
intAntal = UBound(fi)
intTaeller = 1
Response.Write "<table>" & vbcrlf
' Ydre loop
Do While intTaeller <= intAntal
Response.Write "<tr>" & vbcrlf
' Indre loop
For i = 1 To 3
Response.Write "<td>"
If intTaeller <= antAntal Then 'Fejlen ligger nok på en eller
anden måde her
Response.Write "<img src='" & fi(intTaeller) & "'>"
intTaeller = intTaeller + 1
Else
Response.Write " "
End If
Response.Write "</td>" & vbcrlf
Next
Response.Write "</tr>" & vbcrlf
Loop
' Uden for loop:
Response.Write "</table>" & vbcrlf
End Function
På forhånd tak for hjælpen
Morten Tychsen
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials