>> <%If isArray(RegistrosProductos) Then Response.Write RegistrosProductos(6,0) end if%>
<%End If%>
<%If isArray(RegistrosProductos) Then%>
<%nCantImagLinea=0%>
<%
if Request.QueryString("intCategoria")<>"" then cCANT_DEST_PRINC = Ubound(RegistrosProductos,2)
'Response.Write "cant1:" & Ubound(RegistrosProductos,2)
If Request.Form("txtBusqueda") <> "" or Request.QueryString("strLetra") <> "" Then
' Response.Write "111"
cCANT_DEST_PRINC = Ubound(RegistrosProductos,2)
else
'Cantidad de Destacados que muestro en la Home (declarada en Seteos Generales)
' Response.Write "222"
if cCANT_DEST_PRINC > Ubound(RegistrosProductos,2) then cCANT_DEST_PRINC = Ubound(RegistrosProductos,2)
' Response.Write "cant2:" & cCANT_DEST_PRINC
end if
%>
<%For j = 0 to cCANT_DEST_PRINC%>
<%If nCantImagLinea = 0 Then%>
<%
If not isNull(RegistrosProductos(4,j)) Then
strPathFoto = strDestinationPathProducto & RegistrosProductos(0,j) & "/120x120_" & RegistrosProductos(4,j)
Else
strPathFoto = strDestinationPathProducto & "no_product_120x120.jpg"
End if
'Response.Write(strPathFoto)
%>