Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function Art(Naziv_Art As String) As String
Dim I As Integer
Dim DuzStr As Integer
Dim Temp As String
Dim Znak As String
Const Znak1 = "
"
Const Znak2 = ""
DuzStr = Len(Naziv_Art)
Temp = Naziv_Art
For I = 1 To DuzStr
Znak = Mid(Naziv_Art, I, 1)
If Znak = Znak1 Or Znak = Znak2 Then
If Asc(Znak) > 200 Then
Temp = Left(Temp,