<%Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open ODBC_Connection%> <%cargar_imagen=0%> <%if Session("regalo")="" then%> <%SQL_regalo = "SELECT * FROM REGALOS WHERE activado=-1"%> <%Set RESULTADO_regalo = oConn.Execute(SQL_regalo)%> <%if not RESULTADO_regalo.EOF then if RESULTADO_regalo("imagen")<>"" then cargar_imagen=1 Session("regalo")="si" end if end if%> <%end if%> Autologroño - Especialidades del Automovil - <%function ceros(numero) if numero<>"" then a=(round(numero * 100)) if a=0 then k="0,00" else k=cstr(a) kd = right (k,2) ki = left (k,len(k)-2) if ki="" then ki=0 end if k=ki & "," & kd end if response.write k end if end function%> <%SQL3="SELECT * FROM PRODUCTOS WHERE posicion_home<>0 and activado=-1 ORDER BY posicion_home ASC"%> <%Set RESULTADO3 = oConn.Execute(SQL3)%>
<% if err<>0 then 'Pretoriansoft response.write "


" response.end 'Pretoriansoft end if %> <%if not RESULTADO3.EOF then%> <%RESULTADO3.MoveNext%> <%if not RESULTADO3.EOF then%> <%end if%> <%RESULTADO3.MoveNext%> <%if not RESULTADO3.EOF then%> <%end if%> <%RESULTADO3.MoveNext%> <%if not RESULTADO3.EOF then%> <%end if%>

<%if not RESULTADO3.EOF then%> <%SQL4="SELECT * FROM CATEGORIAS WHERE id=" & RESULTADO3("categoria")%> <%Set RESULTADO4 = oConn.Execute(SQL4)%> <%if not RESULTADO4.EOF then categoria = RESULTADO4("categoria") end if%>
RECOMENDADO >> <%=categoria%> >> <% 'Eliminando enlaces si la subcategoria está desactivada SQL_DESC="SELECT * FROM SUBCATEGORIAS WHERE id=" & RESULTADO3("subcategoria") Set RESULTADO_DESC = oConn.Execute(SQL_DESC) if not RESULTADO_DESC.EOF then if RESULTADO_DESC("activado")="Verdadero" or RESULTADO_DESC("activado")="True" then%> " class="subcat"><%=RESULTADO3("subcategoria2")%> <%else%> <%=RESULTADO3("subcategoria2")%> <%end if end if%>
">" width="100" border=0 height="100">

<%if RESULTADO3("enlace")<>"" then%> <%SQL5b="SELECT * FROM PRODUCTOS WHERE enlace='" & RESULTADO3("enlace") & "' and activado=-1"%> <%Set RESULTADO5b = oConn.Execute(SQL5b)%> <%if not RESULTADO5b.eof THEN x1=0 do while not RESULTADO5b.EOF if x1 = 0 then precio_pruebas = RESULTADO5b("PVP") precio_pruebas2 = RESULTADO5b("PVP_oferta") else if RESULTADO5b("PVP")< precio_pruebas then precio_pruebas = RESULTADO5b("PVP") end if if RESULTADO5b("PVP_oferta")< precio_pruebas2 then precio_pruebas2 = RESULTADO5b("PVP_oferta") end if end if RESULTADO5b.MoveNext x1 = x1 + 1 loop else precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") end if%> <%else%> <% precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") %> <%end if%> <% if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%>
PVP: <%ceros(precio_pruebas)%> €
<%else%>
PVP: <%ceros(precio_pruebas)%> €
<%end if%> <%if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%> <%else%> Oferta: <%ceros(precio_pruebas2)%> € <%end if%>
<%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%>
 <%=RESULTADO3("producto")%>
  " class="textoproduc"><%=RESULTADO3("descripcion_corta")%>
<%=variable%>
<%if RESULTADO3("enlace")<>"" then%>   target=_blank>ver fabricante <%end if%>
">Detalle
<%end if %> <% on error resume next %> <%RESULTADO3.MoveNext%>
ACTUALMENTE NO DISPONEMOS DE ARTÍCULOS EN PROMOCIÓN." RESPONSE.WRITE "

ESTAMOS SELECCIONANDO UNA AMPLIA GAMA DE PRODUCTOS PARA OFRECERLE." RESPONSE.WRITE "


DISCULPEN LAS MOLESTIAS
<%SQL4="SELECT * FROM CATEGORIAS WHERE id=" & RESULTADO3("categoria")%> <%Set RESULTADO4 = oConn.Execute(SQL4)%> <%if not RESULTADO4.EOF then categoria = RESULTADO4("categoria") end if%>

