<%@LANGUAGE="VBSCRIPT"%> 

<!--#include file="Connections/entradas.asp" -->

<%session("RELOAD")=true %>

<%

' *** Restrict Access To Page: Grant or deny access to this page

MM_authorizedUsers="ADMIN,ENTER"

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

%>

<%

' *** 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 = ""

%>

<%

' *** Insert Record: set variables


If (CStr(Request("MM_insert")) <> "") Then


  MM_editConnection = MM_entradas_STRING

  MM_editTable = "CAMPOS_ACCESO"

  MM_editRedirectUrl = ""

  MM_fieldsStr  = "ALIAS|value|NOMBRE|value|IDACCESS|value|VER|value|EDITAR|value"

  MM_columnsStr = "ALIAS|',none,''|NOMBRE|',none,''|IDACCESS|none,none,NULL|VER|none,1,0|EDITAR|none,1,0"


  ' 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


End If

%>

<%

' *** Update Record: set variables


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


  MM_editConnection = MM_entradas_STRING

  MM_editTable = "CAMPOS_ACCESO"

  MM_editColumn = "IDCAMPOS"

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

  MM_editRedirectUrl = ""

  MM_fieldsStr  = "ALIAS|value|VER|value|EDITAR|value"

  MM_columnsStr = "ALIAS|',none,''|VER|none,1,0|EDITAR|none,1,0"


  ' 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


End If

%>

<%

' *** Delete Record: declare variables


