%@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 %>
Auserlesene Sprache |
|||||
|
|||||