Redirect til nyeste ID

Hvilken database har du?

Sorry ;D

Det er en Access base

To eksempler hvoraf det føste kun måske virker det kommer an på driveren:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.JET.OLEDB.4.0;Date Source=" & Server.MapPath("somedir/somedb.mdb")

'Først indsæt data
SQL = "INSERT INTO tabelNavn (kol1, kol2) VALUES('abc', 'xyz')"
Conn.Execute (SQL)

'Find sidste tilføjet ID
SQL = "SELECT @@IDENTITY FROM tabelNavn"
Set RS = Conn.Execute(SQL)
nytID = RS(0)
RS.Close
response.write nytID
%>

Hvis dette eksemple giver udskriver 0 eller -1 så prøv med dette næste eksemple.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.JET.OLEDB.4.0;Date Source=" & Server.MapPath("somedir/somedb.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")

rs.Open "SELECT * FROM tabelNavn", Conn, 1, 3
rs.AddNew
rs("kol1") = "abc"
rs("kol2") = "xyz"
rs.Update
nytID = rs("navnet_på_autonummer_kolonnen")

Response.write nytID
%>

Set oRs = oConn.Execute("SET NOCOUNT ON; INSERT INTO CRMCustomers(ID,Dato) VALUES (" & 2 & ",'" & dato & "'); SELECT @@IDENTITY AS THISID;")

response.redirect("nyside.asp?id=" & oRs("thisid"))

arhg, måske jeg skulle opdaterer siden en gang imellem. Min virker kun til ms-sql
:-(

http://www.opfinderen.dk/sites/?id=13

...det var et svar...
Kunne det bruges?

Beklager den meget lange svartid.

Jeg kan sgu ikke få skidtet til at spille, med den kode.

MVH

Wolfgang

Denne virker med Access:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.JET.OLEDB.4.0;Date Source=" & Server.MapPath("somedir/somedb.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")

rs.Open "SELECT * FROM tabelNavn", Conn, 1, 3
rs.AddNew
rs("kol1") = "abc"
rs("kol2") = "xyz"
rs.Update
nytID = rs("navnet_på_autonummer_kolonnen")

Response.write nytID
%>