if (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then


  MM_editConnection = MM_entradas_STRING

  MM_editTable = "CAMPOS_ACCESO"

  MM_editColumn = "IDCAMPOS"

  MM_recordId = "" + Request("MM_recordId") + ""

  MM_editRedirectUrl = "fields.asp?IDACCESS=" + Request("IDACCESS")


End If

%>

<%

' *** Insert Record: construct a sql insert statement and execute it


If (CStr(Request("MM_insert")) <> "") Then


  ' create the sql insert statement

  MM_tableValues = ""

  MM_dbValues = ""

  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_tableValues = MM_tableValues & ","

      MM_dbValues = MM_dbValues & ","

    End if

    MM_tableValues = MM_tableValues & MM_columns(i)

    MM_dbValues = MM_dbValues & FormVal

  Next

  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"


'Evita Duplicar Campos

	Set rp = Server.CreateObject("ADODB.Recordset")

	rp.ActiveConnection = MM_editConnection

	rp.Source = "SELECT *  FROM CAMPOS_ACCESO  WHERE IDACCESS=" + request("IDACCESS") + " AND NOMBRE='" + request("NOMBRE") + "'"

	rp.Open()

	if not rp.eof then MM_abortEdit=true

	rp.close

'Fin Evita Duplicar Campos

  If (Not MM_abortEdit) Then

    ' execute the insert

    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

%>

<%

' *** 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

%>

<%

' *** Delete Record: construct a sql delete statement and execute it


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


  ' create the sql delete statement

  MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId


  If (Not MM_abortEdit) Then

    ' execute the delete

    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

%>

<%

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

fl.ActiveConnection = MM_entradas_STRING

fl.Source = "SELECT *  FROM ENTRADAS WHERE ID=0"

fl.CursorType = 0

fl.CursorLocation = 2

fl.LockType = 3

fl.Open()

fl_numRows = 0

%>

<%

Dim nivs__VICS

nivs__VICS = "1"

if (request("IDACCESS")  <> "") then nivs__VICS = request("IDACCESS") 

%>

<%

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

nivs.ActiveConnection = MM_entradas_STRING

nivs.Source = "SELECT *  FROM CAMPOS_ACCESO  WHERE IDACCESS=" + strreplace(nivs__VICS, "'", "''") + ""

nivs.CursorType = 0

nivs.CursorLocation = 2

nivs.LockType = 3

nivs.Open()

nivs_numRows = 0

%>

<%

Dim Repeat1__numRows

Repeat1__numRows = -1

Dim Repeat1__index

Repeat1__index = 0

nivs_numRows = nivs_numRows + Repeat1__numRows

%>

<html>

<head>

<title>www.promad.com.mx</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="styles/regular.css" type="text/css">

<script type=text/javascript>

function noe() {

  return !(window.event && window.event.keyCode == 13); }


function calcpzo(plazo) {

	lbor=sf.PRE.options[sf.PLAZO.selectedIndex].text;

	cval=eval(sf.PRECIO.value);

	ceng=(eval(sf.PRE.options[sf.PLAZO.selectedIndex].value)/100);

	cfin=cval-(cval*ceng);

	sf.FIN.value=cfin;

	nper=sf.PLAZO.options[sf.PLAZO.selectedIndex].text;

	sf.INT.value=eval(lbor)+eval(sf.LIBOR.value);

	if (eval(lbor)==0) 	sf.INT.value=0;

	tmen=(eval(sf.INT.value)/12)/100;

	sf.ENG.value=cval*ceng*1.15

	if (cfin>50000) {

	 		sf.c1.value=cfin*0.01*1.15;

			
	}	else sf.c1.value=575;

	sf.c2.value=sf.c1.value;

	sf.c3.value=450

	parcial=1-(Math.pow((1+tmen),-nper))

	sf.c7.value=(cfin*tmen)/parcial //

	if (parcial==0) sf.c7.value=cfin/nper;

	sf.c4.value=sf.c7.value

	sf.c5.value=cval*.012*1.15

	
	pper=eval(sf.ENG.value)+eval(sf.c1.value)+eval(sf.c2.value)

	sf.c6.value=pper+eval(sf.c3.value)+eval(sf.c4.value)+eval(sf.c5.value);

	
	//sf.c1.value=eval

}


function precioc(idp,nam) {

pre=MM_findObj('PRECIO');

uix=MM_findObj(nam);

//alert(uix.checked);

sf.ULP.value=idp;

if (uix.checked==true) {

wl=eval(pre.value)+eval(idp);


} 

else {

wl=eval(pre.value)-eval(idp);

} 

pre.value=wl;


}


var IFrameObj; // our IFrame object

function callToServer(busq,tabla) {

	if (!document.createElement) {return true};

	var IFrameDoc;

	
	// We'll build our URL by checking which state

	// has been selected in the drop down menu

	var stateEl = sf.Busqueda

	var theState = busq

	theFormName='sf'

	if (theState=='') {return false}; // no state has been selected

	var URL = "data.asp?src="+theState + "&TABLA=" + tabla

	sf.DEMQ.value=sf.COMBOS.options[sf.COMBOS.selectedIndex].text;

	sf.PRECIO.value=sf.PRX.options[sf.COMBOS.selectedIndex].value

	//alert(URL);

	
	//provide a "loading" message

	var responseMessage = document.getElementById('responseMessage');

	responseMessage.style.display = 'inline';

	responseMessage.innerHTML = 'cargando datos...';

	
	if (!IFrameObj && document.createElement) {

		// create the IFrame and assign a reference to the

		// object to our global variable IFrameObj.

		// this will only happen the first time 

		// callToServer() is called

		try {

			var tempIFrame=document.createElement('iframe');

			tempIFrame.setAttribute('id','RSIFrame');

			tempIFrame.style.border='0px';

			tempIFrame.style.width='0px';

			tempIFrame.style.height='0px';

			IFrameObj = document.body.appendChild(tempIFrame);

			
			if (document.frames) {

				// this is for IE5 Mac, because it will only

				// allow access to the document object

				// of the IFrame if we access it through

				// the document.frames array

				IFrameObj = document.frames['RSIFrame'];

			}

		} catch(exception) {

			// This is for IE5 PC, which does not allow dynamic creation

			// and manipulation of an iframe object. Instead, we'll fake

			// it up by creating our own objects.

			iframeHTML='<iframe id="RSIFrame" style="';

			iframeHTML+='border:0px;';

			iframeHTML+='width:0px;';

			iframeHTML+='height:0px;';

			iframeHTML+='"><\/iframe>';

			document.body.innerHTML+=iframeHTML;

			IFrameObj = new Object();

			IFrameObj.document = new Object();

			IFrameObj.document.location = new Object();

			IFrameObj.document.location.iframe = document.getElementById('RSIFrame');

			IFrameObj.document.location.replace = function(location) {

				this.iframe.src = location;

			}

		}

	}

	
	if (navigator.userAgent.indexOf('Gecko') !=-1 && !IFrameObj.contentDocument) {

		// we have to give NS6 a fraction of a second

		// to recognize the new IFrame

		setTimeout('callToServer("'+theFormName+'")',10);

		return false;

	}

	
	if (IFrameObj.contentDocument) {

		// For NS6

		IFrameDoc = IFrameObj.contentDocument; 

	} else if (IFrameObj.contentWindow) {

		// For IE5.5 and IE6

		IFrameDoc = IFrameObj.contentWindow.document;

	} else if (IFrameObj.document) {

		// For IE5

		IFrameDoc = IFrameObj.document;

	} else {

		return true;

	}

	
	IFrameDoc.location.replace(URL);

	return false;

}


// handleResponse is passed two parameters when called from the onload

// event of the pages loaded in the hidden IFRAME:

//	st: a string indicating which state is being loaded

//	doc: the document object of the page loaded in the IFRAME

function handleResponse(st, doc,obj) {

	// get a reference to the multiple select list, which we will populate

	// with the data from the document loaded in the IFRAME

	var namesEl = MM_findObj(obj)

	
	// clear earlier records from the multiple select list

	namesEl.length = 0

	opts.innerHTML='';

	
	// get a reference to the DIV containing the data for this state

	var dataEl = doc.getElementById(st)

	
	// get a reference to the collection of the children elements of

	// our DIV containing the data (this collection is the DIVs containing

	// the actual zip names)

	namesColl = dataEl.childNodes

	
	// for easy scripting, assign the number of ZIP names for this state

	// to a variable

	var numNames = namesColl.length

	
	// iterate through the collection of zip Names and

	// create an option element for each one

	for (var q=0; q<numNames; q++) {

		if (namesColl[q].nodeType!=1) continue; // it's not an element node, let's skedaddle

		var str = '' // used to store the text we'll use in the new option

		var strv=''

		strv+= namesColl[q].id 

		
		// get a reference to the collection of the children elements of

		// this DIV (this collection contains the zip codes that fall under this zip name)

		
		var zipsColl = doc.getElementById(namesColl[q].id).childNodes

		//alert(zipsColl.length);

		var numZips = zipsColl.length

		var u

		// iterate through this collection of zips and each one to the string

		for (var r=0; r<numZips; r++) {

			if (zipsColl[r].nodeType!=1) continue; // it's not an element node, let's skedaddle

			str += zipsColl[r].id + ' '

			
			}

			um=doc.getElementById(zipsColl[0].id).childNodes //Lee elemento interno de Precio agerga check

			opts.innerHTML=opts.innerHTML+'<input type="checkbox" name="z'+strv+ '" value="'+ um[0].id +'" onClick="precioc(this.value,this.name)">'+ str+ '<br>'

			
		}

	
	//Escribe mensaje de exito, (Ocultar layer de espere

	var responseMessage = document.getElementById('responseMessage');

	responseMessage.style.display ='none';

}

</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_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_goToURL() { //v3.0

  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;

  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");

}

//-->

</script>

</head>

<body bgcolor="#FFFFFF" text="#000000" 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> 

      <input type="submit" name="Submit4" value="&lt;- regresar" onClick="MM_goToURL('parent','nivel.asp');return document.MM_returnValue" class="arialsmall">

    </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> 

              <% if request("IDACCESS")<>"" then ' Adv Conditional Region %>

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

                <tr valign="top">

                  <td colspan="2" class="inset">Selector de Campos:<br>

                    Aqui usted podr&aacute; seleccionar los campos a los que tiene 

                    acceso el usuario, El campo Obligatorio para todas los perfiles 

                    es el de ID, se recomienda que ID solo sea un campo de Tipo 

                    VER, debido a que forma parte de un consecutivo interno whe 

                    mantiene en orden los datos.<br>

                    <br>

                    a)Para agregar un Nuevo campo al Perfil, seleccione la columna 

                    que desea y escriba el Nombre que desea se muestre en el Perfil 

                    (*Nota- Puede usar diferentes nombre en diferentes Perfiles). 

                    Despu&eacute;s Seleccione el tipo de acceso que desea proveer 

                    (Consulta o Edici&oacute;n [Ver,Editar]) Y Finalmente Presione 

                    en &quot;Permitir&quot;. El sistema Automaticamente le Sugiere 

                    el Siguiente Campo para su facilidad de Captura.<br>

                    <br>

                    b) Para cambiar los campos de un Perfil actual corrija en 

                    el renglon Correspondiente los datos y Presione el Bot&oacute;n 

                    de &quot;Actualizar&quot;<br>

                    <br>

                    c) Si desea eliminar por completo el acceso a un campo utilice 

                    el Boton de &quot;x&quot; en el rengl&oacute;n Correspondiente.<br>

                    <br>

                    ** NOTA -Despu&eacute;s de una modificaci&oacute;n En esta 

                    pantalla se le pedir&aacute; que ingrese de nuevo su contrase&ntilde;a.</td>

                </tr>

                <tr valign="top"> 

                  <td colspan="2" class="inset"> 

                    <form name="form1" method="POST" action="<%=MM_editAction%>">

                      <table border="0" class="arialsmall">

                        <tr> 

                          <td align="right">Campo: Nombre a Mostrar</td>

                          <td>&nbsp;</td>

                          <td><a href="addcol.asp">Agregar Columnas </a></td>

                        </tr>

                        <tr> 

                          <td align="right"> 

                            <select class="arialsmall" name="NOMBRE">

                              <%cnt=0

							  repv=""

					for each f in fl.Fields 

					if repv="" then repv=f.name

					 if csel="selected" then repv=f.name

					cnt=1+cnt

					%>

                              <option value="<%=f.Name %>" <%=csel %>><%=f.Name %></option>

                              <%

							  csel=""

							  if request("NOMBRE")=f.name then 	csel="selected" 

							   		  
							   next %>

                            </select>

                            <input type="text" name="ALIAS" value="<%=repv %>">

                          </td>

                          <td> 

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

                            <input type="checkbox" name="VER" value="1" checked>

                            Ver 

                            <input type="checkbox" name="EDITAR" value="1">

                            Editar </td>

                          <td> 

                            <input type="submit" name="Submit" value="Permitir" class="arialsmall">

                          </td>

                        </tr>

                      </table>

                      <input type="hidden" name="MM_insert" value="true">

                    </form>

                  </td>

                </tr>

                <tr> 

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

                </tr>

                <tr> 

                  <td colspan="2"> 

                    <table border="0" class="arialsmall">

                      <tr> 

                        <td align="right" class="header2"> 

                          <div align="center">Campo</div>

                        </td>

                        <td class="header2"> 

                          <div align="center">Acceso</div>

                        </td>

                        <td class="header2"> 

                          <div align="center"></div>

                        </td>

                      </tr>

                      <%cmp=0 %>

                      <% 

