<% Option Explicit Dim conexion, cadena, registro set conexion=server.CreateObject("ADODB.Connection") 'conexion.open "aicor.com.fersansat" ' modificado por siit conexion.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.MapPath("./Data/fersansat.mdb" cadena="SELECT * FROM articulos ORDER BY familia,articulo" set registro=conexion.Execute(cadena) %> Dominio de la Esperanza
 
 
 
<%if not registro.eof then do while not registro.eof%>
<%if registro("foto")<>"" then%> <%end if%>
')" class="enlaces">

<%=registro("articulo")%>

Descripción:<%=registro("descripcion")%>.

Precio:<%=registro("precio")%>


Familia:<%=registro("familia")%>

&envio=Pedir" class="enlaces">Comprar
<%registro.movenext loop end if registro.close set registro=Nothing conexion.close set conexion=Nothing%>