<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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 rsds = cn.Execute(StrSQL)
     If rsds.RecordCount = 0 Then
        DSum = ""
        Exit Function
     Else
              rsds.MoveFirst
                 Do While Not rsds.EOF
                    Vkupno = Vkupno + rsds(0).Value