<br />
<b>Warning</b>:  A non-numeric value encountered in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>101</b><br />
<br />
<b>Warning</b>:  filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in <b>/home2/icentarb/public_html/icentar/classes/class.filesystem.php</b> on line <b>142</b><br />
Public cn As ADODB.Connection                ' Glavna konekcija za cel program

Public DA As Variant                         ' Zamena za TRUE
Public NE As Variant                         ' Zamena za FALSE

Public BarCodePrefix As Integer                ' Prefiks na barkod citacot
'Global Const BarCodePrefix = "2"              ' Konstanta STX prefiks na bar kod citacot
Public SearchFormaKasa As Boolean          ' Se koristi forma za prebaruvajne vo kasata
Public SearchGridKasa As Boolean             ' Moze da se prebaruva vo gridot na kasata


Sub Main()
On Local Error GoTo Error_Main:
Set cn = New ADODB.Connection
     

    ' My SQL server

     
     cn.ConnectionString = "Driver={Mysql ODBC 5.1 Driver}; Server=localhost" & _
                           ";port=3306; database=BazaTest" & _
                           "; user=root" & _
                           "; password=admin" & "; option=3;"
      DA = 1
      NE = 0

   cn.Open
If cn.State = adStateOpen Then
   frmIzvestai.Show
End If
 
Main_Exit:
   Exit Sub

Error_Main:

If Err <> 0 And Err <> -2147217843 And Err <> -2147467259 Then MsgBox Err & "  -->>>  " & Error(Err)

If Err = -2147217843 Then
    Call MsgBox(" 