> jo eigener Code, aber nach dem einfügen bringt ja nur die letzte ID.
Nach jedem Insert holst Du die letzte Identity...
Id = InsertRS("DieTabelle", _
array("feld1","feld2"), _
array(1,"wert2"), _
"ID")
Function InsertRS(table,fields,values,PK)
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3'adUseClient
rs.CursorType = 3'adOpenStatic
rs.LockType = 3'adLockOptimistic
rs.Open "SELECT * FROM " & table & " WHERE 0=1", Application("DB")
rs.AddNew fields, values
rs.Update
InsertRS = rs(PK)
rs.Close
Set rs = Nothing
End Function
Und speicherst die irgendwo, z.B. In ner Dictionary...
Dic(id) = 0
alleIDs = Dic.Keys
Gruss,
Claudius
_______________________________________________
Asp.net Mailingliste, Postings senden an:
Asp.net@glengamoi.com
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
