<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="../Connections/maq.asp" -->
<%  Session.LCID =1033 %>
<%'quitar al hacer 
if session("IDCLIENTE")="" THEN session("IDCLIENTE")="1"
%>
<%
Randomize
function ZeroPad(sWork, nDigits)
	ZeroPad = right(string(nDigits, "0") & trim(sWork), nDigits)
end function
function GetIndexNumber()
	sDay = Day(Now())
	sMonth = Month(Now())
	sYear = Year(Now())
	sHour = Hour(Now())
	sMinute = Minute(Now())
	sSecond = Second(Now())
	Tail = Int(1000000 * Rnd)
	GetIndexNumber = ZeroPad(sYear, 4) & ZeroPad(sMonth, 2) & ZeroPad(sDay, 2) & ZeroPad(sHour, 2) & ZeroPad(sMinute, 2) & ZeroPad(sSecond, 2) & ZeroPad(Tail, 6)
end function
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="ADMIN,VENDEDOR,GERENTE,RESP_ZONA,ESPECIALISTA"
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
%>
<%
Dim cot__IDRTA
cot__IDRTA = "-1"
If (REQUEST("IDRTA") <> "") Then 
  cot__IDRTA = REQUEST("IDRTA")
End If
%>
<%
Dim cot
Dim cot_numRows

Set cot = Server.CreateObject("ADODB.Recordset")
cot.ActiveConnection = MM_maq_STRING
cot.Source = "SELECT RAZONMOD,IDRT,TIPOPER, CANT,IMPORTELETRA,WHO,LIBRE,SERIE,MODELO,FECHA,MESES,DIAS,SEMANAS,RENTANO, EMB, IDCTE, DIA, MES, ANIO, IMPORTE, MONEDA,IDX, PROSPECTOS.COMPANIA,AUTH,FAUTHO  FROM RENTA,PROSPECTOS  WHERE IDRT=" + strreplace(cot__IDRTA, "'", "''") + " AND PROSPECTOS.IDCLIENTE=RENTA.IDCTE  ORDER BY IDRT DESC"
cot.CursorType = 0
cot.CursorLocation = 2
cot.LockType = 1
cot.Open()

cot_numRows = 0
%>
<%
Dim valco
Dim valco_numRows

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

valco_numRows = 0
%>

<%' escribe cookies
if request("ULP")<>"" THEN 
Response.Cookies("DIRECCION")=cstr(request("DIRECCION"))
Response.Cookies("CIUDAD")=cstr(request("CIUDAD"))
Response.Cookies("ESTADO")=cstr(request("ESTADO"))
Response.Cookies("NOMBRE")=cstr(request("NOMBRE"))
END IF
%>
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
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")) = "sf" And CStr(Request("MM_recordId")) <> "") Then

  MM_editConnection = MM_maq_STRING
  MM_editTable = "RENTA"
  MM_editColumn = "IDRT"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_editRedirectUrl = ""
  MM_fieldsStr  = "RAZONMOD|value|IMPORTE|value|IMPORTELETRA|value|AUTH|value|FAUTHO|value"
  MM_columnsStr = "RAZONMOD|',none,''|IMPORTE|',none,''|IMPORTELETRA|',none,''|AUTH|',none,''|FAUTHO|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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 MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & strreplace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_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
%>
<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 language="JavaScript" src="Connections/formatn.js" type="text/JavaScript1.2"></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 verific() {
idp=sf.IDPROSPECTO.value;
idDBS=sf.IDDBSC.options[sf.IDPROSPECTO.selectedIndex].value;
maq=sf.COMBOS.value;
RFC=sf.IDDBSC.options[sf.IDPROSPECTO.selectedIndex].text;

document.frames['chk'].location='rc4.asp?idprosp=' + idp + '&idmaquina=' +maq +'&iddbs=' + idDBS+'&RFC=' + RFC;

}

function cambiatcot() {//envia tipo de cot a la misma pagina
//Evita envio si no hay tipo seleccionado
if (sf.TCOT.selectedIndex!=0) {
window.location='<%=request.ServerVariables("URL") %>?TCOT=' + sf.TCOT.value;}
}

// -->

function cf(theURL,winName,features) { //v2.0
	turl='conf.asp?id='+ sf.COMBOS.value
	
  var cfa=window.open(turl,winName,features);
  cfa.focus()
}

function MM_findObj(n, d) { //v4.01
  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 && d.getElementById) x=d.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') { num = parseFloat(val);
        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 (num<min || max<num) 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>
