Hej, Problemet är att alla rader visas på sida 1, alltså alla poster(4 poster/rad). När jag trycker framåt tas 10 rader bort för varje tryck framåt via paging. Jag har försökt att flytta i=i+1, men får det inte att fungera. Snälla finns det någon som vill hjälpa mig... //Bo


RS.Open SQL_query, MyConn, 3



if NOT RS.EOF and not i= CInt(10) then
RS.PageSize = 10
TotalPages = RS.PageCount
RS.AbsolutePage = RSPage

i=0
Q=0

response.write "<table border=2><tr>"
do until RS.eof
response.write "<td>"&RS("bild1")&"</td>"
Q=Q+1
i=i+1

'Count total hits
TotalHits = RS.RecordCount

RS.movenext

if Q mod 4 = 0 Then Response.Write "</tr><tr>"

loop

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

end if


%>

<TABLE BORDER=0 WIDTH=100% CELLSPACING=0 CELLPADDING=0>
<TR>
<TD width=220 ALIGN=LEFT>&nbsp;&nbsp;
<%IF NOT RSPage = 1 THEN%>
<FONT FACE="Arial,Helvetica" SIZE=2>
[ << Första ]
[ < Föregående ]

</FONT>
<%END IF%>
&nbsp;
</TD>
<TD Width=120 Align=Center><B><FONT FACE="<Verdana,Arial,Helvetica" SIZE=2>
<%IF RSPAge = 1 THEN%>
[ 1 - <%=i%> av <%=TotalHits%> ]
<%ELSE%>
[ <%=CInt(max*(RSPage-1)+1)%> - <%=CInt(max*(RSPage-1)+i)%> av <%=TotalHits%> ]
<%END IF%></B></FONT>
</TD>
<TD width=180 ALIGN=RIGHT>&nbsp;
<%IF NOT CInt(TotalPages) = CInt(RSPage) THEN%>
<FONT FACE="Verdana,Arial,Helvetica" SIZE=2>
[ Nästa ></FONT> ]
[ Sista >></FONT> ]
</FONT>
<%END IF%>
</FONT>
</TD>
</TR>
</TABLE>

<%
myconn.close

%>