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%> <%contenidos = request.querystring("contenidos")%> <%if request.querystring("volver") = 1 then parcial = request.querystring("acumulado")- request.querystring("regs") Dim arraCU arraCU = split(contenidos,"@") p1 = request.querystring("page") pr1 =arraCU(p1) pr2 =arraCU(p1-1) pr3 = pr2 - pr1 if p1-1=0 then pr3 = 0 end if acumulado = parcial - arraCU(p1-1) mostrar = arraCU(p1-1) if p1-1 <> 0 then a1 = acumulado / (p1-1) else a1 = acumulado end if z1 = round(a1) if z1 > a1 then a1 = a1 - 1 zfinal = round(a1) mostrar = zfinal else zfinal = z1 end if if zfinal <> a1 then z2 = zfinal * y mover = acumulado - z2 else mover = 0 end if end if%> <%mover=pr3%> <%if request.querystring("volver")=1 then%> <%else%> <%acumulado = 0%> <%acumulado=request.querystring("acumulado")%> <%if acumulado = "" or acumulado=0 then primero = 1 end if%> <%ordenar=request.querystring("ordenar") if trim(ordenar)="" then ordenar="id" end if%> <%z = 0%> <%mover = 0%> <%if request.querystring("regs")<>"" and request.querystring("regs")<>0 then mostrar = request.querystring("regs") x = request.querystring("acumulado") y = request.querystring("page") - 1 if y <> 0 then z = x / y else z = x end if %> <% z1 = round(z) if z1 > z then z = z - 1 zfinal = round(z) mostrar = zfinal else zfinal = z1 end if if zfinal <> z then z2 = zfinal * y mover = acumulado - z2 else mover = 0 end if else mostrar = 8 end if%> <%end if%> <%mostrar1 = 8 If Request.QueryString("page") = "" or Request.QueryString("page") = "0" Then pagina_actual = 1 Else pagina_actual = CInt(Request.QueryString("page")) End If%> <%subcategoria = request.querystring("subcategoria")%> <%if subcategoria <> "" then%> <%no_cabecera = "1"%> <%end if%> <%SQL3="SELECT * FROM PRODUCTOS WHERE subcategoria =" & subcategoria & " and activado=-1 ORDER BY producto"%> <%Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open ODBC_Connection Set RS = Server.CreateObject("ADODB.Recordset") RS.PageSize = mostrar RS.CacheSize = mostrar RS.Open SQL3, oConn,3,1 cant_paginas = RS.PageCount cantidad_registros = RS.RecordCount If pagina_actual > cant_paginas Then pagina_actual = cant_paginas If pagina_actual < 1 Then pagina_actual = 1 %>
<%SQLp1="SELECT * FROM SUBCATEGORIAS WHERE id=" & subcategoria%> <%Set RESULTADOp1 = oConn.Execute(SQLp1)%> <%categoria = RESULTADOp1("categoria")%>
<%If cant_paginas = 0 Then%> <%if not RESULTADOp1.EOF then subcp1 = RESULTADOp1("subcategoria") SQLp2="SELECT * FROM CATEGORIAS WHERE id=" & RESULTADOp1("categoria") Set RESULTADOp2 = oConn.Execute(SQLp2) if not RESULTADOp2.EOF then cp2 = RESULTADOp2("categoria") end if end if%>

 <%=cp2%> >> <%=subcp1%>




En estos momentos no disponemos de productos en esta categoría.
Disculpen las molestias.Volver al home


<%Else RS.AbsolutePage = pagina_actual x = 0%> <%registro_mostrado = 0 for i=0 to mover-1 if volver=1 then RS.MovePrevious else RS.MoveNext end if next Do While registro_mostrado1 < mostrar1 And Not RS.EOF%> <%'do while not RESULTADO3.EOF%> <%if x = 0 then%> <%SQL4="SELECT * FROM CATEGORIAS WHERE id=" & RS("categoria")%> <%Set RESULTADO4 = oConn.Execute(SQL4)%>

 <%=RESULTADO4("categoria")%> >> <%=RS("subcategoria2")%>


<%end if %> <%x = 1%> <%if registro_mostrado <> 0 then%> <%end if%> <% aux = RS("enlace") registro_mostrado = registro_mostrado + 1 registro_mostrado1 = registro_mostrado1 + 1 RS.MoveNext%> <%if not RS.EOF then%> <%if aux<>"" then%> <%if RS("enlace") = aux then%> <%registro_mostrado = registro_mostrado + 1 RS.MoveNext%> <%if not RS.EOF then%> <%if RS("enlace") = aux then%> <%registro_mostrado = registro_mostrado + 1 RS.MoveNext%> <%if not RS.EOF then%> <%if RS("enlace") = aux then%> <%registro_mostrado = registro_mostrado + 1 RS.MoveNext%> <%if not RS.EOF then%> <%if RS("enlace") = aux then%> <%registro_mostrado = registro_mostrado + 1 RS.MoveNext%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%if not RS.EOF then%>
<% if no_cabecera<> "1" then%> <%end if%>

