<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim zonas Dim zonas_numRows Set zonas = Server.CreateObject("ADODB.Recordset") zonas.ActiveConnection = MM_inmo_STRING zonas.Source = "SELECT * FROM zonas ORDER BY zona" zonas.CursorType = 0 zonas.CursorLocation = 2 zonas.LockType = 1 zonas.Open() zonas_numRows = 0 %> <% Dim Tipos Dim Tipos_numRows Set Tipos = Server.CreateObject("ADODB.Recordset") Tipos.ActiveConnection = MM_inmo_STRING Tipos.Source = "SELECT * FROM tipos ORDER BY inmueble" Tipos.CursorType = 0 Tipos.CursorLocation = 2 Tipos.LockType = 1 Tipos.Open() Tipos_numRows = 0 %> Inmuebles Inmopar
Auserlesene Sprache
 
 
     
 
         
  CALPE GABRIEL MIRO   ALTEA HILLS  
  2   4  
    CALPE AVDA. EUROPA    
    1    
  CAMPOMANES   FINESTRAT  
  3   5  
   
     
     
     
     
   
         
<% zonas.Close() Set zonas = Nothing %> <% Tipos.Close() Set Tipos = Nothing %>