Bjarne A Medlem sedan feb. 2001 151 inlägg Trådstart 29 nov. 2003 00:18 #1 Lopar fram alla poster i en tabel med:
<%
och skulle vilja kolla om det är sista värdet med en IF-sats
IF posten är den sista
ELSE
<%Rs.MoveNext%><%Loop%>
Hur kan man kolla det och få till denna IF-sats
cyprys Medlem sedan dec. 2000 3 563 inlägg Ä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
Bjarne A Medlem sedan feb. 2001 151 inlägg 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...
cyprys Medlem sedan dec. 2000 3 563 inlägg 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!")
Bjarne A Medlem sedan feb. 2001 151 inlägg 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.
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"
<html>
<head>
<title>SOFF</title>
</head>
<body bgcolor="#FFFFCC">
<!--#INCLUDE FILE="adovbs.inc"--> <!--#INCLUDE FILE="koppling.asp"--> <%
SQL = "SELECT * FROM soff ORDER BY ID DESC"
set rs = connect.execute(SQL)
%><%Do until Rs.EOF
intCnt = intCnt + 1%>
<a href="lasa_artikel.asp?artikel=<%= RS("id")%>"><%= RS("rubrik")%></a>
<a href="flytta.asp?artikel=<%= RS("id")%>"><img src="pil_ner.gif" width="9" height="10" border="0"></a><BR>
<%Rs.MoveNext%> <%Loop%>
<%
rs.close
set rs = nothing
%>
<%
connect.Close
set connect = nothing
%>
</body>
</html>
Hur skall jag göra?
J Josef Medlem sedan mars 2002 3 561 inlägg Så här kanske:
<!--#INCLUDE FILE="koppling.asp"-->
<html>
<head>
<title>SOFF</title>
</head>
<body bgcolor="#FFFFCC">
<%
SQL = "SELECT * FROM soff ORDER BY ID DESC"
Set Rs = connect.execute(SQL)
Do until Rs.EOF
Response.Write("<a href=""lasa_artikel.asp?artikel=" & RS("id") & """>" & RS("rubrik") & "</a>")
Response.Write("<a href=""flytta.asp?artikel=" & RS("id") & """><img src=""pil_ner.gif"" width=""9"" height=""10"" border=""0""></a><BR>")
Rs.MoveNext
If Rs.EOF Then
Response.Write("<img src=""transparant.gif"" width=""9"" height=""10"" border=""0"">")
End If
Loop
Rs.Close : Set rs = nothing
Connect.Close : Set connect = nothing
%>
</body>
</html>
(Du behöver inte abovbs.inc då du inte använder den i koden.)
cyprys Medlem sedan dec. 2000 3 563 inlägg <!--#INCLUDE FILE="koppling.asp"-->
<html>
<head>
<title>SOFF</title>
</head>
<body bgcolor="#FFFFCC">
<%
SQL = "SELECT * FROM soff ORDER BY ID DESC"
Set Rs = connect.execute(SQL)
Do until Rs.EOF
Response.Write("<a href=""lasa_artikel.asp?artikel=" & RS("id") & """>" & RS("rubrik") & "</a>")
Rs.MoveNext
If Rs.EOF Then
Response.Write("<img src=""transparant.gif"" width=""9"" height=""10"" border=""0"">")
[b]else
Response.Write("<a href=""flytta.asp?artikel=" & RS("id") & """><img src=""pil_ner.gif"" width=""9"" height=""10"" border=""0""></a><BR>")[/b]
End If
Loop
Rs.Close : Set rs = nothing
Connect.Close : Set connect = nothing
%>
</body>
</html>