<link href="../styles/regular.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<table width="760" 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="823" height="208" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top" class="grbllines"> <DIV id=theFormDiv> 
              <form action="<%=REQUEST.SERVERVARIABLES("URL") %>" method="post" name="form1" onSubmit="MM_validateForm('IDRTA','','RisNum');return document.MM_returnValue">
                <table border="0" cellspacing="10" cellpadding="0" align="center" class="arialsmall">
                  <tr valign="top"> 
                    <td colspan="2" class="inset"> <table border="0" cellspacing="5" cellpadding="0" class="arialsmall" width="100%">
                        <tr> 
                          <td colspan="4" class="header3">BUSCAR COTIZACION</td>
                        </tr>
                        <tr> 
                          <td><input name="IDRTA" type="text" id="IDRTA"> </td>
                          <td valign="top">&nbsp;</td>
                          <td valign="top">&nbsp;</td>
                          <td valign="top">&nbsp;</td>
                        </tr>
                        <%' Fin de cotizaciones diferentes %>
                      </table></td>
                  </tr>
                  <tr> 
                    <td width="150" height="24">&nbsp;</td>
                    <td width="348"> <div align="right"> 
                        <input name="Submit2" type="submit" class="arialsmall" value="BUSCAR" onClick="acttar();">
                      </div></td>
                  </tr>
                </table>
              </form>
              <form action="<%=MM_editAction%>" method="POST" name="sf" id="sf" onSubmit="MM_validateForm('IMPORTE','','R','IMPORTELETRA','','R','RAZONMOD','','R');return document.MM_returnValue">
                <% IF not cot.eof THEN  %>
                <script language="JavaScript" type="text/JavaScript">
<!--


function roundit(Num, Places) {
   if (Places > 0) {
      if ((Num.toString().length - Num.toString().lastIndexOf('.')) > (Places + 1)) {
         var Rounder = Math.pow(10, Places);
         return Math.round(Num * Rounder) / Rounder;
      }
      else return Num;
   }
   else return Math.round(Num);
}


