<%On Error resume next esnuevo=request("nuevo") %> NEW CONTRATO   Code <% if esnuevo="Si" then AbreBD("use cancuntipscom; SELECT COUNT(cntrts_clave_proveedor) AS Cuantos FROM contratos") if not rs.eof then num_count=rs("Cuantos") end if num_registros = num_count%> <% else clave=request("cntrts_clave_proveedor") AbreBD("select * from contratos where cntrts_clave_proveedor='"&clave&"'")%> " readonly="yes"><% end if cierrars()%> Nombre Comercial "> Nombre Social "> R.F.C. "> Dirección "> Ciudad <% AbreBD("Select DISTINCT(id), name from contratos_ciudades order by name")%> <% do while not rs.eof %> " <%if cInt(Request("cntrts_ciudad")) =cInt(rs("id")) then%> selected <%end if%>><%=rs("name") %> <% rs.movenext loop cierrars()%> Estado <% AbreBD("Select DISTINCT(idestado), estado from contratos_estados order by estado")%> <% do while not rs.eof %> " <%if cInt(Request("cntrts_estado")) =cInt(rs( "idestado")) then%> selected <%end if%>><%=rs("estado")%> <% rs.movenext loop cierrars()%> País <% AbreBD2eng("Select DISTINCT(country_code),country_name from countries order by country_name")%> <% do while not rs2eng.eof %> " <%if rs2eng("country_code")="MX" then%> selected<%end if%>><%=escape(rs2eng("country_name"))%> <% rs2eng.movenext loop cierrars2eng()%> C.P. "> A quien contactar "> Telefono 1 "> Telefono 2 "> Fax "> Email "> Página web "> Expiración " type="text" size="10" class="article_text" readonly> Método de pago "> Porcentaje ">% Banco <% AbreBD("Select DISTINCT(idbanco), banco from contratos_bancos order by idbanco")%> <% do while not rs.eof %> " <%if cInt(Request("cntrts_bank")) =cInt(rs( "idbanco")) then%> selected <%end if%>><%=rs("banco")%> <% rs.movenext loop cierrars()%> Otro Banco "> Sucursal "> Cuenta en Pesos "> Cuenta en Dolar "> CLABE Pesos " onKeyDown="textCounter(this,document.getElementById('remLen'),18);" onKeyUp="textCounter(this,document.getElementById('remLen'),18);"> caracteres CLABE Dolares " onKeyDown="textCounter(this,document.getElementById('remLeng2'),18);" onKeyUp="textCounter(this,document.getElementById('remLeng2'),18);"> caracteres

<% If (err.number > 0) then If Error <>0 then Response.Write err.Description response.End() end if End if %>