| |
<%=categoria1%>
<%
hay_categoria2 = 0
hay_categoria3 = 0
hay_categoria4 = 0
categorias2 = 0
categoria2 = ""
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
categoria3 = ""
categoria4 = ""
for i=0 to Ubound(listado,2)
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_anterior = direccion
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 <>"" and direccion<>direccion_anterior then response.Write("» " & direccion & "
")
next
%>
|
|
