%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set Recordset222 = Server.CreateObject("ADODB.Recordset") Recordset222.ActiveConnection = MM_grupojeda_STRING Recordset222.Source = "SELECT productos_delicatessen.* FROM productos_delicatessen INNER JOIN grupos_delicatessen ON productos_delicatessen.id_grupo=grupos_delicatessen.id_grupo where grupos_delicatessen.idioma='i' ORDER BY productos_delicatessen.fechahora DESC" Recordset222.CursorType = 0 Recordset222.CursorLocation = 2 Recordset222.LockType = 3 Recordset222.Open() Recordset222_numRows = 0 %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_grupojeda_STRING Recordset1.Source = "SELECT * FROM grupos_delicatessen where idioma='i' order by nombre asc" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %>
|