<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Tipo_propiedad
Dim Tipo_propiedad_numRows
Set Tipo_propiedad = Server.CreateObject("ADODB.Recordset")
Tipo_propiedad.ActiveConnection = MM_Conectar_STRING
Tipo_propiedad.Source = "SELECT * FROM dbo.Tipo_propiedad ORDER BY Tipo_propiedad_detalle ASC"
Tipo_propiedad.CursorType = 0
Tipo_propiedad.CursorLocation = 2
Tipo_propiedad.LockType = 1
Tipo_propiedad.Open()
Tipo_propiedad_numRows = 0
%>
<%
Dim Provincias
Dim Provincias_numRows
Set Provincias = Server.CreateObject("ADODB.Recordset")
Provincias.ActiveConnection = MM_Conectar_STRING
Provincias.Source = "SELECT * FROM dbo.Provincias ORDER BY Provincia_detalle ASC"
Provincias.CursorType = 0
Provincias.CursorLocation = 2
Provincias.LockType = 1
Provincias.Open()
Provincias_numRows = 0
%>
<%
Dim Ciudades
Dim Ciudades_numRows
Set Ciudades = Server.CreateObject("ADODB.Recordset")
Ciudades.ActiveConnection = MM_Conectar_STRING
Ciudades.Source = "SELECT * FROM dbo.Ciudades ORDER BY Ciudad_detalle ASC"
Ciudades.CursorType = 0
Ciudades.CursorLocation = 2
Ciudades.LockType = 1
Ciudades.Open()
Ciudades_numRows = 0
%>
.: BIENES RAÍCES CATEDRAL
<%
Tipo_propiedad.Close()
Set Tipo_propiedad = Nothing
%>
<%
Provincias.Close()
Set Provincias = Nothing
%>
<%
Ciudades.Close()
Set Ciudades = Nothing
%>
