<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%session("RELOAD")=true %> 
<!--#include file="Connections/maq.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="ADMIN,SYSOP"
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="Connections/entradas.asp" -->

<%

' *** Edit Operations: declare variables


MM_editAction = CStr(Request("URL"))

If (Request.QueryString <> "") Then

  MM_editAction = MM_editAction & "?" & Request.QueryString

End If


' boolean to abort record edit

MM_abortEdit = false


' query string to execute

MM_editQuery = ""

%>

<%

' *** Update Record: set variables


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then


  MM_editConnection = MM_maq_STRING

  MM_editTable = "USUARIOSCRM"

  MM_editColumn = "IDCLIENTE"

  MM_recordId = "" + Request.Form("MM_recordId") + ""

  MM_editRedirectUrl = "users.asp"

  MM_fieldsStr  = "INICIALES|value|ADMONRENTA|value|CARTCONTRA|value|NOMBRE|value|PASSWORD|value|ZONA|value|EMAIL|value|TIPOUSER|value|ACCENTER|value|DIVI|value|NIVAUTH|value|ZONA_TARIFA|value"

  MM_columnsStr = "INICIALES|',none,''|ADMONRENTA|none,none,NULL|CARTCONTRA|none,none,NULL|NOMBRE|',none,''|PASSWD|',none,''|ZONA|',none,''|EMAIL|',none,''|TIPOUSER|',none,''|ACCENTER|none,none,NULL|DIVI|',none,''|NIVAUTH|none,none,NULL|ZONA_TARIFA|none,none,NULL"


  ' create the MM_fields and MM_columns arrays

  MM_fields = Split(MM_fieldsStr, "|")

  MM_columns = Split(MM_columnsStr, "|")

  
  ' set the form values

  For i = LBound(MM_fields) To UBound(MM_fields) Step 2

    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))

  Next


  ' append the query string to the redirect URL

  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

    Else

      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

    End If

  End If


End If

%>

<%

' *** Update Record: construct a sql update statement and execute it


If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then


  ' create the sql update statement

  MM_editQuery = "update " & MM_editTable & " set "

  For i = LBound(MM_fields) To UBound(MM_fields) Step 2

    FormVal = MM_fields(i+1)

    MM_typeArray = Split(MM_columns(i+1),",")

    Delim = MM_typeArray(0)

    If (Delim = "none") Then Delim = ""

    AltVal = MM_typeArray(1)

    If (AltVal = "none") Then AltVal = ""

    EmptyVal = MM_typeArray(2)

    If (EmptyVal = "none") Then EmptyVal = ""

    If (FormVal = "") Then

      FormVal = EmptyVal

    Else

      If (AltVal <> "") Then

        FormVal = AltVal

      ElseIf (Delim = "'") Then  ' escape quotes

        FormVal = "'" & strreplace(FormVal,"'","''") & "'"

      Else

        FormVal = Delim + FormVal + Delim

      End If

    End If

    If (i <> LBound(MM_fields)) Then

      MM_editQuery = MM_editQuery & ","

    End If

    MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal

  Next

  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId


  If (Not MM_abortEdit) Then

    ' execute the update

    Set MM_editCmd = Server.CreateObject("ADODB.Command")

    MM_editCmd.ActiveConnection = MM_editConnection

    MM_editCmd.CommandText = MM_editQuery

    MM_editCmd.Execute

    MM_editCmd.ActiveConnection.Close


    If (MM_editRedirectUrl <> "") Then

      Response.Redirect(MM_editRedirectUrl)

    End If

  End If


End If

%>

<%

Dim exist__idc

exist__idc = "1"

if (REQUEST("IDUSER")  <> "") then exist__idc = REQUEST("IDUSER") 

%>
<%

set acenter = Server.CreateObject("ADODB.Recordset")

acenter.ActiveConnection = MM_entradas_STRING

acenter.Source = "SELECT IDACCESS, DESCR  FROM NIVEL_ACCESO"

acenter.CursorType = 0

acenter.CursorLocation = 2

acenter.LockType = 3

acenter.Open()

acenter_numRows = 0

%>
<%

set exist = Server.CreateObject("ADODB.Recordset")

exist.ActiveConnection = MM_maq_STRING

