Opdatere placering ved insert

Hvorfor har du en celle, der hedder 'placering'? - det kan systemet da komme til at kunne regne ud, hvis man fx. sætter 'order by tid'..

Under alle omstændigheder skal du ikke bruge insert, men derimod update.
Jeg vil dog også give hmm10 ret i at det er sjovt at du har et felt som hedder placering og ikke bare hiver det ud og sorterer efter tid.

http://www.eksperten.dk/spm/182615
Det hjælper nogen gange at søge her på eksperten

set rs = conn.execute("select * from brugere order by tid desc")

do until rs.eof

Set placering2 = Server.CreateObject("ADODB.RecordSet")
placering2.CursorLocation = 3 ' adUseClient
strSQL = "Select * From brugere where id = "& rs("id") &""

placering2.Open strSQL, Conn, 1, 3

strtid = placering2("tid")

strSQL = "Select * From brugere where tid  > " & strTID &""

Set placering3 = Server.CreateObject("ADODB.RecordSet")
placering3.Open strSQL, Conn, 1, 3

placeringen = placering3.RecordCount + 1

set rs2 = conn.execute("select count(*) as antal from brugere where tid = "& strTID &"")
navne = navne & placeringen & rs("navn") &"<br>"

placering2.Close
rs.movenext
loop

set rs = conn.execute("select * from brugere order by tid desc")

do until rs.eof

Set placering2 = Server.CreateObject("ADODB.RecordSet")
placering2.CursorLocation = 3 ' adUseClient
strSQL = "Select * From brugere where id = "& rs("id") &""

placering2.Open strSQL, Conn, 1, 3

strtid = placering2("tid")

strSQL = "Select * From brugere where tid  > " & strTID &""

Set placering3 = Server.CreateObject("ADODB.RecordSet")
placering3.Open strSQL, Conn, 1, 3

placeringen = placering3.RecordCount + 1

navne = navne & placeringen & rs("navn") &"<br>"

placering2.Close
rs.movenext
loop

set rs = conn.execute("select * from brugere order by tid desc")

do until rs.eof

Set placering2 = Server.CreateObject("ADODB.RecordSet")
placering2.CursorLocation = 3 ' adUseClient
strSQL = "Select * From brugere where id = "& rs("id") &""

placering2.Open strSQL, Conn, 1, 3

strtid = placering2("tid")

strSQL = "Select * From brugere where tid  > " & strTID &""

Set placering3 = Server.CreateObject("ADODB.RecordSet")
placering3.Open strSQL, Conn, 1, 3

placeringen = placering3.RecordCount + 1

Response.Write = placeringen & rs("navn") &"<br>"

placering2.Close
rs.movenext
loop

Det kører rigtig godt for mig :D

Den her kode updater også placeringen

set rs = conn.execute("select * from brugere order by tid desc")

do until rs.eof

Set placering2 = Server.CreateObject("ADODB.RecordSet")
placering2.CursorLocation = 3 ' adUseClient
strSQL = "Select * From brugere where id = "& rs("id") &""

placering2.Open strSQL, Conn, 1, 3

strtid = placering2("tid")

strSQL = "Select * From brugere where tid  > " & strTID &""

Set placering3 = Server.CreateObject("ADODB.RecordSet")
placering3.Open strSQL, Conn, 1, 3

placeringen = placering3.RecordCount + 1

Response.Write = placeringen & rs("navn") &"<br>"

placering2("placering") = placeringen
placering2.update

placering2.Close
rs.movenext
loop