Finde id efter indsættelse af nye poster i db

Noget i denne stil, inden du lukker igen :)

strSQL2 = "SELECT TOP 1 id from tabel ORDER BT id DESC"
set rs = Conn.execute(strSQL2)
response.write(rs('id'))

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../db/kunder.asp")
Conn.Open DSN

strSQL = "Insert into kunder (NAVN, ADRESSE, ALDER) values ('" & Request.Form("navn") & "','" & Request.Form("ADR") & "','" & Request.Form("ALDER") & "')"

Conn.Execute(strSQL)

SQLnew = "SELECT @@IDENTITY as NytID FROM kunder"
set rsIdentity = conn.execute(SQLnew)
newid = rsIdentity("NytID")
rsIdentity.close
set rsIdentity = nothing

Conn.Close
Set Conn = Nothing

response.write "Oprettet med id nr." & newid

/Goose

Takker