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 = "" & RS2!ArtNaz & "" '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 'Tekst.WriteText "" & vbCrLf Loop RS2.Close Tekst.Wri