Jag har gjort mig en liten gästbok, och så har jag i den en sida där man 'deletar' meddelanden. När jag har deletat ett medd (utan problem) vill jag ändra kolumnen (jag använder mig av en Access databas) ID i alla tidigare meddelande till ett nytt värde. Jag testade så här men det gick åt skogen...
<code>
'lite kod (som går som en klocka =) )
objRS.Delete

Response.Write "Meddelandet borttaget."
' ändrar ID nummerna
Dim iNew
iNew = 1
objRS.MoveFirst
Do while not objRS.EOF
objRS("Id") = iNew
objRS.Update
iNew = iNew + 1
Loop
</code>
Inga felmedd el dy.l jo jag fick ett TimeOut en gång jag tror den loopar runt o runt o runt l. nåt sånt
anslutningen till databasen ser ut följande
<code>
objRS.Open "Info", objConn,, adLockOptimistic, adCmdTable
</code>
Vet nån varför detta inte funkar ?
Tack på förhand.
/jonas

Ser ut som det saknas en movenext.
("while not" kan ersättas med "Until", lite snyggare tycker jag)

Do Until objRS.EOF
objRS("Id") = iNew
objRS.Update
iNew = iNew + 1
objRS.Movenext
Loop