J
|
Jane 3/14/2007 |
Marcos, |
M
|
marcove author 3/14/2007 |
Database is MSAccess 2000 |
J
|
Jane 3/14/2007 |
Marcos, Sub AfterAdd() str = "select max(RecordID) from " & strTableName Set rsTemp = server.CreateObject("ADODB.Recordset") rsTemp.open str, dbConnection 'rsTemp(0) - RecordID of added record Response.Write rsTemp(0) rsTemp.Close : set rsTemp = Nothing End Sub |
M
|
marcove author 3/14/2007 |
Ok thank you. Just a detail: |
J
|
Jane 3/14/2007 |
Marcos, str = "select max(RecordID) from " & strTableName or str = "select max(RecordID) from _ProtocolloAmm" |