<%Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open ODBC_Connection%> 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 id=" & request.querystring("referencia")%> <%Set RESULTADO3 = oConn.Execute(SQL3)%> <%SQL4="SELECT * FROM CATEGORIAS WHERE id=" & RESULTADO3("categoria")%> <%Set RESULTADO4 = oConn.Execute(SQL4)%> <%if not RESULTADO4.EOF then%> <%categoria = RESULTADO4("categoria")%> <%else%> <%categoria = RESULTADO3("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%>

<%=RESULTADO3("producto")%>

<%=RESULTADO3("descripcion_corta")%>

" width=170 height="170">
<%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%>
<%x = 1%> <%if x<>0 then%> <%y = y + 1%> <%y = y + 1%> <%y = y + 1%> <%for i=0 to y-1%> <%next%>
 
<%end if%>

<%if RESULTADO3("enlace")<>"" then%> <%SQL5b="SELECT * FROM PRODUCTOS WHERE enlace='" & RESULTADO3("enlace") & "' and activado=-1"%> <%Set RESULTADO5b = oConn.Execute(SQL5b)%> <%variable =""%> <%if not RESULTADO5b.EOF then%> <%do while not RESULTADO5b.EOF%> <%variable = variable & "Ref.: " & RESULTADO5b("referencia") & " - " & RESULTADO5b("opciones") & "
"%> <%RESULTADO5b.MoveNext%> <%loop%> <%end if%> <%else%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%end if%>
<%=RESULTADO3("descripcion_larga")%>

<%=variable%>

<%if RESULTADO3("enlace")<>"" then%>   target=_blank>ver fabricante <%else%> <%variable=""%> <%variable="Ref.: " & RESULTADO3("referencia") & ""%> <%end if%>