<%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%> Commercial Name "> Social Name "> R.F.C. "> Street "> City <% 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 cierrars2eng()%> Estate "> Country <% 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%>><%=rs2eng("country_name")%> <% rs2eng.movenext loop cierrars2eng()%> C.P. "> Contact "> Phone 1 "> Phone 2 "> Fax "> Email "> Web page "> Expiration "> Payment "> Markup ">% Bank "> Other Bank "> Branch "> Account Pesos "> Account Dolar "> CLABE Pesos "> CLABE Dolar ">

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