|
<%
Dim I, J
Dim iRecFirst, iRecLast
Dim iFieldFirst, iFieldLast
Dim cmd,rs, connect
Set rsInj = Server.CreateObject("AdoDb.Recordset")
'rsInj.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_inj"
cmd.CommandType = adCmdStoredProc
Set rsInj = Server.CreateObject ("ADODB.Recordset")
Set rsInj = cmd.Execute
arrDBData = rsInj.GetRows()
rsInj.Close
Set rsInj = Nothing
'rsInj.Close
'Set rsInj = Nothing
iRecFirst = LBound(arrDBData, 2)
iRecLast = UBound(arrDBData, 2)
iFieldFirst = LBound(arrDBData, 1)
iFieldLast = UBound(arrDBData, 1)
%>
|
|
