Ret i position

function hej(oldpos,newpos)

for x=oldpos to newpos
SQL = "UPDATE BLAAH SET POSITION=x+1 where position=x"
Next

SQL2 = UPDATE BLAAH SET POSITION=newpos where position=oldpos"

End Function



noget lign. det vel

ahh, ja ser ud som noget brugbart!
Hvordan vil det så se ud ved at have en select menu ud fra hvert indlæg i en listning af alle indlæg.
Dvs. man skal fra min visningsside af alle indlæg, have en select-menu ud fra hvert af dem med deres respektive position nummer i.. Ved at lave en ændring i et af dem, skal den automatisk rokerer indlæggene rundt ved valg

Ok.. Jeg har fået denne til at virke fint. Er godt noget rodet kode, but it works :)
<%

sub rykposition(newpos,oldpos)

    if newpos < oldpos then
    dim sql1
    dim strConn, strconn2, strconn1
    dim x, sql, sql2
Set strconn1 =Server.CreateObject("ADODB.Connection")
strConn1.open="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./db/wjt.mdb")
      sql1= "UPDATE staff SET position = 0 where position="&oldpos&""
strConn1.Execute (sql1)
strconn1.close

    for x=oldpos-1 to newpos step -1

Set strconn =Server.CreateObject("ADODB.Connection")
strConn.open="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./db/wjt.mdb")

      sql = "UPDATE staff SET position = "&x&" + 1 where position = "&x&""
response.write sql
strConn.Execute (sql)
strconn.close

    next
Set strconn2 =Server.CreateObject("ADODB.Connection")
strConn2.open="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./db/wjt.mdb")
      sql2= "UPDATE staff SET position = "&newpos&" where position=0"
strConn2.Execute (sql2)
strconn2.close

    else

    dim sql3
    dim strConn3, strconn4, strconn5
    dim xy, sql4, sql5
Set strconn3 =Server.CreateObject("ADODB.Connection")
strConn3.open="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./db/wjt.mdb")
      sql3= "UPDATE staff SET position = 0 where position="&oldpos&""
strConn3.Execute (sql3)
strconn3.close

    for x=oldpos+1 to newpos

Set strconn4 =Server.CreateObject("ADODB.Connection")
strConn4.open="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./db/wjt.mdb")

      sql4 = "UPDATE staff SET position = "&x&" - 1 where position = "&x&""
response.write sql4
strConn4.Execute (sql4)
strconn4.close

    next
Set strconn5 =Server.CreateObject("ADODB.Connection")
strConn5.open="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./db/wjt.mdb")
      sql5= "UPDATE staff SET position = "&newpos&" where position=0"
strConn5.Execute (sql5)
strconn5.close
end if
end sub
%>

Spørgsmålet er så bare nu hvordan jeg kan gribe newpos værdi fra en SELECT menu, og sende til den funtktion..?`?
Jeg kalder den lige nu via.
<%
call rykposition(10,5)
%>

Jeg vil godt give flere point hvis det er det der skal til.. Pls hlp