Hej
Jag skulle behöva ha hjälp med att lägga in ett script som det som finns här på Pellesoft (fast i ASP inte.net)
Jag har ett bildgalleri och längst ner skullde det stå hur många bilder galleriet innehåller och vilken som visas och gå till nästa.
Här är koden
<%If Not RS.Eof then
Do until RS.EOF

response.write " <a class=""ImgLayer"" href=""" & URL2 & "?ID=" & RS("ID") & """><img src=""" & RS("bild") & """ width=""" & Width & """ border=""1""height=""" & Height & """>" & vbcrlf
response.write RS("kruknamn")
response.write "</a>" & vbcrlf
RS.MoveNext
Loop
End if%>

det du är ute efter kallas paging
Hur skall sidlistningen se ut och hur många postar skall du visa per sida?
Vilken databas används?

Det blev feltänk av mig.
Nya sats.
Jag har ett bildgalleri med thumnails med ganska många bilder så det krävs en rullist (hmm det är väl här jag får tänka om ) för när jag rullat ner och klickar på en bild så så visas ju den första bilder + några till.

Då är det pagring som gäller
Jag ska visa 10 poster per sida (5 bilder i varje rad och det gör det nu)
Jag använder acessdatabas

Så här har jag det i min gästbok.
<code>
//först så visar jag ifrån min "subfil"
Sub MakeRecordSet(rec,sql,con)
Set rec = Server.CreateObject("ADODB.Recordset")
rec.open sql,con,3,1,1
End Sub

Sub CloseConnAndRec(rec,conn)
On Error Resume Next
rec.Close
Set rec=Nothing
conn.Close
Set conn = Nothing
Err.Clear
End Sub

Sub VisaSidNr(MyPageCount,MySida,sSida,sText)
Dim start, slut
If MyPageCount > 1 Then
Response.write "<table border=0 width=""540px""><tr><td width=110px><B>" & sText & "</B> "
& rs.recordcount &"<B></td>"

if (CLng(MySida))>1 then
Response.Write "<td width=80px><< Tillbaka</td>"
else
Response.Write "<td width=80px>&nbsp;</td>"
end if

Response.Write "<td width=60px><B>Sida Nr:&nbsp;</B></td>"

if (CLng(MySida) + 2) < MyPageCount then
slut = CLng(MySida) +2
else
slut = MyPageCount
end if

if (CLng(MySida) - 2) > 1 then
start = CLng(MySida) -2
else
start = 1
end if

Response.Write "<td width=150px>"

For i = start to slut
If i = CLng(MySida) Then
Response.Write "[" & i & "]&nbsp;"
Else
Response.Write "" & i & "&nbsp;"
End If
Next

Response.Write "</td>"

if (CLng(MySida))<MyPageCount then
Response.Write "<td width=80px align=right>Framåt >></td>"
else
Response.Write "<td width=80px>&nbsp;</td>"
end if

response.write "</tr></table>"
End If

End Sub

SQL="SELECT ID,Namn,Ort,Datum,Epost,Hsida,Hittade,inlagg FROM Gastbok Order by Datum DESC"
CALL MakeRecordSet(rs,SQL,Connection)

if not rs.eof then

Dim sida
sida = Trim(Request.QueryString("sida"))
If sida = "" Then
sida = 1
End If

rs.PageSize = 5
rs.AbsolutePage = sida
Dim rad
rad = 0


CALL VisaSidNr(rs.PageCount,sida,"Gast2.asp","Antal medelande: ")

While Not rs.EOF and rad < rs.PageSize
rad = rad + 1
//här skrivs sedan posterna ifrån databasen ut
rs.MoveNext
Wend

CALL VisaSidNr(rs.PageCount,sida,"Gast2.asp","Antal medelande: ")
end if
Call CloseObjects(rs, connection)
</code>
Att jag har lagt en del subbar beror på att jag använder dom på andra sidor också.

tack för hjälpen jag testar