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