Visning af 6 billeder på række

Hej hvad er det du ønsker hjælp til? Hele koden der kan ovenstående eller...? Hvor langt er du?

JA desværre hele koden. Jeg har prøvet mig frem et par gange med jeg kan ikke lige se "brikkerne" der skal bruges.. Hvis du forstår !

Søg i ASP (denne kategori).. det er typisk 3 billeder per række, men koden er den samme.. der skal normalt bare ændres 1 sted ("3" til "6")..

Svar:

<%
billedeSti = "test/"
antalBillederPrSide = 8
antalBillederPrRekke = 4
                               
if Request.QueryString("billede") = "" then
start = request.querystring("start")
                       
if start = "" then start = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))
Set fc = f.Files
For Each billed in fc
arrayBuild = arrayBuild & billed.name & "|"
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))       
myArray = Split(arrayBuild, "|")
Antalsider = int(ubound(myarray) / antalBillederPrSide)
antal = 0
                           
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<tr>"       
%>
<td width="<%=Int(antalBillederPrRekke/100)%>">
<a href="?MenuID=1&PicID=<%=left(myArray(i), 2)%>&start=<% = Request.Querystring("Start")%>"><img SRC="<%=billedeSti%><%=myArray(i)%>" WIDTH="100" HEIGHT="75" border="0"></a>
</td>
<%
else
nesteside = 1
end if
antal = antal + 1
if antal = 4 then
Response.Write "</tr>"
antal = 0
end if
               
next
                   
if antal > 0 then Response.Write "</tr>"
%>
</table>
<center>
<%
if start <> 0 then
response.write "<a href=""?MenuID=1&PicID="& Request.Querystring("PicID") &"&start=" & (start - 8) & """> <- Forrige</a>"
end if
                       
response.write("&nbsp;&nbsp;")
                               
if nesteside <> 1 then
                               
response.write "<a href=""?MenuID=1&PicID="& Request.Querystring("PicID") &"&start=" & (start + 8) & """>Næste -></a>"
end if   
%>
</center>
<%
end if
%>