| |
<%=categoria1%>
<%
hay_categoria2 = 0
hay_categoria3 = 0
hay_categoria4 = 0
categorias2 = 0
categoria2 = ""
for j = 0 to Ubound(listado,2)
if not(isnull(listado(1,j))) then
hay_categoria2 = 1
if categoria2 <> listado(1,j) then categorias2 = categorias2 + 1
categoria2 = listado(1,j)
end if
next
for j = 0 to Ubound(listado,2)
if not(isnull(listado(2,j))) then hay_categoria3 = 1
next
for j = 0 to Ubound(listado,2)
if not(isnull(listado(3,j))) then hay_categoria4 = 1
next
if hay_categoria2 = 1 then response.Write("
")
categoria2 = ""
w = 0
'response.Write(categorias2 & "
")
if categorias2 > 1 then
response.write "
"
for k=0 to Ubound(listado,2)
if hay_categoria2 = 1 then
if categoria2 <> listado(1,k) then
w = w + 1
response.Write("- " & listado(1,k) & "
")
end if
end if
categoria2 = listado(1,k)
next
response.write " |
"
end if
w = 0
categoria2 = ""
categoria3 = ""
categoria4 = ""
for i=0 to Ubound(listado,2)
cuenta_br = 0
if hay_categoria2 = 1 then
if categoria2 <> listado(1,i) then
w = w + 1
if listado(1,i) =" " then
response.Write("")
else
response.Write("")
end if
categoria3 = ""
cuenta_br = 1
end if
end if
categoria2 = listado(1,i)
if isnull(listado(2,i)) then listado(2,i)=" "
if hay_categoria3 = 1 then
if categoria3 <> listado(2,i) then
if listado(2,i) =" " then
response.Write("
" & listado(2,i) & "")
else
response.Write("
" & listado(2,i) & "
")
end if
categoria4 = ""
cuenta_br = 2
end if
end if
categoria3 = listado(2,i)
if isnull(listado(3,i)) then listado(3,i)=" "
if hay_categoria4 = 1 then
if categoria4 <> listado(3,i) then
if cuenta_br = 1 then response.Write("
")
response.Write("
" & listado(3,i) & "
")
if not(isnull(listado(12,i))) then response.Write("" & listado(12,i) & "
")
if not(isnull(listado(13,i))) then response.Write("" & listado(13,i) & "
")
if not(isnull(listado(10,i))) then response.Write("" & listado(10,i) & "
")
if not(isnull(listado(11,i))) then response.Write("" & listado(11,i) & "
")
end if
end if
categoria4 = listado(3,i)
direccion = ""
if not(isnull(listado(4,i))) then direccion = direccion & listado(4,i)
if not(isnull(listado(6,i))) then
direccion = direccion & " - " & listado(6,i)
if not(isnull(listado(5,i))) then direccion = direccion & " - " & listado(5,i)
end if
if not(isnull(listado(7,i))) then
if listado(7,i)<>listado(6,i) then direccion = direccion & " - " & listado(7,i)
end if
if not(isnull(listado(8,i))) then direccion = direccion & " - Tel: " & listado(8,i)
if not(isnull(listado(9,i))) then direccion = direccion & " - Fax: " & listado(9,i)
if direccion <>"" then response.Write("» " & direccion & "
")
next
%>
|
|
