Tjeck af IDnr

Set Connect = Server.CreateObject("ADODB.Connection")
Path = "DBQ=c:\inetpub\db\database.mdb"
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & Path

SQL = "SELECT * FROM Tabel1 WHERE ID = " & curid

Set RS = Connect.Execute(SQL)

if rs.eof then
SQL = "INSERT INTO Tabel1 (strDATA, intDATA) VALUES ('" & stringdata & "', " & integerdata & ")"
else
SQL = "UPDATE Tabel1 SET strDATA = '" & stringdata & "', intDATA = " & integerdata & " WHERE ID = " & curid
end if

RS.Close
Set RS=nothing

Connect.Execute(SQL)

Connect.Close
Set Connect=nothing


/ortrak

hmmmm, opretter dette en række med det rette ID hvis det ike findes ?? (hvor sker det ?)