<% dim cod, cod_tipo, tip, tipo ban = replace(request.querystring("ban"), "'", "''") cod = replace(request.querystring("cod"), "'", "''") Set Conexao = Server.CreateObject("ADODB.Connection") DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" DSNName = DSNName & Server.MapPath("simulador.mdb") Conexao.Open DSNName PESQBANCO = "SELECT * FROM bancos where cod_banco = " & ban & "" Set Recset = Server.CreateObject("ADODB.RecordSet") Recset.open pesqbanco, conexao banco=recset("banco") PESQLINHA = "SELECT * FROM simulacao where cod_simu = " & cod & "" Set Recset = Server.CreateObject("ADODB.RecordSet") Recset.open pesqlinha, conexao linha=recset("linha") tempo=recset("tempo") juros=recset("juros") referencial=recset("referencial") fgpc=recset("fgpc") valor_flag=recset("valor_flag") carencia_flag=recset("carencia_flag") juros_flag=recset("juros_flag") referencial_flag=recset("referencial_flag") amortiza_flag=recset("amortiza_flag") fgpc_flag=recset("fgpc_flag") tjlpjuros_flag=recset("tjlpjuros_flag") totalamortiza_flag=recset("totalamortiza_flag") select case(tempo) case 3 selec1="selected" case 6 selec2="selected" case 12 selec3="selected" end select %> Simulador de Financiamento :: <%=banco%> - <%=linha%>

Valor Financiamento

<%=replace(valor_flag, vbCrLf, "
")%>


<%=banco%> - <%=linha%>

Valor Financ.
 
Prazo Carência (Meses)
Prazo Amortização (Meses)
Taxa Juros

%a.a.
 

  		 
Os resultados apresentados aqui são apenas de referência, pois considera-se a TJLP constante durante o prazo de financiamento e as condições operacionais poderão ser alteradas pelo(a) <%=banco%>