Ciao.
Purtroppo questo è uno dei grossi problemi di tutte le applicazioni client-server e web-based.
In teoria, dato che si presume che più utenti possano inserire un record nello stesso (o quasi) istante, non è possibile sapere CON ESATTEZZA il valore del campo autonumber....ma se le transizioni concorrenti sono rare puoi fare una select max(id) from tabella...ed è risolto.

Per lavoro pulito:
1)aprire la tabella lokkandola (solo tu puoi inserire o modificare i dati)
2)fare inserimento
3)fare select max(id) from tabella
4)chiudere connessione e liberare il lock

in questo modo sei sicuro (dato che non possono esserci transizioni concorrenti) che il valore dell'autonumber è effettivamente quello generato per il tuo record!

Per ovviare a i problemi detti sopra non riesci a creare un codice univoco lato client?
Tipo codice fiscale,numero fattura, etc,etc.
é la soluzione più SICURA

La precisazione di guidocaser in linea di principio è teoricamente corretta.

Tuttavia la concomitanza, statisticamente parlando, nel caso dei nostri "piccoli" siti è davvero un'ipotesi remota.

Subito dopo l'esecuzione della query di inserimento (per intenderci: objCon.Execute strSql), aggiungi:



e la tua variabile strID_item conterrà il tuo bel valorino.

Ciao

Questa soluzione è un pò più complicata ma a mio parere più professionale
______________________________________________________________________

Dim cnAdo, rsSalva, strConnString, strSQLSalva
Dim id_item, strNome, strCognome
id_item=0 'se devi fare un inserimento assegni un valore non esistente
id_item=x 'assegni un valore da modificare se devi fare un aggiornamento
set cnAdo=Server.CreateObject("ADODB.Connection")
strConnString"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(path_table)
strSQLSalva="SELECT * FROM table WHERE id_item=" & id_item
cnAdo.Open(strConnString)
cnAdo.CursorLocation = adUseClient
set rsSalva=Server.CreateObject("ADODB.Recordset")
rsSalva.ActiveConnection = cnAdo
rsSalva.CursorType = adOpenDynamic
rsSalva.LockType = adLockOptimistic
rsSalva.Source = strSQLSalva
rsSalva.Open
If (Request("Submit")="Elimina")then
rsSalva.Delete
Else
If rsSalva.EOF Then
rsSalva.AddNew
End if
rsSalva.Fields("nome")=strNome
rsSalva.Fields("cognome")=strCognome
rsSalva.Update
id_item=rsSalva.Fields("id_item")
End if
rsSalva.Close
set rsSalva = nothing
cnAdo.Close
set cnAdo = nothing
______________________________________________________________________

---

Modificato da Miryddyn il 20 aprile 2006 09.56 -