Bjarne AMedlem sedan feb. 2001151 inlägg 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 <img src="transparant.gif" width="9" height="10" border="0">
ELSE
<a href="flytta_artikel.asp?artikel=<%= RS("id")%>"><img src="pil_ner.gif" width="9" height="10" border="0"></a>
ENDIF
<%Rs.MoveNext%><%Loop%>
<%
rs.close
set rs = nothing
%>
Hur kan man kolla det och få till denna IF-sats
Tack på förhand
cyprysMedlem sedan dec. 20003 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 AMedlem sedan feb. 2001151 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... :l
cyprysMedlem sedan dec. 20003 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 AMedlem sedan feb. 2001151 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. :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"
<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?
JosefMedlem sedan mars 20023 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.)
cyprysMedlem sedan dec. 20003 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>
Bjarne AMedlem sedan feb. 2001151 inlägg Tack för hjälpen !! :birp