function MM_findObj(n, d) { //v4.01
  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 && d.getElementById) x=d.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') { num = parseFloat(val);
        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 (num<min || max<num) 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">
  <!-- 
   /* ------------------------------------------------------------------------------------------------- 
	Title:		Number to Words Converter
	Copyright:	Copyright © Demetrius Francis, 1998-1999.  All rights reserved.
	Author:		Demetrius Francis
	Contact:	dem_@hotmail.com	http://www.angelfire.com/de/draf/index.html

	License:	Freeware

	Obligation:	PLEASE READ CAREFULLY BEFORE COPYING OR DOWNLOADING.
				You are hereby granted a free user license to copy y use this script, provided you
				maintain the copyright notice y this license agreement at the begining of the script.
   ---------------------------------------------------------------------------------------------------*/
  aUnits=["","uno","dos","tres","cuatro","cinco","seis","siete","ocho","nueve"]
  aTeens=["","once","doce","trece","catorce","quince","dieciseis","diecisiete","dieciocho","diecinueve"]
  aTens =["","diez","veinte","treinta","cuarenta","cincuenta","sesenta","setenta","ochenta","noventa"]

  function getunits(xValue){
	/* This function accepts a one string parameter i.e. "1", "0", "9" etc... */
	unidad=aUnits[xValue];
	if (xValue==1) unidad=' un '
	if (aUnits[xValue]=='' ) unidad='';
    return (unidad);
    }

  function gethund(xValue){
    /* This function accepts a one string parameter i.e. "1", "0", "9" etc... */
    if (aUnits[xValue] != '') {
			if (xValue==1) return (' ciento ');
			if (xValue==5) return (' quinientos ');
			if (xValue==9) return (' novecientos '); else
	        return (aUnits[xValue]+' cientos ')
			}
    else
        return (aUnits[xValue])
      }

  function teens(xValue){
     return (aTeens[xValue])  
     } 

  function tens(xValue){
   return (aTens[xValue])
     }

  function numtowords(xamount){
     /*
      	stramt	= amount entered converted to a string
		xmax	= 12 (999 million max) minus the converted string length.
		xstramt	= actual dollars amount without decimal places.
		str1..4	= break down of actual string		
	
	 */

     var stramt = ""+xamount
     var xstramt=''
     var xstr=""

    // if a decimal place is not given, then add it.
    if (stramt.indexOf(".") == -1)
        stramt=stramt+'.00'
	if (stramt.indexOf(".") != -1) {//Agrega cero si no esta
        dec=stramt.substring(stramt.indexOf(".")+1,stramt.length)
		if (dec.length<2) stramt=stramt+'0'
		}
     var xmax= 12 - stramt.length
     // preceed the string with zero fillings to 12 characters (999 million maximum)
     for (c=1; c <= xmax; c++){
            xstramt += '0'
            }
     stramt=xstramt+stramt   
  
     xstramt=stramt.substring(0,9)
  
     str1= stramt.substring(0,3)
	 str2= stramt.substring(3,6)
	 str3= stramt.substring(6,9)
     str4= stramt.substring(10,12)

     // if millions add label y reduce the remaining string length.
     if (xstramt.length >=7){    
 		xstr_=numwords(str1)
        if (xstr_.length >= 3) {
					mest=" millones "
					if (str1==1) { xstr_='un'; mest=' millón ';}
		        	xstr+=xstr_+mest
					}
        xstramt=xstramt.substring(3,9)   
	    }

  	 // if thousands add label y reduce the remaining string length.
	 if (xstramt.length >= 4){
        xstr_=numwords(str2)
		if (xstr_.length >= 3) {
           mest=" mil "
					if (str2==1) { xstr_=' '; mest=' mil ';}
		   xstr+=xstr_+ mest
		   }
        xstramt=xstramt.substring(6,9)   
        }

  	 // hundreds or tens
	 if (xstramt.length <= 3){
		xstr_=numwords(str3,1)
		if (str3==500) xstr_='quinientos';
		if (str3==900) xstr_='novecientos';
        xstr+=xstr_+' '
 		}  
		mda=' pesos '
 	if (sf.MONEDA[1].checked==true) { 
			mda=' dólares '
			}
     xstr+=mda +str4+'/100'				// optional if cents x/100.
     //xstr+='y '+gettens(str4)+' centavos'  // optional if cents to be words.
     return (xstr)
    }


   function numwords(xstr,nv){
     xhund =gethund(xstr.substring(0,1))
     xtens =gettens(xstr.substring(1,3),nv)
     xwords=xhund
     if (xtens.length > 3)
        xwords+=" "+xtens
     return (xwords);
     }

 function gettens(xValue,nv){

	  /*  This function accepts a two string parameter i.e.  "90", "12", "32" etc...

 		  xval_ = the first character.
	  	  _xval = the second character.
		
	  */
      xval_ =xValue.substring(0,1);
      _xval =xValue.substring(1,2);   

      if (xval_ == '1' && _xval != '0')
         xnum=teens(_xval)
	yvar=' '
      if (xval_ == '1' && _xval == '0')
		xnum="diez"
		
		
if (nv='1' ) yvar=' y '
if (xval_ == '0' && _xval >0) 	yvar=' '

      if (xval_ != '1' && (_xval != '0' || _xval == '0')){
		 xnum=tens(xval_)
         xnum+=yvar+getunits(_xval);}

      if (xval_ == '2' && _xval != '0' ){
		 xnum='veinti'
         xnum+=getunits(_xval);}


      return (xnum) 
      }
	
  function go(){
    xvalue= prompt('Entra la cantidad','');
      
    if (xvalue >= 1)
       alert('El valor es: '+xvalue+'\n\n En letras: '+numtowords(xvalue))
    else
       alert('Cantidad mínima = $1.00: Ejecución abortada')
  }
  function letras() { //Rol 2004
  //alert(numtowords(sf.IMPORTE.value))
  if  ((isNaN(sf.IMPORTE.value)==false) && ((sf.IMPORTE.value)>1) ) {
  sf.IMPORTELETRA.value=numtowords(sf.IMPORTE.value);
  //alert(numtowords(sf.IMPORTE.value))
  }
  }
  
  function dolar() { //Rol 2004
  //alert(numtowords(sf.IMPORTE.value))
  if  ((isNaN(sf.IMPORTE.value)==false) && ((sf.IMPORTE.value)>1) ) {
  sf.IMPORTE.value
  sf.IMPORTELETRA.value=numtowords(sf.IMPORTE.value);
  //alert(numtowords(sf.IMPORTE.value))
  }
  }

 //-->