exist.Source = "SELECT *  FROM USUARIOSCRM  WHERE IDCLIENTE=" + strreplace(exist__idc, "'", "''") + "  ORDER BY NOMBRE"

exist.CursorType = 0

exist.CursorLocation = 2

exist.LockType = 3

exist.Open()

exist_numRows = 0

if exist.eof then response.redirect("escribes.asp?cmd=" +  "SELECT *  FROM USUARIOS  WHERE NOVEND='" + strreplace(exist__idc, "'", "''") + "'" )

%>
<%

set acenter = Server.CreateObject("ADODB.Recordset")

acenter.ActiveConnection = MM_entradas_STRING

acenter.Source = "SELECT IDACCESS, DESCR  FROM NIVEL_ACCESO"

acenter.CursorType = 0

acenter.CursorLocation = 2

acenter.LockType = 3

acenter.Open()

acenter_numRows = 0

%>
<%
Dim DIVS
Dim DIVS_numRows

Set DIVS = Server.CreateObject("ADODB.Recordset")
DIVS.ActiveConnection = MM_maq_STRING
DIVS.Source = "SELECT *  FROM DIVISIONES"
DIVS.CursorType = 0
DIVS.CursorLocation = 2
DIVS.LockType = 1
DIVS.Open()

DIVS_numRows = 0
%>
<%
Dim TARIFAS_ZONA
Dim TARIFAS_ZONA_numRows

Set TARIFAS_ZONA = Server.CreateObject("ADODB.Recordset")
TARIFAS_ZONA.ActiveConnection = MM_maq_STRING
TARIFAS_ZONA.Source = "SELECT ID_ZONA, NOMBRE FROM ZONAS_TARIFARIAS"
TARIFAS_ZONA.CursorType = 0
TARIFAS_ZONA.CursorLocation = 2
TARIFAS_ZONA.LockType = 1
TARIFAS_ZONA.Open()

TARIFAS_ZONA_numRows = 0
%>
<%
Dim zona
Dim zona_numRows

Set zona = Server.CreateObject("ADODB.Recordset")
zona.ActiveConnection = MM_maq_STRING
zona.Source = "SELECT ZONA FROM RESP_CREDITO"
zona.CursorType = 0
zona.CursorLocation = 2
zona.LockType = 1
zona.Open()

zona_numRows = 0
%>
<%
Dim nivs
Dim nivs_numRows

Set nivs = Server.CreateObject("ADODB.Recordset")
nivs.ActiveConnection = MM_maq_STRING
nivs.Source = "SELECT IDACCESS,DESCR,COMENTARIO,ACTIVO FROM NIVEL_ACCESO"
nivs.CursorType = 0
nivs.CursorLocation = 2
nivs.LockType = 1
nivs.Open()

nivs_numRows = 0
%>

<%

Dim news__nov

news__nov = "1"

if (request("IDCLIENTE") <> "") then news__nov = request("IDCLIENTE")

%>

<%if request("mod")=1 then modifica()%>

<html>

<head>
<title>Informaci&oacute;n del Usuario</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">

<!--


function MM_findObj(n, d) { //v4.0

  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];

  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);

  if(!x && document.getElementById) x=document.getElementById(n); return x;

}


function MM_validateForm() { //v4.0

  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;

  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);

    if (val) { nm=val.name; if ((val=val.value)!="") {

      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');

        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';

      } else if (test!='R') {

        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';

        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');

          min=test.substring(8,p); max=test.substring(p+1);

          if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';

    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }

  } if (errors) alert('The following error(s) occurred:\n'+errors);

  document.MM_returnValue = (errors == '');

}

//-->

</script>
<script language="JavaScript">

<!--

<!--

function MM_reloadPage(init) {  //reloads the window if Nav4 resized

  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {

    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}

  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();

}

MM_reloadPage(true);

// -->


function MM_swapImgRestore() { //v3.0

  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;

}


function MM_preloadImages() { //v3.0

  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();

    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}

}


function MM_swapImage() { //v3.0

  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)

   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}

}

//-->

</script>
<link rel="stylesheet" href="styles/format" type="text/css">
<link rel="stylesheet" href="styles/default.css" type="text/css">
<link rel="stylesheet" href="styles/regular" type="text/css">
<link rel="stylesheet" href="styles/regular.css" type="text/css">
<style type="text/css">
<!--
-->
</style>
</head>


