Kan någon hjälpa mig att få in paging i denna kodsnutt! Hoppas någon är duktig och kan hjälpa mig! UTAN DATABAS

<%If Request.QueryString("visa") = "pics" And Session("admin") = "ok" Then

MAPPNAMN = "pics/"
Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MAPPNAMN))%>

<table border="0" width="480">
<tr>
<td colspan="2"><b>Adminstart Ladda upp ny bild <%If Session("admin") = "ok" Then%>Kategorier Användare <%End If%>Logga ut</b></td>
</tr>
<tr>
<td colspan="2"><img src="bilder/dot1.gif"></td>
</tr>
<tr>
<td colspan="2"><b>Lista alla filer i mappen. </b></td>
</tr>
<tr>
<td colspan="2"><img src="bilder/dot1.gif"></td>
</tr>

<%For Each File in Mapp.Files%>

<tr>
<td><%=File.Name%></td><td align="right">Ta bort</td>
</tr>

<%Next
If Request.QueryString("do") = "pic" And Session("admin") = "ok" Then%>
<tr>
<td colspan="2"><img src="bilder/dot1.gif"></td>
</tr>
<tr>
<td colspan="2"><img src="pics/<%=Request.QueryString("bild")%>" width="250" border="1"><br><%=Request.QueryString("bild")%></td>
</tr>
<%End If%>
</table>

<%Set Mapp = Nothing
Set Mappkoll = Nothing

End If%>

Åsa, det finns en bra artikel om paging på asp-sektionen, titta på den.
/pelle

Det här kanske är en början.

<code>
Dim File
Dim Mapp
Dim fso

Dim Index
Dim FirstIndex
Dim LastIndex
Dim PageIndex
Dim PageCount
Const PageSize = 10

Set fso = New FileSystemObject
Set Mapp = fso.GetFolder("C:\Windows")

PageCount = Mapp.Files.Count \ PageSize + 1
If PageIndex < 1 Then
PageIndex = 1
ElseIf PageIndex > PageCount Then
PageIndex = PageCount
End If

FirstIndex = (PageIndex - 1) * PageSize
LastIndex = FirstIndex + PageSize

For Each File In Mapp.Files
If Index < FirstIndex Then
ElseIf Index < LastIndex Then
Debug.Print File.Name
Else
Exit For
End If
Index = Index + 1
Next
</code>

Tackar :) Det blir en bra början! :)

Sidnavigeringen är lite konstig! Endast första visas vi klick på 1 och på resterande visas sista sidan!

MAPPNAMN = "pics/"
Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MAPPNAMN))%>

<table border="0" width="480">
<tr>
<td colspan="2"><b>Adminstart &nbsp; Ladda upp ny bild &nbsp; <%If Session("admin") = "ok" Then%>Kategorier &nbsp; Användare &nbsp; <%End If%>Logga ut</b></td>
</tr>
<tr>
<td colspan="2"><img src="bilder/dot1.gif"></td>
</tr>
<tr>
<td colspan="2"><b>Lista alla filer i mappen. </b></td>
</tr>
<tr>
<td colspan="2"><img src="bilder/dot1.gif"></td>
</tr>

<%Const PageSize = 10

PageCount = Mapp.Files.Count \ PageSize + 1
PageIndex = Request.QueryString("sida")
If PageIndex < 1 Then
PageIndex = 1
ElseIf PageIndex = "1" Then
PageIndex = 1
ElseIf PageIndex > PageCount Then
PageIndex = PageCount
End If

FirstIndex = (PageIndex - 1) * PageSize
LastIndex = FirstIndex + PageSize

For Each File In Mapp.Files
If Index < FirstIndex Then
ElseIf Index < LastIndex Then%>
<tr>
<td><%=File.Name%></td><td align="right">Ta bort</td>
</tr>
<%Else
Exit For
End If
Index = Index + 1
Next%>

<tr>
<td colspan="2"><img src="bilder/dot1.gif"></td>
</tr>
<tr>
<td colspan="2">
<%For i = 1 To PageCount
If i = PageIndex Then
Response.Write "<b>" & i & "</b>"
Else
Response.Write " " & i & " "
End If
Next%>
</td>
</tr>
<tr>
<td colspan="2"><img src="bilder/dot1.gif"></td>
</tr>
<tr>
<td colspan="2"><b><%=Index%></b> filer i mappen <b><%=MAPPNAMN%></b></td>
</tr>
<%If Request.QueryString("do") = "pic" And Session("admin") = "ok" Then%>
<tr>
<td colspan="2"><img src="bilder/dot1.gif"></td>
</tr>
<tr>
<td width="250"><img src="pics/<%=Request.QueryString("bild")%>" width="250" border="1"></td>
<td width="230" valign="top">
<b>Filnamn:</b> <%=Request.QueryString("bild")%><br>
<b>Filstorlek:</b> <%=Request.QueryString("size")%> kb<br>
</td>
</tr>
<%End If%>
</table>

<%Set Mapp = Nothing
Set Mappkoll = Nothing

Jag fick hjälp på annat håll!

Åsa, istället för att bara döda tråden med att säga att du fick hjälp på annat håll - hade det inte varit snällt att posta den korrekta koden då så andra får se hur det skulle varit?

Tänk på nästa som tror att svaret står här..

Hälsningar
/Pelle

Sorry Pelle :( Glömde bort å skriva det! Glöm ej å ändra hmm.asp till eran fils namn!
Här är koden:

<%'##########################################################################################################
'--------------------------------------------------INSTÄLLNINGAR-----------------------------------------------------------------------------------------------
'############################################################################################################

MappNamn = "mapp" ' Mappen som bilderna ligger i

AntalPerSida = 10 ' Antal bilder per sida

'############################################################################################################
'-------------------------------------------------LISTAR ALLA FILERNA SOM FINNS I MAPPEN------------------------------------------------------------------
'############################################################################################################

Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>

<table border="0" width="380">
<tr>
<td colspan="2"><font size="2"><b>Lista alla filer i mappen <i><%=MappNamn%></i></b></font></td>
</tr>
<tr>
<td colspan="2"><hr></td>
</tr>
<tr>
<td width="250"><b>Filnamn</b></td><td width="150"><b>Filstorlek</b></td</tr>
<tr>
<td colspan="2"><hr></td>
</tr>

<%PS = AntalPerSida

If Mapp.Files.Count Mod PS Then
Sidor = Mapp.Files.Count \ PS + 1
Else
Sidor = Mapp.Files.Count \ PS
End If
Sida = Request.QueryString("sida")
If Sida = "" Then
Sida = 1
End If

Start = (Sida - 1) * PS
Slut = Start + PS

If Mapp.Files.Count = 0 Then%>
<tr>
td colspan="2">Inga filer!</td>
</tr>
<%Else

For Each File In Mapp.Files

If X < Start Then
ElseIf X < Slut Then%>
<tr>
<td><%=File.Name%><%=Round(File.Size/1000, 1)%> kb

<%Else
Exit For
End If
X = X + 1
Next
End If
If Sidor > 1 Then%>