</script>
                <table border="0" cellspacing="10" cellpadding="0" align="center" class="arialsmall">
                  <tr valign="top"> 
                    <td colspan="2" class="inset"> <table border="0" cellspacing="5" cellpadding="0" class="arialsmall" width="100%">
                        <tr> 
                          <td colspan="4" class="header3">ACTUALIZAR COTIZACION 
                            (<%=request("IDRTA")%>) </td>
                        </tr>
                        <tr> 
                          <td class="header3">&nbsp;</td>
                          <td colspan="3" align="center" class="header3"> <span class="arialsmall">Estatus 
                            de Cr&eacute;dito / Cotizado(Ver)</span> </td>
                        </tr>
                        <tr> 
                          <td>Cliente </td>
                          <td valign="top"><%=(cot.Fields.Item("COMPANIA").Value)%> </td>
                          <td valign="top">&nbsp;</td>
                          <td valign="top">&nbsp;</td>
                        </tr>
                        <%' Fin de cotizaciones diferentes %>
                      </table></td>
                  </tr>
                  <tr> 
                    <td colspan="2"> <table width="450" align="center" class="arialsmall">
                        <tr valign="baseline"> 
                          <td height="26" align="right" nowrap>IMPORTE:</td>
                          <td> <input name="IMPORTE" type="text" class="arialsmall" onKeyUp="letras();" value="<%=(cot.Fields.Item("IMPORTE").Value)%>" size="32"> 
                          </td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right">CANT:</td>
                          <td> <%=(cot.Fields.Item("CANT").Value)%> &nbsp; <%ca=(cot.Fields.Item("TIPOPER").Value)
						  select case ca
						  case 1 
						  response.Write("DIAS")
						  case 2 
						  response.Write("SEMENAS")
						  case 3 
						  response.Write("MESES")
						  end select %> </td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right">IMPORTELETRA:</td>
                          <td>&nbsp; </td>
                        </tr>
                        <tr valign="baseline"> 
                          <td colspan="2" align="right" nowrap><input name="IMPORTELETRA" type="text" class="arialsmall" value="<%=(cot.Fields.Item("IMPORTELETRA").Value)%>" size="100"></td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right">&nbsp;</td>
                          <td><input <%If (CStr((cot.Fields.Item("MONEDA").Value)) = CStr("pesos")) Then Response.Write("CHECKED") : Response.Write("")%> name="MONEDA" type="radio" onClick="acttar();" value="pesos" disabled>
                            Pesos 
                            <input <%If (CStr((cot.Fields.Item("MONEDA").Value)) = CStr("dolar")) Then Response.Write("CHECKED") : Response.Write("")%> name="MONEDA" type="radio" onClick="acttar();" value="dolar" disabled>
                            D&oacute;lares(<%=(valco.Fields.Item("DOLAR").Value)%>)</td>
                        </tr>
                        <tr valign="baseline">
                          <td nowrap align="right">Raz&oacute;n de Modificaci&oacute;n</td>
                          <td><textarea name="RAZONMOD" cols="50" rows="5" class="arialsmall" id="RAZONMOD"><%=(cot.Fields.Item("RAZONMOD").Value)%></textarea></td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right">Fecha Autorizacion</td>
                          <td><%=(cot.Fields.Item("FAUTHO").Value)%></td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right">Autorizo</td>
                          <td><%=(cot.Fields.Item("AUTH").Value)%>&nbsp</td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right"> <input name="AUTH" type="hidden" id="AUTH" value="<%=Session("MM_Username") %>"> 
                            <input name="FAUTHO" type="hidden" id="FAUTHO" value="<%=DATE() %>"></td>
                          <td> <input name="Submit" type="submit" class="arialsmall" value="Guardar" onClick="acttar();"> 
                          </td>
                        </tr>
                      </table></td>
                  </tr>
                  <tr> 
                    <td colspan="2">&nbsp; </td>
                  </tr>
                  <tr> 
                    <td width="150" height="24">&nbsp;</td>
                    <td width="348"> <div align="right"> </div></td>
                  </tr>
                </table>
                <input type="hidden" name="MM_update" value="sf">
                <input type="hidden" name="MM_recordId" value="<%= cot.Fields.Item("IDRT").Value %>">
                <% END IF 'not cot.eof %>
              </form>
              <p>&nbsp;</p>
            </div>
            <div align="center"></div></td>
          <td valign="top" bgcolor="#000000">huuuuuuu</td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
<%
cot.Close()
Set cot = Nothing
%>
<%
valco.Close()
Set valco = Nothing
%>