<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 />
Function makedb()
   
   Dim accessApp As Access.Application
   Set accessApp = New Access.Application
   
   strDBPath = "D:\tblImport2022.mdb"
   strDb = Dir(strDBPath)

   If Len(strDb) <> 0 Then
    MsgBox "Baza postoji"
    Else
    Rem MsgBox "Baza ne postoji"
    accessApp.DBEngine.CreateDatabase "D:\tblImport2022.mdb", DB_LANG_GENERAL
    RunBackup
   accessApp.Quit
   Set accessApp = Nothing
End If
  
End Function

Public Function RunBackup()

 Rem   DB_CopyTo = "D:\backup_" & Format(Now, "yymmdd_hhnn") & ".mdb"
    DB_CopyTo = "D:\tblImport2022.mdb"
   Rem  DBEngine.CreateDatabase DB_Co