Protocollo di archiviazione

[mummy71]

'Apertura database
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\SAQ\DB_SAQ\db_documenti.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open "elenco_doc", objConn,3,3

'Memorizzo i dati
objRs.addnew
objRs ("TITOLO_DOC") = request.form("txtTITOLODOC")
objRs ("DESCRIZIONE_DOC") = request.form("txtDESCRIZIONEDOC")
objRs ("PAROLECHIAVE_DOC") = request.form("txtPAROLECHIAVE")
objRs.update
'Query
strSQL = "SELECT @@IDENTITY FROM elenco_doc"
'Apertura del recordset ed esecuzione della query
ObjConn.Execute(strSQL)
ultimo_id = objRS(0)
'Chiusura recordset
objRS.Close
set objRS = nothing
objConn.close
set objConn = Nothing

'A video
response.write "<BOLD> Memorizzazione avvenuta con successo. </BOLD>
"
response.write "Il documento " & request.form("txtTITOLODOC") & "è stato memorizzato con protocollo "& ultimo_id & "
"

________________________

Dunque devo recuoerare l'id del record inserito che mi fa da protocollo, l'archiviazione funziona ma non riesco a vedere il protocollo "ultimo_id" dove sbaglio !
Ciao. Ale.

[diegoctn]

Embè?

[mummy71]

Perchè?

[weppos]

ObjConn.Execute(strSQL)

Prova usando la sintassi Open sul recordset.
Inoltre dopo l'update chiudi il Recordset objRS.Close prima di eseguire la query.

E' un inutile dispendio di risorse lasciarlo aperto.