Dim i
i = 0
While Not rs.EOF And i < 3
'Skriva ut...
i = i + 1
rs.MoveNext
Wend
'Ha lite annat kraffs...
While Not rs.EOF
'Skriva ut igen...
rs.MoveNext
Wend
SQL server
Det skulle man kunna göra Erik men hur?
<%
SQL="Select TOP 28 * From Press_Rel Where Language_Bel is null Order By Publish_date Desc"
Set press=Conn.Execute(SQL)
Do Until press.EOF
%>
html
<%
press.MoveNext
Loop
press.MoveFirst
%>
html
<%
Do Until press.EOF
%>
html
<%
press.MoveNext
Loop
press.Close
Set press=Nothing
%>
<%
SQL="Select TOP 28 * From Press_Rel Where Language_Bel is null Order By Publish_date Desc"
Set press=Conn.Execute(SQL)
for i = 1 to 3
%>
html
<%
press.MoveNext
if press.eof then exit for
next
%>
html
<%
Do Until press.EOF
%>
html
<%
press.MoveNext
Loop
press.Close
Set press=Nothing
%>