<style type="text/css">

<!--

body {  background-color: #FFFFFF; background-image: url(images/back_sistema.jpg); background-repeat: no-repeat}

-->

</style>

<body class="body"  leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" leftmargin=0 topmargin=0 marginheight="0" marginwidth="0">

  <tr> 

    <td> 

      <!--#include file="menu.asp" -->

    </td>

  </tr>

  <tr> 

    <td>&nbsp; </td>

  </tr>

  <tr> 

    <td > 
      <table width="681" border="0" cellspacing="0" cellpadding="0" height="208">

        <tr> 

          <td class="grbllines" width="486" valign="top"> 

            <div id=theFormDiv> 

              <table width="528" border="0" cellspacing="10" cellpadding="0" align="center" class="arialsmall">

                <tr valign="top"> 

                  <td colspan="2" class="inset">&nbsp; </td>

                </tr>

                <tr> 

                  <td colspan="2"> 

                    <div id="menu"> 

                      <table border="0" cellspacing="3" cellpadding="0">

                        <tr> 

                          <td colspan="2"> 

                            <table border="0" cellspacing="3" cellpadding="0" width="375" class="arialsmall">

                              <tr> 

                                <td ></td>

                              </tr>

                              <tr> 

                                <td> 

                                  <form action="<%=MM_editAction%>" method="POST" name="formn" onSubmit="MM_validateForm('NOMBRE','','R','PASSWORD','','R','ZONA','','R');return document.MM_returnValue">
                                    <table border="0" width="100%" height="50" class="arialsmall">
                                      <tr> 
                                        <td width="98"><font color="#0000CC"><a href="users.asp"><img src="images/REG.gif" width="58" height="15" border="0"></a></font></td>
                                        <td width="194" class="inset">Informaci&oacute;n 
                                          del Usuario</td>
                                        <td rowspan="8" width="63" class="arialblanco">&nbsp;</td>
                                      </tr>
                                      <tr> 
                                        <td width="98" valign="top" class="tableheaderlgray"> 
                                          Nombre: </td>
                                        <td width="194" class="arialblanco"> <input type="text" name="NOMBRE" size="20" value="<%=(exist.Fields.Item("NOMBRE").Value)%>" class="smallcombos"> 
                                        </td>
                                      </tr>
                                      <tr> 
                                        <td width="98" valign="top" class="tableheaderlgray">Username:</td>
                                        <td width="194" class="arialblanco"> <%=(exist.Fields.Item("USERNAM").Value)%> </td>
                                      </tr>
                                      <tr> 
                                        <td width="98" valign="top" class="tableheaderlgray">Password:</td>
                                        <td width="194" class="arialblanco"> <input type="text" name="PASSWORD" size="20" value="<%=(exist.Fields.Item("PASSWD").Value)%>" class="smallcombos"> 
                                        </td>
                                      </tr>
                                      <tr> 
                                        <td width="98" valign="top" class="tableheaderlgray">Sucursal:</td>
                                        <td width="194" class="arialblanco"> <select name="ZONA" id="ZONA">
                                            <%
While (NOT zona.EOF)
%>
                                            <option value="<%=(zona.Fields.Item("ZONA").Value)%>" <%If (Not isNull((exist.Fields.Item("ZONA").Value))) Then If (CStr(zona.Fields.Item("ZONA").Value) = CStr((exist.Fields.Item("ZONA").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(zona.Fields.Item("ZONA").Value)%></option>
                                            <%
  zona.MoveNext()
Wend
If (zona.CursorType > 0) Then
  zona.MoveFirst
Else
  zona.Requery
End If
%>
                                          </select> <%= CStr((exist.Fields.Item("ZONA_TARIFA").Value)) %></td>
                                      </tr>
                                      <tr> 
                                        <td width="98" valign="top" class="tableheaderlgray">Email: 
                                        </td>
                                        <td width="194" class="arialblanco"> <input type="text" name="EMAIL" size="20" value="<%=(exist.Fields.Item("EMAIL").Value)%>" class="smallcombos"> 
                                        </td>
                                      </tr>
                                      <tr>
                                        <td valign="top" class="tableheaderlgray">Iniciales 
                                          MRMENU:</td>
                                        <td class="arialblanco"><input name="INICIALES" type="text" id="INICIALES" value="<%=(exist.Fields.Item("INICIALES").Value)%>"></td>
                                      </tr>
                                      <tr> 
                                        <td width="98" valign="top" class="tableheaderlgray"> 
                                          Privilegios: </td>
                                        <td width="194" class="arialblanco"> <select name="TIPOUSER" class="smallcombos">
                                            <%
While (NOT nivs.EOF)
%>
                                            <option value="<%=(nivs.Fields.Item("DESCR").Value)%>" <%If (Not isNull((exist.Fields.Item("TIPOUSER").Value))) Then If (CStr(nivs.Fields.Item("DESCR").Value) = CStr((exist.Fields.Item("TIPOUSER").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(nivs.Fields.Item("DESCR").Value)%></option>
                                            <%
  nivs.MoveNext()
Wend
If (nivs.CursorType > 0) Then
  nivs.MoveFirst
Else
  nivs.Requery
End If
%>
                                          </select> <font size="2"> 
                                          <input name="ACCENTER" type="hidden" id="ACCENTER" value="0">
                                          </font> </td>
                                      </tr>
                                      <tr> 
                                        <td valign="top" class="tableheaderlgray">Zona 
                                          Tarifaria </td>
                                        <td class="arialblanco"><select name="ZONA_TARIFA" id="ZONA_TARIFA">
                                            <%
While (NOT TARIFAS_ZONA.EOF)
%>
                                            <option value="<%=(TARIFAS_ZONA.Fields.Item("ID_ZONA").Value)%>" <%If (Not isNull((exist.Fields.Item("ZONA_TARIFA").Value))) Then If (CStr(TARIFAS_ZONA.Fields.Item("ID_ZONA").Value) = CStr((exist.Fields.Item("ZONA_TARIFA").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(TARIFAS_ZONA.Fields.Item("NOMBRE").Value)%></option>
                                            <%
  TARIFAS_ZONA.MoveNext()
Wend
If (TARIFAS_ZONA.CursorType > 0) Then
  TARIFAS_ZONA.MoveFirst
Else
  TARIFAS_ZONA.Requery
End If
%>
                                          </select></td>
                                        <td class="arialblanco">&nbsp;</td>
                                      </tr>
                                      <tr> 
                                        <td width="98" valign="top" class="tableheaderlgray">Divisi&oacute;n</td>
                                        <td width="194" class="arialblanco"> <select name="DIVI"  id="DIVI">
                                            <%
While (NOT DIVS.EOF)
%>
                                            <option value="<%=(DIVS.Fields.Item("SHORT").Value)%>" <%If (Not isNull((exist.Fields.Item("DIVI").Value))) Then If (CStr(DIVS.Fields.Item("SHORT").Value) = CStr((exist.Fields.Item("DIVI").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(DIVS.Fields.Item("DESCRIPCION").Value)%></option>
                                            <%
  DIVS.MoveNext()
Wend
If (DIVS.CursorType > 0) Then
  DIVS.MoveFirst
Else
  DIVS.Requery
End If
%>
                                          </select> </td>
                                        <td width="63" class="arialblanco">&nbsp;</td>
                                      </tr>
                                      <tr> 
                                        <td valign="top" class="tableheaderlgray">Tipo 
                                          de Usuario</td>
                                        <td class="arialblanco"><input name="CARTCONTRAb" type="checkbox" class="invisible" id="CARTCONTRAb" value="1" <%If (((exist.Fields.Item("CARTCONTRA").Value)) =("1")) Then Response.Write("checked") : Response.Write("")%>> 
                                          <input <%If (((exist.Fields.Item("CARTCONTRA").Value)) =("0")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="CARTCONTRA" value="0">
                                          Vendedor 
                                          <input <%If (((exist.Fields.Item("CARTCONTRA").Value)) = ("1")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="CARTCONTRA" value="1">
                                          Administrativo</td>
                                        <td class="arialblanco">&nbsp;</td>
                                      </tr>
                                      <tr class="invisible"> 
                                        <td valign="top">Admon Renta </td>
                                        <td> 
                                          <input <%If (CStr((exist.Fields.Item("ADMONRENTA").Value)) = CStr("1")) Then Response.Write("checked") : Response.Write("")%> name="ADMONRENTA" type="checkbox" id="ADMONRENTA" value="1"></td>
                                        <td>&nbsp;</td>
                                      </tr>
                                      <tr> 
                                        <td valign="top" class="tableheaderlgray">Nivel 
                                          de Autorizaci&oacute;n</td>
                                        <td class="arialblanco"><select name="NIVAUTH" id="NIVAUTH">
                                            <option value="1" <%If (Not isNull((exist.Fields.Item("NIVAUTH").Value))) Then If ("1" = CStr((exist.Fields.Item("NIVAUTH").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>GERENCIA 
                                            SUCURSAL</option>
                                            <option value="2" <%If (Not isNull((exist.Fields.Item("NIVAUTH").Value))) Then If ("2" = CStr((exist.Fields.Item("NIVAUTH").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>DIRECTOR 
                                            ADMINISTRATIVO</option>
                                            <option value="3" <%If (Not isNull((exist.Fields.Item("NIVAUTH").Value))) Then If ("3" = CStr((exist.Fields.Item("NIVAUTH").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>DIRECTOR 
                                            OPERATIVO</option>
                                            <option value="4" <%If (Not isNull((exist.Fields.Item("NIVAUTH").Value))) Then If ("4" = CStr((exist.Fields.Item("NIVAUTH").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>CREDITO 
                                            EN SUCURSAL</option>
                                            <option value="5" <%If (Not isNull((exist.Fields.Item("NIVAUTH").Value))) Then If ("5" = CStr((exist.Fields.Item("NIVAUTH").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>GERENCIA 
                                            CREDITO CORPORATIVO</option>
                                            <option value="0" <%If (Not isNull((exist.Fields.Item("NIVAUTH").Value))) Then If ("0" = CStr((exist.Fields.Item("NIVAUTH").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>NINGUNO</option>
                                          </select></td>
                                        <td class="arialblanco">&nbsp;</td>
                                      </tr>
                                      <tr> 
                                        <td width="98" valign="top" class="tableheaderlgray"><font color="#0000CC">&nbsp;</font></td>
                                        <td width="194" class="arialblanco"> <input type="image" border="0" name="imageField" src="images/modificarusuario.gif" width="80" height="15"> 
                                          <font size="2">&nbsp; </font></td>
                                        <td width="63" class="arialblanco">&nbsp;</td>
                                      </tr>
                                    </table>
                                    <input type="hidden" name="MM_update" value="formn">
                                    <input type="hidden" name="MM_recordId" value="<%= exist.Fields.Item("IDCLIENTE").Value %>">
                                  </form>

                                </td>

                              </tr>

                              <tr> 

                                <td class="arialblanco" bgcolor="#FFCC00"><%=MM_editQuery %></td>

                              </tr>

                              <tr> 

                                <td class="arialblanco" bgcolor="#000000">&nbsp;</td>

                              </tr>

                            </table>

                          </td>

                        </tr>

                      </table>

                    </div>

                  </td>

                </tr>

                <tr> 

                  <td colspan="2">&nbsp;</td>

                </tr>

                <tr> 

                  <td width="150">&nbsp;</td>

                  <td width="348"> 

                    <div align="right"> 

                      <input type="hidden" name="DEMQ">

                      <input type="hidden" name="idcte" value="<%=request("idcte") %>">

                    </div>

                  </td>

                </tr>

              </table>

            </div>

          </td>

          <td bgcolor="#000000" width="150" valign="top" align="center"> 

            <div align="center"><br>
              &nbsp;&nbsp;<img src="images/solocat.gif" width="50" height="32"></div>

          </td>

        </tr>

      </table>

    </td>

  </tr>

  <tr> 

    <td>&nbsp;</td>

  </tr>

  <tr> 

    <td>&nbsp;</td>

  </tr>

</table>

</body>

</html>

<%

exist.Close()

%>

<%

acenter.Close()

%>
<%
DIVS.Close()
Set DIVS = Nothing
%>
<%
TARIFAS_ZONA.Close()
Set TARIFAS_ZONA = Nothing
%>
<%
zona.Close()
Set zona = Nothing
%>
<%
nivs.Close()
Set nivs = Nothing
%>