Autoservicio San Juan sigue apostando por conseguir los mejores productos allá donde se elaboren o cultiven, haciendo un especial esfuerzo de búsqueda y selección, sobre todo en la gama de perecederos, ofreciendo todos sus productos frescos en cualquier época del año.

Consiguiendo que todos los proveedores faciliten semanalmente la trazabilidad del producto, conociendo en todo momento la procedencia, fecha y tipo de elaboración. Con todo esto y un seguimiento personalizado en almacén, centro de distribución y tienda, se cuidan de no perder la cadena óptima de temperatura y conservación para que el producto llegue a manos del cliente en condiciones óptimas. La calidad y la seguridad para los consumidores es la base de la gran fidelidad de los clientes hacia la cadena.



<% Set Ob_Conn=Server.CreateObject("ADODB.Connection") Ob_Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datos/datos.mdb") Set Ob_RS=Ob_Conn.Execute ("SELECT * FROM GALERIA ORDER BY id_imagen DESC") IF NOT Ob_RS.Eof THEN%> <% i=0 DO WHILE NOT Ob_RS.Eof pie=Ob_RS("pie") IF (i MOD 3=0) THEN%> <%end if%> <% Ob_RS.MoveNext i=i+1 LOOP%>
','');return false">" alt=<%=pie%> border="0" align="middle" class="campotexto">
<%ELSE%> <% END IF Ob_RS.Close Ob_Conn.Close Set Ob_RS=nothing Set Ob_Conn=nothing %>

<%Set Ob_Conn=Server.CreateObject("ADODB.Connection") Ob_Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datos/datos.mdb") Set Ob_RSdoc=Ob_Conn.Execute ("SELECT * FROM SUBVENCIONES ORDER BY fecha DESC") IF NOT Ob_RSdoc.Eof THEN%>

<%DO UNTIL Ob_RSdoc.Eof%> <% IF (Ob_RSdoc("fichero")<>"") THEN %> <% END IF%>
Ver Oferta Completa:
<% fichero=Ob_RSdoc("fichero") extension=Right(fichero, 3) %> <%=fichero%>

  <% Ob_RSdoc.MoveNext LOOP%>
<% ELSE%>
- En estos momentos no hay ninguna oferta disponible - <% END IF Ob_RSdoc.Close Set Ob_RSdoc=nothing%>
Inicio 
Donde estamos 
Servicios 
Folleto de Ofertas 
Contacto