<html>
<head><title>Bjarne</title>
</head>
<body>
<!--#INCLUDE FILE="adovbs.inc"--> <!--#INCLUDE FILE="koppling.asp"-->
<%
SQL = "SELECT * FROM texter ORDER BY ID DESC"
set rs = connect.execute(SQL)
Dim nu
Dim ner
Dim rubrik
%> <%Do until Rs.EOF
intCnt = intCnt + 1%>
<%
nu = RS("SortField")
rubrik = rs("rubrik")
Rs.MoveNext
if rs.eof then
ner = ""
else
ner = RS("SortField")
END IF
%>
<a href="ta_imot.asp?pos=<%=nu%>&newpos=<%=ner%>"><%= rubrik")%></a><BR><BR>
<%Loop%>
<%
rs.close
set rs = nothing
%>
</body>
</html>
Trådstart#1
Jag försöker hämta sorteringsnummret ur "SortField" och ge det värdet till "nu"
sedan skall jag flytta till nästa rad och hämta värdet och ge det till "ner"
nu är jag på nästa rad och tilldelar nya värden
När jag når botten av tabellen så skall det ta stopp
och tilldela ner värdet något "blabla" som jag får använda
på mottagarsidan
IF Request.QueryString("ner") = blabla THEN
ResponsE.Write"Du kan inte flytta denna posten högre"
ELSE
......
Nu funkar inte den lilla IF satsen där nere grrrrrr
Är det för att det är dubbla Rs.EOF
eller fel på IF-satsen ?? (HAR PROVAT MÅNGA VARIANTER)
får felmedelandet:
ADODB.Field fel '800a0bcd'
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats; åtgärden som programmet begärt kräver en aktuell post.
/skoltidning/adm/bjarne.asp, rad 18
<html>
<head><title>Bjarne</title>
</head>
<body>
<!--#INCLUDE FILE="adovbs.inc"--> <!--#INCLUDE FILE="koppling.asp"-->
<%
SQL = "SELECT * FROM texter ORDER BY ID DESC"
set rs = connect.execute(SQL)
%> <%Do until Rs.EOF
intCnt = intCnt + 1%>
<%
Dim nu
Dim ner
nu = RS("SortField")
IF Rs.EOF = True THEN
ner = blabla
ELSE
Rs.MoveNext
ner = RS("SortField")
END IF
%>
<a href="ta_imot.asp?pos=<%=nu%>&newpos=<%=ner%>"><%= RS("rubrik")%></a><BR><BR>
<%Loop%>
<%
rs.close
set rs = nothing
%>
</body>
</html>
