Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function RSArtikla(IDArt As Integer) Dim Kon As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim SQL As String Dim strUserName As String, strPassWord As String, strDatabase As String, strServer As String strUserName = "Ime" strPassWord = "Sifra" strDatabase = "Baza" strServer = "ImeTvogServera" Kon.CursorLocation = adUseClient Kon.Open "Provider=MSDASQL; DRIVER=Sql Server; SERVER=" & strServer & "; DATABASE=" _ & strDatabase & "; UID=" & strUserName & "; PWD=" & strPassWord & ";" Set Rs = New ADODB.Recordset SQL = "EXECUTE Art