Min side loades på en mærkelig måde
Jeg har en side som viser nogle billeder. Der er et hovede billede og 5 thumbnails side om side, nederst på siden. man kan så løbe alle billederne igennem 5 af gangen, Disse billeder loades automatisk ved hjælp af FSO. selve side er i en tabel midt i browsren, med et billede som baggrund.Problemet er at når man går ind på siden er det som om at siden "foldes" sammen. DVS side starter med at være 20 cm bred og foldes så sammen til 15 cm bred på ca 1-2 sek. (den ender med at se rigtig ud), Når man har været alle billeder igennem virker det fint, indtil mn går der ind med en anden browser, eller et døgn efter med samme browser.
Koden hvor med jeg smider billederne på siden er følgende:
taeller = 0
forste = 0
taelBilleder = 0
slutBilledeNr = side * billederPrSide
For Each File In FolderFiles
taeller = taeller + 1
If (taeller >= ((side-1)*billederPrSide)+1) And (taeller =< (billederPrSide*side)) Then
taelBilleder = taelBilleder + 1
response.write "<td width=""90"" align=""center""><img src=""samling/" & mappe & "/thumbnails/" & file.name & """ alt=""Klik for at se billedet i stor størrelse"" OnClick=""document.images['hovedebillede'].src = 'samling/" & mappe & "/images/"& file.name &"'"""" ></td>" & vbCrLf
if forste = 0 then
Response.write "<script>document.images['hovedebillede'].src = 'samling/" & mappe & "/images/"& file.name &"'</script>"
forste = forste + 1
end if
end if
next
if taelBilleder < billederPrSide then
do while taelBilleder < billederPrSide
taelBilleder = taelBilleder + 1
Response.Write("<td width=""90"" align=""center""></td>")
loop
end if
set fso = nothing
