Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Zapisi(ImeT As String, IDK As String)
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim SQL1 As String
Dim SQL2 As String
SQL1 = "SELECT * FROM Indeks"
SQL2 = "SELECT * FROM " & ImeT _
& " WHERE IDstroja='" & IDK & "' Or IDstroja In (SELECT IDDijela FROM Indeks) " _
& "Or IDstroja In (SELECT ID FROM Proces WHERE Klasa=5)"
Set Rs1 = Db.OpenRecordset(SQL1)
Set Rs2 = Db.OpenRecordset(SQL2)
Do While Not Rs2.EOF
Rs1.AddNew
Rs1!IDstroja = Rs2!IDstroja
R