<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 />
 If (txtDataOD) = "__.__.____" Then Me.txtDataOD.Text = "01.01." & Format(Now(), "yyyy")
  If (txtDataDO) = "__.__.____" Then Me.txtDataDO.Text = "31.12." & Format(Now(), "yyyy")
   Dim RsIzvestaj As ADODB.Recordset
   Set RsIzvestaj = New ADODB.Recordset
       ' Ova treba samo ako e MY SQL ,za MS SQL ne treba
       RsIzvestaj.CursorLocation = adUseClient
    
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command

      With cmd
           .ActiveConnection = cn
           .CommandType = adCmdStoredProc
           .CommandText = "spSmetki"
           .Parameters.Append cmd.CreateParameter("OdData", adDate, adParamInput, , txtDataOD)
           .Parameters.Append cmd.CreateParameter("DoData", adDate, adParamInput, , txtDataDO)
      End With
        
         Set RsIzvestaj = cmd.Execute
         Set cmd = Nothing
 
             
         ' Test dali ima zapisi vo recordsetot
         ' RsIzvestaj.MoveFirst
         ' Do While Not RsIzvestaj.EOF
         ' MsgBox RsIzvestaj.Fields(2)
         ' RsIzvestaj.MoveNext