Promotions

<% ' Obrir connexió set sock=server.CreateObject("adodb.connection") sock.Open "File Name=" & ruta_udl_m & ";" sql="SELECT * FROM ANUNCIS where IDIDIOMA=2 ORDER BY DATA DESC" set rs=server.CreateObject("adodb.recordset") rs.Open sql,sock i=0 do while not rs.eof if i mod 2 =0 then %>

<%=rs(1)%>
<%=rs(2)%>
-----------------------------------------------------
<% rs.MoveNext else %>

<%=rs(1)%>
<%=rs(2)%>
-----------------------------------------------------
<% rs.MoveNext end if i=i +1 loop rs.close sock.Close %>