Ciao a tutti.
come scritto nel titolo devo riordinare tutti gli id di una tabella.
Questo lo devo fare poichè più utenti hanno inserito dei dati, solo che tra nuove aggiunte, doppioni o cancellazioni, la tabella non ha più gli ID ordinati.
L'ID deve essere composto dall'anno di riferimento, quindi 2011, più tre cifre che si incrementano ogni volta (Quindi 2011000, 2011001, 2011002, 2011003,...).
Seguendo alcuni post ho cercato di creare un codice che selezionasse tutti i record e con un'altra interrogazione eseguo l'update.
Solo che quando faccio partire il file mi va in loop.
Qualcuno sa spiegarmi il motivo? Grazie mille.
codice:

<%	
	Set Conn=Server.CreateObject("ADODB.Connection")
	
	Conn.Open (strConn)
	sql = "SELECT ID FROM progettiFormativi"
	
	anno = Year(Date)
	char1 = 0
	char2 = 0
	char3 = 0
	
	set rs = Conn.execute(sql)
	if not(rs.eof) then
		do while not rs.eof
			if ((char1<>0) AND (char2<>0) AND (char3<>0)) then
				if (char3<>9) then
						char3 = char3 + 1
				else if(char2<>9) then
						char3 = 0
						char2 = char2 + 1
					else
						char3 = 0
						char2 = 0
						char1 = char1 + 1
					end if	
				end if
			end if
			id=rs("ID")
			strId = anno & a & b & c
			sql = "UPDATE progettiFormativi SET ID = '" & strId &"' WHERE ID='" & id & "'"
			Conn.execute(sql)
		loop
	end if
	Set rs = Nothing
	Conn.Close
	Set Conn = Nothing

	response.Redirect("vediPianificazione.asp?azione=editId&esito=corretto")
%>