Vis billeder fra mappe

Prøv at kigge lidt i de her koder http://www.eksperten.dk/spm/339701
Paging syntaksen kan overføres til dit script.

det vil jeg ikke rode mig ud i sorry

Nå, men det er nu bare sådan jeg selv lærer mange gange. Ved at se, hvordan andre har lavet det. :)

Men det er jo nok lidt for godt vejr til at få ret meget hjælp lige nu.

har en side fra en gang før, man kan ikke få flettet den ind:
<%
function sortArr(myarr, myarrdato)

for k = 0 to ubound(myarr) - 1
minindex = k
for j= k+1 to ubound(myarrdato)
if myarrdato(j) > myarrdato(minindex) then
minindex = j
end if
next
tmp = myarr(k)
myarr(k) = myarr(minindex)
myarr(minindex) = tmp
tmp2 = myarrdato(k)
myarrdato(k) = myarrdato(minindex)
myarrdato(minindex) = tmp2
next

end function

antal = 0
start = request.querystring("start")
if start = "" then
start = 0
end if

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath("."))
Set fc = f.Files
thisfile = right(request.servervariables("script_name"), len(request.servervariables("script_name")) - instrrev(request.servervariables("script_name"), "/"))
For Each billed in fc

navn = lCase(Billed.name)
if navn <> thisfile AND right(navn, 3) <> "asp" AND right(navn, 3) <> "htm" AND right(navn, 4) <> "html" then
arrayBuild = arrayBuild & billed.name & "|"
arraybuild2 = arraybuild2 & billed.datelastmodified & "|"
end if
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
myArray2 = Split(arrayBuild2, "|")

call sortArr(myArray, myarray2)

Antalsider = int(ubound(myarray) / 6)

for i = start to (start + 5)
if not i >= ubound(myarray) then

if antal = 0 then
Response.Write "<TR>"
end if
%>

you're probably right

Lukker