<% Dim sucursales Dim sucursales_cmd Dim sucursales_numRows Set sucursales_cmd = Server.CreateObject ("ADODB.Command") sucursales_cmd.ActiveConnection = MM_swisscon_STRING if (Request("zona") = "capital") then where=" WHERE UNIDAD = 'prepaga' and ((portalswiss.Sucursales.Zona = 1) OR (portalswiss.Sucursales.Zona = 25))" elseif (Request("zona") = "interior") then where =" WHERE UNIDAD = 'prepaga' and ((portalswiss.Sucursales.Zona <> 1) And (portalswiss.Sucursales.Zona <> 25))" else where = " WHERE UNIDAD = 'prepaga' " end if sucursales_cmd.CommandText = "SELECT portalswiss.Sucursales.Id, portalswiss.Sucursales.Nombre, portalswiss.Sucursales.Direccion, portalswiss.Sucursales.Telefono, portalswiss.Sucursales.Zona, portalswiss.Sucursales.Foto, portalswiss.Sucursales.Fax, portalswiss.Sucursales.Mail, portalswiss.Sucursales.Web, portalswiss.Sucursales.Atencion, portalswiss.Sucursales.cox, portalswiss.Sucursales.coy, portalswiss.Sucursales_zonas.Id AS zonaId, portalswiss.Sucursales_zonas.Nombre AS ZonaNombre FROM portalswiss.Sucursales INNER JOIN portalswiss.Sucursales_zonas ON portalswiss.Sucursales.Zona = portalswiss.Sucursales_zonas.Id "& where &" ORDER BY ZonaNombre" sucursales_cmd.Prepared = true Set sucursales = sucursales_cmd.Execute sucursales_numRows = 0 %>