hentet data fra scces men max 8 records på en side

Du kan lave paging på recordsetet så den viser 8 pr. side og lave lidt kode som viser 4 pr. række eksempel på koden:



<html><head>
<title>Paging af et recordset</title>
</head><body>

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
conn.Open strDSN
strSQL = "SELECT billedesti FROM billeder"

rs.Open strSQL, Conn, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 8  'Antal billeder pr. side
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount

  antalPrRow = 4 'antal billeder pr række
  noPrRow=0 'tælle variable

  Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
  response.Write "<table>"
  Do While Not rs.EOF And intRecCount > 0
    if noPrRow=0 then Response.Write "<tr>"
   
    Response.Write "<td><img src=""" & rs("billedesti") & """></td>"

    noPrRow=noPrRow+1
    if noPrRow=antalPrRow then
      response.write "</tr>"
      noPrRow=0
    end if
    intRecCount = intRecCount - 1
    rs.MoveNext
  Loop
  if noPrRow>0 then response.write "</tr>"
  response.write "</table>"
End If
rs.Close
Set rs = Nothing
Conn.Close
Set Conn=nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>

</body></html>

øhhh der er ikke noget i min database der hedder billedesti

mine billeder ligger som links i databasen i tabel1 under link

kan du rette det til så det virker

Ja, det kan rettes i strSQL, så prøv at rette:
strSQL = "SELECT billedesti FROM billeder"

Til:

strSQL = "SELECT links FROM tabel1"


Samt denne linje:
    Response.Write "<td><img src=""" & rs("billedesti") & """></td>"

Til:

    Response.Write "<td><img src=""" & rs("links") & """></td>"

TAKKER MANGE GANGE