<% Response.Buffer = True Response.Expires = 0 %> <% If Session("theAdmId") = "" Then Response.Redirect("aux_logon.asp") End If %> <% RTABLAS = TRIM(request.form("TABLAS")) ROPCION = TRIM(request.form("OPCION")) RIDP = TRIM(RTABLAS & ROPCION) If RIDP = "" Then If TRIM(request.querystring("IDP")) = "" Then RIDP = "" Else RIDP = TRIM(request.querystring("IDP")) End If End If SESSION("SRISEC") = TRIM(request.querystring("RISEC")) SESSION("SRICIU") = TRIM(request.querystring("RICIU")) SESSION("SRITIP") = TRIM(request.querystring("RITIP")) SESSION("SRIASO") = TRIM(request.querystring("RIASO")) SESSION("SRIPRO") = TRIM(request.querystring("RIPRO")) If RIDP = "" Then RIDP = "0" End If Select Case RIDP Case "0" RDESC_PRG = "" '"Página Principal" Case "SECADD" RDESC_PRG = "Adición de Sectores" Case "SECACT" RDESC_PRG = "Actualización de Sectores" Case "CIUADD" RDESC_PRG = "Adición de Ciudades" Case "CIUACT" RDESC_PRG = "Actualización de Ciudades" Case "TIPADD" RDESC_PRG = "Adición de Tipos de Propiedades" Case "TIPACT" RDESC_PRG = "Actualización de Tipos de Propiedades" Case "ASOADD" RDESC_PRG = "Adición de Asociados" Case "ASOACT" RDESC_PRG = "Actualización de Asociados" Case "PROADD" RDESC_PRG = "Adición de Propiedades" Case "PROACT" RDESC_PRG = "Actualización de Propiedades" End Select %> Inmodom - Menu de Administración


Adicionar
Actualizar

Estas aplicaciones son de uso interno para www.inmodom
<% Select Case RIDP Case "0" theIFrameSRC = "principal.asp" Case "SECADD" theIFrameSRC = "add_sectores.asp" Case "SECACT" theIFrameSRC = "act_sectores.asp" Case "CIUADD" theIFrameSRC = "add_ciudades.asp" Case "CIUACT" theIFrameSRC = "act_ciudades.asp" Case "TIPADD" theIFrameSRC = "add_tipos.asp" Case "TIPACT" theIFrameSRC = "act_tipos.asp" Case "ASOADD" theIFrameSRC = "add_asociados.asp" Case "ASOACT" theIFrameSRC = "act_asociados.asp" Case "PROADD" theIFrameSRC = "add_propiedades.asp" Case "PROACT" theIFrameSRC = "act_propiedades.asp" End Select %> <% If theIFrameSRC <> "" Then %> <% End If %>
<% 'Select Case RIDP ' Case "0" %> <%' Case "SECADD" %> <%' Case "SECACT" %> <%' Case "CIUADD" %> <%' Case "CIUACT" %> <%' Case "TIPADD" %> <%' Case "TIPACT" %> <%' Case "ASOADD" %> <%' Case "ASOACT" %> <%' Case "PROADD" %> <%' Case "PROACT" %> <% 'End Select %>