Hej NG.
Er ved at lave noget galleri, og har derfor lavet en asp side, der
henter billeder fra en mappe og det er så meningen at den skal
udskrive det i en tabel der har 3 kolonner.
Jeg har lavet følgende script, den stiller det egentlig rigtigt op, 3
kolonner og så rækkeskift, men den skifter ikke billedet ud, dvs at
der i hver kolonne kommer det samme billede 3 gange, en gang i hvert
"vindue"...
Desuden kommer der også en celle med et dejligt rødt kryds....
Er der nogen der kan hjælpe mig??
På forhånd tak.
Scritp:
<%
ASPDir = Request.Querystring("mappe")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ASPDir))
Set objFiles = objFolder.Files
For Each ASPFile In objFiles
If right(ASPFile.Name, 3) = "JPG" OR right(ASPFile.Name, 3) = "jpg"
Then
intFile = intFile + 1
picturelist = picturelist & ASPFile.Name & ","
end if
Next
Set objFS = Nothing
picturearray = Split(picturelist,",")
' Uden for loopen:
intAntal = UBound(picturearray)
intTaeller = 0
Response.Write "<table>" & vbcrlf
' første loop
Do While intTaeller < intAntal + 1
Response.Write "<tr>" & vbcrlf
' Indre loop
For i = 1 to 3
Response.Write "<td>"
Response.Write "<img src="""&ASPDir&"\" & picturearray(intTaeller) &
""" width=""300"">"
Response.Write "</td>" & vbcrlf
Next
Response.Write "</tr>" & vbcrlf
intTaeller = intTaeller + 1
Loop
' Uden for loopen:
Response.Write "</table>" & vbcrlf
%>