<% 'Posee las variables q viajan a traves de los Asps Dim sQueryString Dim sParLoginUsrId Dim sParEditUsrId Dim sParEditUsrFullName Dim sParEditAction Dim sParEditType Dim sParError Dim sParEditOrgId Dim sParEditOrgUoId Dim sParEditProfId Dim sParEditSvcId Dim sParSelFormAction '- Obtiene los valores sQueryString = "" '- Arma los parametros a ser usados en la pagina para los llamados posteriores '======================================================================================= '- Login User Id sParLoginUsrId = Request("LoginUsrId") if sParLoginUsrId <> "" then sQueryString = AddParam(sQueryString, "LoginUsrId", Server.URLEncode(sParLoginUsrId)) end if '- Edit User Id sParEditUsrId = Request("EditUsrId") if sParEditUsrId <> "" then sQueryString = AddParam(sQueryString, "EditUsrId", Server.URLEncode(sParEditUsrId)) end if '- Edit User Full Name sParEditUsrFullName = Request("EditUsrFullName") if sParEditUsrFullName <> "" then sQueryString = AddParam(sQueryString, "EditUsrFullName", Server.URLEncode(sParEditUsrFullName)) end if '- Edit Action sParEditAction=Request("EditAction") if sParEditAction <> "" then sQueryString = AddParam(sQueryString, "EditAction", Server.URLEncode(sParEditAction)) end if '- Edit Type sParEditType=Request("EditType") if sParEditType <> "" then sQueryString = AddParam(sQueryString, "EditType", Server.URLEncode(sParEditType)) end if '- Error sParError=Request("EditError") if sParError <> "" then sQueryString = AddParam(sQueryString, "EditError", Server.URLEncode(sParError)) end if '- Organization Id sParEditOrgId=Request("EditOrgId") if sParEditOrgId <> "" then sQueryString = AddParam(sQueryString, "EditOrgId", Server.URLEncode(sParEditOrgId)) end if '- Operational Unit Id sParEditOrgUoId=Request("EditOrgUoId") if sParEditOrgId <> "" then sQueryString = AddParam(sQueryString, "EditOrgUoId", Server.URLEncode(sParEditOrgUoId)) end if '- Profile Id sParEditProfId=Request("EditProfId") if sParEditProfId <> "" then sQueryString = AddParam(sQueryString, "EditProfId", Server.URLEncode(sParEditProfId)) end if '- Service Id sParEditSvcId=Request("EditSvcId") if sParEditSvcId <> "" then sQueryString = AddParam(sQueryString, "EditSvcId", Server.URLEncode(sParEditSvcId)) end if '- Action del Form de Seleccion sParSelFormAction=Request("SelFormAction") if sParSelFormAction <> "" then sQueryString = AddParam(sQueryString, "SelFormAction", Server.URLEncode(sParSelFormAction)) end if '======================================================================================= '======================================================================================= ' Agrega un parametro al Query String '======================================================================================= Function AddParam(pQS, pParam, pValue) 'as String '- por las dudas borra primero el parametro pQS=DelParam(pQS, pParam) '- Valido el concatenador de parametros If InStr(pQS, "?") > 0 then pQS = pQS & "&" else pQS = pQS & "?" end if '- Agrego el parametro pQS = pQS & pParam & "=" & pValue '- Retorno el QueryString AddParam = pQS End Function '======================================================================================= ' Borra un parametro del Query String '======================================================================================= Function DelParam(pQS, pParam) 'as String Dim iBegin Dim iEnd Dim iLen Dim sRep '- Busco el parametro iBegin = InStr(pQS, pParam) If iBegin > 0 Then iEnd = Len(pQS) If InStr(iBegin, pQS, "&") > 0 Then iEnd = InStr(iBegin, pQS, "&") End If iLen = (iEnd - iBegin) + 1 If iLen > 0 Then sRep = Mid(pQS, iBegin, iLen) '- Borro el parametro pQS = Replace(pQS, sRep, "") End If '- Valida si termina en & If Right(pQS, 1) = "&" Then pQS = Left(pQS, Len(pQS) - 1) End If '- Valida si es 1 solo caracter = ? If Len(pQS) = 1 And pQS = "?" Then pQS = "" End If End If '- Retorno el QueryString DelParam = pQS End Function %>