<%=categoria%> >> <% 'Eliminando enlaces si la subcategoria está desactivada SQL_DESC="SELECT * FROM SUBCATEGORIAS WHERE id=" & RESULTADO3("subcategoria") Set RESULTADO_DESC = oConn.Execute(SQL_DESC) if not RESULTADO_DESC.EOF then if RESULTADO_DESC("activado")="Verdadero" or RESULTADO_DESC("activado")="True" then%> " class="subcat"><%=RESULTADO3("subcategoria2")%> <%else%> <%=RESULTADO3("subcategoria2")%> <%end if end if%>

">" width="100" border=0 height="100">

<%if RESULTADO3("enlace")<>"" then%> <%SQL5b="SELECT * FROM PRODUCTOS WHERE enlace='" & RESULTADO3("enlace") & "' and activado=-1"%> <%Set RESULTADO5b = oConn.Execute(SQL5b)%> <%if not RESULTADO5b.eof THEN x1=0 do while not RESULTADO5b.EOF if x1 = 0 then precio_pruebas = RESULTADO5b("PVP") precio_pruebas2 = RESULTADO5b("PVP_oferta") else if RESULTADO5b("PVP")< precio_pruebas then precio_pruebas = RESULTADO5b("PVP") end if if RESULTADO5b("PVP_oferta")< precio_pruebas2 then precio_pruebas2 = RESULTADO5b("PVP_oferta") end if end if RESULTADO5b.MoveNext x1 = x1 + 1 loop else precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") end if%> <%else%> <% precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") %> <%end if%> <% if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%>
PVP: <%ceros(precio_pruebas)%> €
<%else%>
PVP: <%ceros(precio_pruebas)%> €
<%end if%> <%if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%> <%else%> Oferta: <%ceros(precio_pruebas2)%> € <%end if%>
<%if RESULTADO3("enlace")<>"" then%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%variable=variable & "
" &" ver fabricante"%> <%else%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%end if%>
 <%=RESULTADO3("producto")%>

  " class="textoproduc"><%=RESULTADO3("descripcion_corta")%>
<%=variable%>

">Detalle
<%end if%>
<%SQL4="SELECT * FROM CATEGORIAS WHERE id=" & RESULTADO3("categoria")%> <%Set RESULTADO4 = oConn.Execute(SQL4)%> <%if not RESULTADO4.EOF then categoria = RESULTADO4("categoria") end if%>

<%=categoria%> >> <% 'Eliminando enlaces si la subcategoria está desactivada SQL_DESC="SELECT * FROM SUBCATEGORIAS WHERE id=" & RESULTADO3("subcategoria") Set RESULTADO_DESC = oConn.Execute(SQL_DESC) if not RESULTADO_DESC.EOF then if RESULTADO_DESC("activado")="Verdadero" or RESULTADO_DESC("activado")="True" then%> " class="subcat"><%=RESULTADO3("subcategoria2")%> <%else%> <%=RESULTADO3("subcategoria2")%> <%end if end if%>

">" width="100" border=0 height="100">

<%if RESULTADO3("enlace")<>"" then%> <%SQL5b="SELECT * FROM PRODUCTOS WHERE enlace='" & RESULTADO3("enlace") & "' and activado=-1"%> <%Set RESULTADO5b = oConn.Execute(SQL5b)%> <%if not RESULTADO5b.eof THEN x1=0 do while not RESULTADO5b.EOF if x1 = 0 then precio_pruebas = RESULTADO5b("PVP") precio_pruebas2 = RESULTADO5b("PVP_oferta") else if RESULTADO5b("PVP")< precio_pruebas then precio_pruebas = RESULTADO5b("PVP") end if if RESULTADO5b("PVP_oferta")< precio_pruebas2 then precio_pruebas2 = RESULTADO5b("PVP_oferta") end if end if RESULTADO5b.MoveNext x1 = x1 + 1 loop else precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") end if%> <%else%> <% precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") %> <%end if%> <% if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%>
PVP: <%ceros(precio_pruebas)%> €
<%else%>
PVP: <%ceros(precio_pruebas)%> €
<%end if%> <%if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%> <%else%> Oferta: <%ceros(precio_pruebas2)%> € <%end if%>
<%if RESULTADO3("enlace")<>"" then%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%variable=variable & "
" &" ver fabricante"%> <%else%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%end if%>
 <%=RESULTADO3("producto")%>

  " class="textoproduc"><%=RESULTADO3("descripcion_corta")%>
<%=variable%>

">Detalle
<%SQL4="SELECT * FROM CATEGORIAS WHERE id=" & RESULTADO3("categoria")%> <%Set RESULTADO4 = oConn.Execute(SQL4)%> <%if not RESULTADO4.EOF then categoria = RESULTADO4("categoria") end if%>

