<%@LANGUAGE="VBSCRIPT"%> <%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "dsn=mastercompra.com.xcsc;"
Recordset1.Source = "SELECT * FROM aavv WHERE estat = 'visible' AND tipus = 'actualitat' ORDER BY data DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open
Recordset1_numRows = 0
%> <%
set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = "dsn=mastercompra.com.xcsc;"
Recordset2.Source = "SELECT * FROM aavv WHERE tipus = 'destacat' AND estat = 'visible' ORDER BY data DESC"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open
Recordset2_numRows = 0
%><%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat1__numRows
%><%
Dim Repeat2__numRows
Repeat2__numRows = -1
Dim Repeat2__index
Repeat2__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat2__numRows
%>
Pagina nueva 2
