Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101

Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
Public Function DSum(ByVal Pole As String, ByVal Tabela As String, Optional ByVal Uslov = "") Dim rsds As ADODB.Recordset Dim StrSQL As String Dim Vkupno As Double Vkupno = 0 If IsNull(Uslov) Or Uslov = "" Then StrSQL = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela Else StrSQL = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela & " WHERE ((" & Tabela & "." & Uslov & "))" End If Set