<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function PrenesiPod(Kategorija As Integer, IdStroja As String)
Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim Rs3 As Recordset
Dim SQL As String
Dim Dio As Integer
Dim I As Integer
Dim BrojKolona As Integer


Set Db = CurrentDb
SQL = "SELECT * FROM tblShemaMontaze " _
    & "WHERE kategorija=" & Kategorija & "  AND IDstroja='" & IdStroja & "'"

Set Rs1 = Db.OpenRecordset(SQL)
Set Rs3 = Db.OpenRecordset("tblShema")
BrojKolona = Rs1.Fields.Count
Do While Not Rs1.EOF
Dio = Rs1!IdDijela
Rs3.AddNew
        For I = 1 To BrojKolona
        Rs3.Fields(I) = Rs1.Fields(I - 1)
        Next I
Rs3.Update
SQL = "SELECT * FROM tblShemaMontaze " _
     & "WHERE IDdijela='" & IdStroja & "' AND Kategorija>" & Kategorija
Set Rs2 = Db.OpenRecordset(SQL)
Do While Not Rs2.EOF
        Rs3.AddNew
        For I = 1 To BrojKolona
        Rs3.Fields(