<%=categoria%> >> <% 'Eliminando enlaces si la subcategoria está desactivada SQL_DESC="SELECT * FROM SUBCATEGORIAS WHERE id=" & RESULTADO3("subcategoria") Set RESULTADO_DESC = oConn.Execute(SQL_DESC) if not RESULTADO_DESC.EOF then if RESULTADO_DESC("activado")="Verdadero" or RESULTADO_DESC("activado")="True" then%> " class="subcat"><%=RESULTADO3("subcategoria2")%> <%else%> <%=RESULTADO3("subcategoria2")%> <%end if end if%>

">" width="100" border=0 height="100">

<%if RESULTADO3("enlace")<>"" then%> <%SQL5b="SELECT * FROM PRODUCTOS WHERE enlace='" & RESULTADO3("enlace") & "' and activado=-1"%> <%Set RESULTADO5b = oConn.Execute(SQL5b)%> <%if not RESULTADO5b.eof THEN x1=0 do while not RESULTADO5b.EOF if x1 = 0 then precio_pruebas = RESULTADO5b("PVP") precio_pruebas2 = RESULTADO5b("PVP_oferta") else if RESULTADO5b("PVP")< precio_pruebas then precio_pruebas = RESULTADO5b("PVP") end if if RESULTADO5b("PVP_oferta")< precio_pruebas2 then precio_pruebas2 = RESULTADO5b("PVP_oferta") end if end if RESULTADO5b.MoveNext x1 = x1 + 1 loop else precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") end if%> <%else%> <% precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") %> <%end if%> <% if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%>
PVP: <%ceros(precio_pruebas)%> €
<%else%>
PVP: <%ceros(precio_pruebas)%> €
<%end if%> <%if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%> <%else%> Oferta: <%ceros(precio_pruebas2)%> € <%end if%>
<%if RESULTADO3("enlace")<>"" then%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%variable=variable & "
" &" ver fabricante"%> <%else%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%end if%>
 <%=RESULTADO3("producto")%>

  " class="textoproduc"><%=RESULTADO3("descripcion_corta")%>
<%=variable%>

">Detalle
<%SQL4="SELECT * FROM CATEGORIAS WHERE id=" & RESULTADO3("categoria")%> <%Set RESULTADO4 = oConn.Execute(SQL4)%> <%if not RESULTADO4.EOF then categoria = RESULTADO4("categoria") end if%>

<%=categoria%> >> <% 'Eliminando enlaces si la subcategoria está desactivada SQL_DESC="SELECT * FROM SUBCATEGORIAS WHERE id=" & RESULTADO3("subcategoria") Set RESULTADO_DESC = oConn.Execute(SQL_DESC) if not RESULTADO_DESC.EOF then if RESULTADO_DESC("activado")="Verdadero" or RESULTADO_DESC("activado")="True" then%> " class="subcat"><%=RESULTADO3("subcategoria2")%> <%else%> <%=RESULTADO3("subcategoria2")%> <%end if end if%>

">" width="100" border=0 height="100">

<%if RESULTADO3("enlace")<>"" then%> <%SQL5b="SELECT * FROM PRODUCTOS WHERE enlace='" & RESULTADO3("enlace") & "' and activado=-1"%> <%Set RESULTADO5b = oConn.Execute(SQL5b)%> <%if not RESULTADO5b.eof THEN x1=0 do while not RESULTADO5b.EOF if x1 = 0 then precio_pruebas = RESULTADO5b("PVP") precio_pruebas2 = RESULTADO5b("PVP_oferta") else if RESULTADO5b("PVP")< precio_pruebas then precio_pruebas = RESULTADO5b("PVP") end if if RESULTADO5b("PVP_oferta")< precio_pruebas2 then precio_pruebas2 = RESULTADO5b("PVP_oferta") end if end if RESULTADO5b.MoveNext x1 = x1 + 1 loop else precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") end if%> <%else%> <% precio_pruebas = RESULTADO3("PVP") precio_pruebas2 = RESULTADO3("PVP_oferta") %> <%end if%> <% if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%>
PVP: <%ceros(precio_pruebas)%> €
<%else%>
PVP: <%ceros(precio_pruebas)%> €
<%end if%> <%if RESULTADO3("oferta")="Falso" or RESULTADO3("oferta")="False" then%> <%else%> Oferta: <%ceros(precio_pruebas2)%> € <%end if%>
<%if RESULTADO3("enlace")<>"" then%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%variable=variable & "
" &" ver fabricante"%> <%else%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%end if%>
 <%=RESULTADO3("producto")%>

  " class="textoproduc"><%=RESULTADO3("descripcion_corta")%>
<%=variable%>

">Detalle