Paging i FSO

Sad først og tænkte på en array, men har da fået en bedre ide nu tror jeg, indsæt en counter.
f.eks.

<table width=\"100%\" border=\"0\">
<%
antal = 0
start = request.querystring(\"start\")
counter = 0
counter2 = 1
Set fs = CreateObject(\"Scripting.FileSystemObject\")
Set f = fs.GetFolder(server.mappath(\"\" & kat(\"mappen\") & \"\"))
Set fc = f.Files
For Each billed in fc
if antal = 0 then
Response.Write \"<TR>\"
end if
if counter < start then
counter = counter + 1
else
if counter2 < 10 then
%>
<td width=\"50%\"><center>
<IMG SRC=\"<%=kat(\"mappen\")%>/<%=billed.name%>\" alt=\"Klik på billedet for at se den i den størrelse som det bliver sendt i...\" WIDTH=\"150\" HEIGHT=\"150\" border=\"0\">
</center></td>
<%
counter2 = counter2 + 1
end if
end if
if antal = 1 then
Response.Write \"</TR>\"
antal = 0
else
antal = antal + 1
end if
Next
%>
</table>

netsrac >> hvordan vil du så udskrive hvor mange sider der er og hvordan skal jeg linke til de næste sider??

tpiil >> Du er da også så besværlig *G*

<table width=\"100%\" border=\"0\">
<%
start = request.querystring(\"start\")
if start = \"\" then
start = 0
end if

Set fs = CreateObject(\"Scripting.FileSystemObject\")
Set f = fs.GetFolder(server.mappath(\"\" & kat(\"mappen\") & \"\"))
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) / 10)

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

if antal = 0 then
Response.Write \"<TR>\"
end if
%>
<td width=\"50%\"><center>
<IMG SRC=\"<%=kat(\"mappen\")%>/<%=myarray(i)%>\" alt=\"Klik på billedet for at se den i den størrelse som det bliver sendt i...\" WIDTH=\"150\" HEIGHT=\"150\" border=\"0\">
</center></td>
<%
else
nesteside = 1
end if
next

if antal = 1 then
Response.Write \"</TR>\"
antal = 0
else
antal = antal + 1
end if


%>
</table>

<%
if nesteside <> 1 then
response.write(\"<a href=\'side.asp?start=\" & (start + 10) & \"\'>Næste side</a>\")
end if

if start <> 0 then
response.write(\"<a href=\'side.asp?start=\" & (start - 10) & \"\'>Forrige side</a>\")
end if
%>

takker

<table width=\"100%\" border=\"0\">
<%
antal = 0
start = request.querystring(\"start\")
if start = \"\" then
start = 0
end if

Set fs = CreateObject(\"Scripting.FileSystemObject\")
Set f = fs.GetFolder(server.mappath(\"\" & kat(\"mappen\") & \"\"))
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) / 10)

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

if antal = 0 then
Response.Write \"<TR>\"
end if
%>
<td width=\"50%\"><center>
<IMG SRC=\"<%=kat(\"mappen\")%>/<%=myarray(i)%>\" alt=\"Klik på billedet for at se den i den størrelse som det bliver sendt i...\" WIDTH=\"150\" HEIGHT=\"150\" border=\"0\"><br>
</center></td>
<%
end if

if antal = 1 then
Response.Write \"</TR>\"
antal = 0
else
antal = antal + 1
end if
next

%>
</table>
<%
if nesteside <> 1 then
response.write(\"<a href=\'postkort.asp?trin=\" & request(\"trin\") & \"&kat=\" & request(\"kat\") & \"&start=\" & (start + 10) & \"\' style=\'color: #000000\'>Næste side</a>\")
end if

if start <> 0 then
response.write(\"<a href=\'postkort.asp?trin=\" & request(\"trin\") & \"&kat=\" & request(\"kat\") & \"&start=\" & (start - 10) & \"\' style=\'color: #000000\'>Forrige side</a>\")
end if
%>

Så lidt, nu kom jeg op på plads 20 :-)

hehe

Den bliver ved med at skrive "Næste side" selvom der ikke er flere sider..?..