Hvis ikke så move.next - anden omgang
Jeg har lige stillet dette spørgsmål http://www.eksperten.dk/spm/379003 og var vist lidt for hurtigt til at acceptere.Min kode:
<%
Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
DSN = dsn & "DBQ=" & server.mappath("db/nyheder.mdb")
DataConn.Open DSN
Set nyhed = Server.CreateObject("ADODB.RecordSet")
nyhed.open "Select Top 20 * From [nyheder] order by id desc", DataConn
if not nyhed("sektion") = request.querystring("sektion") then
nyhed.MoveNext
end if
if not nyhed.EOF then
nyhed.MoveFirst
end if
antal=0
do while not nyhed.EOF
%>
<% if antal < 5 then %>
<a href="test.asp?id=<%=nyhed("id")%>"><img src=<%=nyhed("logo")%>></a>
<br>
<%else%>
<a href="test.asp?id=<%=nyhed("id")%>"><%=nyhed("overskrift")%></a>
<br>
<%end if %>
<%
antal=antal+1
nyhed.MoveNext
loop
nyhed.Close
set nyhed = nothing
Dataconn.Close
%>
Den springer godt nok over dem som den skal springe over, men lad os nu sige at der 2 den ikke skal vise, så viser den kun 18 istedet for 20?
