<%
SQL = "SELECT * FROM soff WHERE id = " & idnummer & ""
set Rs = connect.execute(SQL)
if not RS.eof then
Dim nurubrik
nurubrik = Rs("rubrik")
Dim nuingress
nuingress = Rs("ingress")
Dim nutext2
nutext2 = Rs("text2")
RS.MoveNext [blue]'Onödigt eftersom du i nästa ögonblick öppnar ett nytt Rs (Du hamnar även på EOF)[/blue]
set Rs = connect.execute(SQL) [blue]'Här måste du byta id om du vill ha en annan post[/blue]
Dim senid
senid = Rs("id")
Dim senrubrik
senrubrik = Rs("rubrik")
Dim seningress
seningress = Rs("ingress")
Dim sentext2
sentext2 = Rs("text2")
End if
Du måste göra som LarsG skriver, då plockar du ju ut det id som har högre värde.
typ kanske:
<%
SQL = "SELECT * FROM soff WHERE id = " & idnummer
set Rs = connect.execute(SQL)
if not RS.eof then
Dim nurubrik
nurubrik = Rs("rubrik")
Dim nuingress
nuingress = Rs("ingress")
Dim nutext2
nutext2 = Rs("text2")
End if
sql = "select * FROM soff WHERE id > " & idnummer
set rs2 = connect.execute(sql)
if not rs2.eof then
Dim senid
senid = Rs2("id")
Dim senrubrik
senrubrik = Rs2("rubrik")
Dim seningress
seningress = Rs2("ingress")
Dim sentext2
sentext2 = Rs2("text2")
End if
SQL2 = "UPDATE soff SET rubrik = '" & nurubrik & "', ingress = '" & nuingress & "', text2 = '" & nutext2 & "' WHERE ID = " & senid
SQL3 = "UPDATE soff SET rubrik = '" & senrubrik & "', ingress = '" & seningress & "', text2 = '" & sentext2 & "' WHERE ID = " & idnummer
connect.Execute(SQL2)
connect.Execute(SQL3)
%>
Fast jag är ju fortfarande osäker på om du inte går över ån efter vatten... Du har alltså kanske 10 id från nummer 1-10 och vill byta plats/innehåll på tex 4 samt 5?
OK det fungerade ju som det skulle.
Så som jag fattar det så talar man inte om att man skall använda nästa post utan nästa post hämtas automatiskt andra gånen eller hur funkar det?
Vad menar du med att man går över ån efter vatten? kan man göra det enklare :l :D
Du talar visst om vilken post.
I den första frågan hämtar du: id = idnummer
Nästa gång tar du: id > idnummer
Ser du skillnaden?
Jag ska inte opponera mig mot ditt uppägg erftersom jag inte har en susning om vad du skapar för något, det jag funderade på var om du ändrar ordningen i db bara för att skriva ut din data annorlunda. I så fall skulle man kunna lösa det vid själva utskrivningen i stället.
Men som sagt, jag vet inte dina syften.
Ja nu ser jag. Tänkte inte inte i dom banorna. Låste mej vid att jag inte har en rak nummerföljd i id posterna då man kan radera i mellan och funkar det inte med att numeriskt flytta med typ id = idnummer + 1 men nästa större funkar ju Tack!
Sidor skapas med ett formulär som skickas till databasen där "rubrik" blir en klickbar länk i en meny. Man skall sedan kunna flytta dom i menyn som hämtas uppifrån och mer i databasen.
Det går säkert att bestämma vilken ordning som dom skall hämtas vid utskriften men jag vet inte hur
<%
SQL = "SELECT * FROM soff WHERE id >= " & idnummer & " ORDER BY id"
set Rs = connect.execute(SQL)
if not RS.eof then
Dim nurubrik
nurubrik = Rs("rubrik")
Dim nuingress
nuingress = Rs("ingress")
Dim nutext2
nutext2 = Rs("text2")
Rs.Movenext
if not rs.eof then
Dim senid
senid = Rs("id")
Dim senrubrik
senrubrik = Rs("rubrik")
Dim seningress
seningress = Rs("ingress")
Dim sentext2
sentext2 = Rs("text2")
SQL2 = "UPDATE soff SET rubrik = '" & nurubrik & "', ingress = '" & nuingress & "', text2 = '" & nutext2 & "' WHERE ID = " & senid
SQL3 = "UPDATE soff SET rubrik = '" & senrubrik & "', ingress = '" & seningress & "', text2 = '" & sentext2 & "' WHERE ID = " & idnummer
connect.Execute(SQL2)
connect.Execute(SQL3)
End if
End if
%>
