|
<%
Dim I, J
Dim iRecFirst, iRecLast
Dim iFieldFirst, iFieldLast
Dim cmd,rs, connect
Set rsUpdate = Server.CreateObject("AdoDb.Recordset")
'rsUpdate.Open "Select * From [Product_Master] Where (Brand_Name Like 'a%' OR Brand_Name Like 'b%' OR Brand_Name Like 'c%' OR Brand_Name Like 'd%') and Category = 'Tablets' Order By [Brand_Name]",conn,1,3
Set cmd = Server.CreateObject ("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "Q_Liq"
cmd.CommandType = adCmdStoredProc
Set rsUpdate = Server.CreateObject ("ADODB.Recordset")
Set rsUpdate = cmd.Execute
arrDBData = rsUpdate.GetRows()
rsUpdate.Close
Set rsUpdate = Nothing
'rsUpdate.Close
'Set rsUpdate = Nothing
iRecFirst = LBound(arrDBData, 2)
iRecLast = UBound(arrDBData, 2)
iFieldFirst = LBound(arrDBData, 1)
iFieldLast = UBound(arrDBData, 1)
%>
|
|
