<% Dim Resultados Set Resultados = Server.CreateObject("ADODB.Recordset") Resultados.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("panel_de_control/mecohersan.mdb") & ";" Dim SQL SQL="SELECT * FROM ofertas order by orden" 'response.write SQL & "
" Resultados.Source = SQL Resultados.Open() while Not resultados.eof %> <% resultados.movenext wend %>
 
 
Ofertas
 
<%= resultados("nombre")%>

Precio Antes: <%= resultados("precio_antes")%> €
Precio Ahora: <%= resultados("precio_despues")%> €

Fecha: <%= resultados("fecha")%>
Colores: <%= resultados("colores")%>
Descripción:
<%= resultados("descripcion")%>
  <%if len(resultados("imagen"))>3 then%> " title="Ofertas - (Piedras La Cantera - Mecohersan)" rel="lightbox[1]">" alt="" width="210" height="280" border="0" /> <%else%> <%end if%>