Ja det går. Om du säger att du returnerar 30 poster per sida, så bygger du html-koden så html-koden för post 1 - 10 skrivs, därefter ny kolumn och 20-29, samt sista kolumnen med 30-40 så får du 3 kolumner sen är det klart..

Börja med att göra en dummy-html sida och sen fyller du på med asp-kod för att slutföra det..

/Pelle

Hej, har gjort en html "dummy" med tre kolumner, men alla poster i databasen skrivs ut på första sidan...vad är galet??

<code>
<!-- bild visning start -->

<%
'## -- skapa connection object och öppna databasen --
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../../_data/begBoat.mdb")

'## -- hur många poster ska visas per sida --
intPageSize = 15 '## -- byt ut till hur många poster du vill ska visas per sida --

'## -- vilken sida ska visas --
intPage = Request.QueryString("page")

'## -- kontrollera så att inte intPage variabeln är tom --
If intPage = "" Then intPage = 1 '## -- visa första sidan som default --

'## -- sql-fråga för att hämta data från databasen --
strSQL = "SELECT ID, Filnamn, Beskrivning FROM TBL_IMAGES ORDER BY ID DESC"

'## -- skapa och öppna recordsetet --
Set objRS = Server.CreateObject("ADODB.Recordset")
With objRS
.ActiveConnection = objConn
.Source = strSQL

'## -- bestämmer hur många poster som varje sida ska bestå av i recordsetet --
.PageSize = intPageSize
.CursorType = 3
.LockType = 1
.Open
End With

'## -- kontrollera om några poster har returnerats eller inte --
If Not objRS.EOF Then
'## -- poster har returnerats --

'## -- visa rätt sida i recordsetet --
objRS.AbsolutePage = intPage

'## -- hur många sidor består recordsetet av --
intTotalPages = objRS.PageCount

'## -- visa sidnavigeringen --
'Call PageNavigation(intPage, intTotalPages)

'## -- loopa igenom recordsetet och visa posterna för besökaren/användaren --
Do Until objRS.EOF OR intCounter >= intPageSize
intCounter = intCounter + 1

'## -- printa ut informationen till besökare/användaren ---------------------------------------------------
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td><img border="0" src="../thumbs/<%=objRS("Filnamn") %>" width="120" height="80"><br>
"><%=objRS("Beskrivning")%></font></td>
<% objRS.MoveNext %>
<td><img border="0" src="../thumbs/<%=objRS("Filnamn") %>" width="120" height="80"><br>
"><%=objRS("Beskrivning")%></font></td>
<% objRS.MoveNext %>
<td><img border="0" src="../thumbs/<%=objRS("Filnamn") %>" width="120" height="80"><br>
"><%=objRS("Beskrivning")%></font></td>
</tr>
</table>
</center>
</div>
<%

'##------------------------------------------------------------------------------------------------


objRS.MoveNext
Loop

Else
'## -- inga poster returnerades --
'## -- visa meddelande att inga poster hittades för användaren --
End If

'## -- rensa up --
objRS.Close
Set objRS = Nothing

objConn.Close
Set objconn = Nothing
%>


</td>
</tr>
<tr>
<td width="100%" valign="top" align="center"><br>
<%

'## -- visa sidnavigeringen --
Call PageNavigation(intPage, intTotalPages)

'## -- include filen nedan innehåller själva subrutinen för sidnavigeringen --
%>
<!--#INCLUDE FILE="../includes/inc_pagingFunction.asp"-->


<!-- bild visning slut -->
</code>