Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Dim RS2 Dim Db As Database Set Tekst = New Stream Tekst.Open Tekst.Position = 0 Tekst.Charset = "UTF-8" Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & vbCrLf Set Db = CurrentDb() Set RS2 = Db.OpenRecordset("SELECT * FROM qryIZLAZMP", dbOpenDynaset) Do While Not RS2.EOF 'Tekst.WriteText "" & vbCrLf 'Tekst = "<" & "Item" & "Description" & "=" & RS2!ArtNaz & "/>" & vbCrLf Tekst.WriteText "<" & "Item Description" & "=" & """" & RS2!ArtNaz & """" & " " & "Quantity" & "=" & """" & RS2!KOLICINA & """" & " " & "Price" & "=" & """" & RS2!PRODCIJ & """" & " " & "VatInfo=""1"" " & "Department=""4"" " & "UnitName" & "=" & """" & RS2!SIFJED & """" & " " & "/>" & vbCrLf 'Tekst.WriteText "<" & "Item" & ">" & "Description" & "=" & RS2!ArtNaz & "/>" & vbCrLf 'Tekst.WriteText "<" & "Item" & ">" & "Description" & "=" & RS2!ArtNaz1 & "/>" & vbCrLf RS2.MoveNext 'Tekst.WriteText "" & vbCrLf 'Tekst.WriteText "" & vbCrLf 'Tekst.WriteText "" & vbCrLf 'Tekst.WriteText "" & vbCrLf Loop RS2.Close Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & vbCrLf Tekst.WriteText "" & vbCrLf 'T