<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=SQLOLEDB;Data Source=ARNEPC3;Initial Catalog=Test;Integrated Security=SSPI;"
con.Execute("CREATE TABLE dummy(id INTEGER IDENTITY, tval VARCHAR(50), PRIMARY KEY(id))")
con.Execute("INSERT INTO dummy(tval) VALUES('ABC')")
Set rs = con.Execute("SELECT SCOPE_IDENTITY() AS idid")
Response.Write rs("idid")
con.Execute("DROP TABLE dummy")
Set rs = Nothing
Set con = Nothing
%>