<% Dim rutaImagenes rutaImagenes = "/img/reciclaje/mb" Dim rutaDocumentos rutaDocumentos = "/pdf/reciclaje/mb" Dim rutaDescripcion rutaDescripcion = "/includes/reciclaje/mb/mb.txt" Dim nombreImagenes nombreImagenes = "mb" %>
Reciclaje >> Cucharas trituradoras MB >> Información de los modelos
<% Set FSO2 = server.CreateObject("Scripting.FileSystemObject") On error resume next Set Fichero = FSO2.OpenTextFile(Server.MapPath(rutaDescripcion), 1, True) 'Controlamos que el fichero exista y tenga algo if Fichero.AtEndOfStream or Err.number <> 0 then Set Fichero = nothing response.Write(msgError) else Productos = split(Fichero.ReadAll,"-SEPARADOR-") For i = 0 to Ubound(Productos) - 1 ProductoUnico = Split(Productos(i),"
") %> <% next Fichero.close set Fichero = nothing end if %>
')">" class="borde_naranja" alt="Ampliar imagen" />
<% For x = 1 To Ubound(ProductoUnico) ProductoUnicoCategorias = Split(ProductoUnico(x),"<:>") ProductoUnicoCategorias(0) = Replace(ProductoUnicoCategorias(0)," ", "") ProductoUnicoCategorias(1) = Replace(ProductoUnicoCategorias(1),chr(10),"") 'VENDIBLE If Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) = "VENDIBLE" Then If CInt(ProductoUnicoCategorias(1)) = "1" then %> <% End if End if 'ALQUILABLE If Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) = "ALQUILABLE" Then If CInt(ProductoUnicoCategorias(1)) = "1" then %> <% End if End if 'DOCUMENTOS If Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) = "DOC" Then %> <% ProductoUnicoDocumentacion = Split(ProductoUnicoCategorias(1),"") for j = 0 to Ubound(ProductoUnicoDocumentacion) ProductoUnicoDocumentacionDocumento = Split(ProductoUnicoDocumentacion(j), "

") %>

<% Next %> <% End if 'LINKS If Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) = "LINK" Then %> <% End if Next %>
')">
<% For x = 1 To Ubound(ProductoUnico) ProductoUnicoCategorias = Split(ProductoUnico(x),"<:>") ProductoUnicoCategorias(0) = Replace(ProductoUnicoCategorias(0)," ", "") %> <% 'LOGOTIPO If Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) = "LOGO" Then %> <% ElseIf Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) = "COMMENTS" Then %> <% else If Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) <> "VENDIBLE" and Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) <> "ALQUILABLE" and Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) <> "DOC" and Right(ProductoUnicoCategorias(0), Len(ProductoUnicoCategorias(0)) - 2) <> "LINK" Then %> <% end if end if next %>
 
Comentarios: <% ProductoUnicoDescripcion = Split(ProductoUnicoCategorias(1),"

") for j = 0 to Ubound(ProductoUnicoDescripcion) response.Write(ProductoUnicoDescripcion(j)) response.Write("
") next %>

<%=ProductoUnicoCategorias(0)%>: <%=ProductoUnicoCategorias(1)%>
<% Set FSO = server.CreateObject ("Scripting.FileSystemObject") 'UBICACION DE LAS IMAGENES Set Folder = FSO.GetFolder(server.mappath(rutaImagenes)) j = 0 temp = 0 For each item in Folder.files nombreActual = split(item.name,"_") if (Ubound(nombreActual) > 1) and (Ubound(nombreActual) <= 4) then if (Item.name = nombreImagenes & "_" & i & "_s_" & j & ".jpg") then if (temp = 0) then %>
<% temp = 1 end if if (j = 0) or (j Mod numeroImagenes = 0) then response.write("" & vbcrlf) end if response.Write("" & vbcrlf) j = j + 1 if (j <> 0) and ((j Mod numeroImagenes) = 0) then response.Write("" & vbcrlf) end if end if end if next if (j <> 0) and (j < numeroImagenes) then response.write("" & vbcrlf) end if Set Folder = Nothing if (temp = 1) then %>
<% end if %>