While ((Repeat1__numRows <> 0) AND (NOT nivs.EOF)) 

%>

                      <%cmp=cmp+1 %>

                      <form name="upd<%=Repeat1__numRows %>" action="<%=MM_editAction%>" method="POST">

                        <tr> 

                          <td align="right"><%=(nivs.Fields.Item("NOMBRE").Value)%> 

                            <input type="text" name="ALIAS" value="<%=(nivs.Fields.Item("ALIAS").Value)%>" size="20" maxlength="50" class="arialsmall">

                          </td>

                          <td> 

                            <input <%If (CStr(nivs.Fields.Item("VER").Value) = CStr("1")) Then Response.Write("CHECKED") : Response.Write("")%> type="checkbox" name="VER" value="1">

                            Ver 

                            <input <%If (CStr(nivs.Fields.Item("EDITAR").Value) = CStr("1")) Then Response.Write("CHECKED") : Response.Write("")%> type="checkbox" name="EDITAR" value="1">

                            Editar 

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

                          </td>

                          <td> 

                            <input type="submit" name="Submit2" value="Actualizar" class="arialsmall">

                            <input type="button" name="Submit3" value="x" class="arialsmall" onClick="MM_goToURL('parent','fields.asp?MM_delete=true&amp;MM_recordId=<%=(nivs.Fields.Item("IDCAMPOS").Value)%>&amp;IDACCESS=<%=request("IDACCESS") %>');return document.MM_returnValue">

                          </td>

                        </tr>

                        <input type="hidden" name="MM_update" value="true">

                        <input type="hidden" name="MM_recordId" value="<%= nivs.Fields.Item("IDCAMPOS").Value %>">

                      </form>

                      <% 

  Repeat1__index=Repeat1__index+1

  Repeat1__numRows=Repeat1__numRows-1

  nivs.MoveNext()

Wend

%>

                    </table>

                  </td>

                </tr>

                <tr> 

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

                </tr>

                <tr> 

                  <td width="229" class="inset"> 

                    <div align="center">Total de Campos: <%=cnt %></div>

                  </td>

                  <td width="269" class="inset"> 

                    <div align="center">Campos con Acceso: <%=cmp %> </div>

                  </td>

                </tr>

              </table>

              <% end if ' request("IDACCESS")<>"" %>

            </div>

          </td>

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

            <div align="center"><br>

              &nbsp;&nbsp;<img src="images/solocat.gif" width="132" height="85"></div>

          </td>

        </tr>

      </table>

    </td>

  </tr>

  <tr> 

    <td>&nbsp;</td>

  </tr>

  <tr> 

    <td>&nbsp;</td>

  </tr>

</table>

</body>

</html>

<%

fl.Close()

%>

<%

nivs.Close()

%>