SALUD / BELLEZA >>Cuidado personal

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

<%if RS("enlace")<>"" then%> <%SQL5b="SELECT * FROM PRODUCTOS WHERE enlace='" & RS("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 = RS("PVP") precio_pruebas2 = RS("PVP_oferta") end if%> <%else%> <% precio_pruebas = RS("PVP") precio_pruebas2 = RS("PVP_oferta") %> <%end if%> <% if RS("oferta")="Falso" or RS("oferta")="False" then%>
PVP: <%ceros(precio_pruebas)%> €
<%else%>
PVP: <%ceros(precio_pruebas)%> €
<%end if%> <%if RS("oferta")="Falso" or RS("oferta")="False" then%> <%else%> Oferta: <%ceros(precio_pruebas2)%> € <%end if%>
<%if RS("enlace")<>"" then%> <%variable=""%> <%variable="Ref.: " & RS("referencia") & ""%> <%variable=variable & "
" &" ver fabricante"%> <%else%> <%variable=""%> <%variable="Ref.: " & RS("referencia") & ""%> <%end if%>
<%=RS("producto")%>

<%=RS("descripcion_corta")%>
<%=variable%>

">Detalle
<% if no_cabecera<> "1" then%> <%end if%>

SALUD / BELLEZA >>Cuidado personal

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

<%if RS("enlace")<>"" then%> <%SQL5b="SELECT * FROM PRODUCTOS WHERE enlace='" & RS("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 = RS("PVP") precio_pruebas2 = RS("PVP_oferta") end if%> <%else%> <% precio_pruebas = RS("PVP") precio_pruebas2 = RS("PVP_oferta") %> <%end if%> <% if RS("oferta")="Falso" or RS("oferta")="False" then%>
PVP: <%ceros(precio_pruebas)%> €
<%else%>
PVP: <%ceros(precio_pruebas)%> €
<%end if%> <%if RS("oferta")="Falso" or RS("oferta")="False" then%> <%else%> Oferta: <%ceros(precio_pruebas2)%> € <%end if%>
<%if RS("enlace")<>"" then%> <%variable1=""%> <%variable1="Ref.: " & RS("referencia") & ""%> <%variable1= variable1 & "
" &" ver fabricante"%> <%else%> <%variable1=""%> <%variable1="Ref.: " & RS("referencia") & ""%> <%end if%>
<%=RS("producto")%>

<%=RS("descripcion_corta")%>
<%=variable1%>

">Detalle
<%'RESULTADO3.MoveNext%> <%aux = RS("enlace") registro_mostrado = registro_mostrado + 1 registro_mostrado1 = registro_mostrado1 + 1 RS.MoveNext%> <%if not RS.EOF then%> <%if aux<>"" then%> <%if RS("enlace") = aux then%> <%registro_mostrado = registro_mostrado + 1 RS.MoveNext%> <%if not RS.EOF then%> <%if RS("enlace") = aux then%> <%registro_mostrado = registro_mostrado + 1 RS.MoveNext%> <%if not RS.EOF then%> <%if RS("enlace") = aux then%> <%registro_mostrado = registro_mostrado + 1 RS.MoveNext%> <%if not RS.EOF then%> <%if RS("enlace") = aux then%> <%registro_mostrado = registro_mostrado + 1 RS.MoveNext%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%end if%> <%else%>
<%end if%> <%loop%> <%if request.querystring("volver")=1 then%> <%acumulado = acumulado - registro_mostrado%> <%else%> <%acumulado = acumulado + registro_mostrado%> <%end if%> <%if request.querystring("volver") <> 1 then%> <%contenidos = contenidos + CStr(registro_mostrado) + "@"%> <%end if%> <%if registro_mostrado < cantidad_registros then%>
<%If pagina_actual > 1 Then%> <%acumuladox = request.querystring("acumulado") - request.querystring("regs")%> <%Dim arraCU2 arraCU2 = split(contenidos,"@") if (pagina_actual - 3)< 0 then registro_mostradox = 0 else registro_mostradox =arraCU2(pagina_actual - 3) end if%> [<< Anterior] <%End If%> <%'For I = 1 To cant_paginas 'If I = pagina_actual Then%> <%'= I %> <%'Else%> <%'End If 'Next If pagina_actual < cant_paginas Then%> [Próximo >>] <%End If%>
<%end if%> <%end if%> <%RS.Close Set RS = Nothing oConn.Close Set oConn = Nothing%>