---
title: "Sista posten"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/91516-sista-posten"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bjarne A"
published: "2003-11-29T00:18:06.000Z"
updated: "2003-12-01T20:58:30.000Z"
replies: 7
views: 271
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/91516-sista-posten"
---
# Sista posten
## #1 — Bjarne A, 2003-11-29T00:18Z
Lopar fram alla poster i en tabel med:
\<%
SQL = "SELECT \* FROM soff ORDER BY ID DESC"
set rs = connect.execute(SQL)
%\>\<%Do until Rs.EOF
intCnt = intCnt + 1
%\>
och skulle vilja kolla om det är sista värdet med en IF-sats
IF posten är den sista
THEN \
ELSE
\"\>\
\
ENDIF
\<%Rs.MoveNext%\>\<%Loop%\>
\<%
rs.close
set rs = nothing
%\>
Hur kan man kolla det och få till denna IF-sats
Tack på förhand
Permalänk: https://www.webforum.nu/p/91516
## #2 — cyprys, 2003-11-29T09:56Z
Är faktiskt inte riktigt säker men borde inte något sådan funka?
```
do while not rs.eof
' Skriv ut infon
rs.movenext
if rs.eof
' Skriv ut transparant bild
exit loop
else
' Skriv ut annat
end if
loop
```
Permalänk: https://www.webforum.nu/p/1215444
## #3 — Bjarne A, 2003-11-29T10:11Z
Skall kolla men första tanken med denna kod var att det blir en transparant bild efter den sista posten
Den sista posten skall inte kunna flyttas neråt
om posten efter inte finns så skall man göra något med denna posten
och om det finns en post efter så skall det bli annnat
Man måste kolla av databasen på något sätt... tror jag... :l
Permalänk: https://www.webforum.nu/p/1215448
## #4 — cyprys, 2003-11-29T12:41Z
Nått sånt här då?
```
SQL = "SELECT * FROM soff ORDER BY ID DESC"
Set Rs = conn.execute(SQL)
Dim arrSoff
Dim x
arrSoff = Rs.GetRows()
' Detta blir alla poster utom den sista
for x = lbound(arrSoff) to ubound(arrSoff) - 1
response.write(arrSoff(1, x) & "Skriv lite här.")
next
' Här skriver du den sista posten
arrSoff(1, ubound(arrSoff) & "Skriv inte här!")
```
Permalänk: https://www.webforum.nu/p/1215487
## #5 — Bjarne A, 2003-11-30T23:51Z
Skulle kunna skicka med kod med alla försöken som blivit galna när jag försökte få med koden som du bistog med. :l
skickar i stället koden som jag skulle vilja styra upp så att den sista posten skall kunna läsas inte få en nerpil "pil_ner.gif"
```
SOFF
<%
SQL = "SELECT * FROM soff ORDER BY ID DESC"
set rs = connect.execute(SQL)
%><%Do until Rs.EOF
intCnt = intCnt + 1%>
"><%= RS("rubrik")%>
">
<%Rs.MoveNext%> <%Loop%>
<%
rs.close
set rs = nothing
%>
<%
connect.Close
set connect = nothing
%>
```
Hur skall jag göra?
Permalänk: https://www.webforum.nu/p/1215938
## #6 — Josef, 2003-12-01T00:10Z
Så här kanske:
```
SOFF
<%
SQL = "SELECT * FROM soff ORDER BY ID DESC"
Set Rs = connect.execute(SQL)
Do until Rs.EOF
Response.Write("" & RS("rubrik") & "")
Response.Write("![]()
")
Rs.MoveNext
If Rs.EOF Then
Response.Write("![]()
")
End If
Loop
Rs.Close : Set rs = nothing
Connect.Close : Set connect = nothing
%>
```
(Du behöver inte abovbs.inc då du inte använder den i koden.)
Permalänk: https://www.webforum.nu/p/1215942
## #7 — cyprys, 2003-12-01T07:39Z
```
SOFF
<%
SQL = "SELECT * FROM soff ORDER BY ID DESC"
Set Rs = connect.execute(SQL)
Do until Rs.EOF
Response.Write("" & RS("rubrik") & "")
Rs.MoveNext
If Rs.EOF Then
Response.Write("![]()
")
[b]else
Response.Write("![]()
")[/b]
End If
Loop
Rs.Close : Set rs = nothing
Connect.Close : Set connect = nothing
%>
```
Permalänk: https://www.webforum.nu/p/1218923
## #8 — Bjarne A, 2003-12-01T20:58Z
Tack för hjälpen !! :birp
Permalänk: https://www.webforum.nu/p/1219276
---
Tråden på webben: https://www.webforum.nu/amne/asp/91516-sista-posten