<%
Dim tableinto
set xmlDoc=server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async="false"
xmlDoc.load(server.MapPath("inmuebles.xml"))
temptipo = ""
entro = false
for each x in xmlDoc.documentElement.childNodes
set nodes=x.childNodes
tipo = nodes.item(0).text
fecha = nodes.item(1).text
clave = nodes.item(2).text
colonia = nodes.item(3).text
domicilio = nodes.item(4).text
descripcion = nodes.item(5).text
renta = nodes.item(6).text
if ucase(tipo) = ucase(temptipo) then
tipo = ""
else
temptipo = tipo
end if
css = ""
if entro then css = "1"
tableinto = tableinto & "| " & UCASE(tipo) & " | " & clave & " | " & colonia & " | " & domicilio & " | " & descripcion & " | " & formatCurrency(renta,2) & " |
" & vbcrlf
entro = not entro
next
%>
| Tipo |
Clave |
Colonia |
Domicilio |
Descripción |
Renta |
<%=tableinto%>