%@LANGUAGE="VBSCRIPT"%> <% Dim reg_tipos Dim reg_tipos_numRows Set reg_tipos = Server.CreateObject("ADODB.Recordset") reg_tipos.ActiveConnection = MM_turismomalaga_STRING reg_tipos.Source = "SELECT nombre FROM catalogos ORDER BY nombre ASC" reg_tipos.CursorType = 0 reg_tipos.CursorLocation = 2 reg_tipos.LockType = 1 reg_tipos.Open() reg_tipos_numRows = 0 %> <% Dim reg_localidad Dim reg_localidad_numRows Set reg_localidad = Server.CreateObject("ADODB.Recordset") reg_localidad.ActiveConnection = MM_turismomalaga_STRING reg_localidad.Source = "SELECT DISTINCT localidad FROM propiedades" reg_localidad.CursorType = 0 reg_localidad.CursorLocation = 2 reg_localidad.LockType = 1 reg_localidad.Open() reg_localidad_numRows = 0 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||