<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> :: HEBRON :: <% Call abre() Set pesquisa_classe = Server.CreateObject("ADODB.Recordset") sql_classe = "select * from classe" pesquisa_classe.open sql_classe,conexao,3,3 var_id_cidade = request.QueryString("id_cidade") if trim(var_id_cidade) = "" then var_id_cidade = "0" end if Set pesquisa_bairro = Server.CreateObject("ADODB.Recordset") sql_bairro = "select * from bairro where id_cidade="&var_id_cidade pesquisa_bairro.open sql_bairro,conexao,3,3 Set pesquisa_cidade = Server.CreateObject("ADODB.Recordset") sql_cidade = "select * from cidade" pesquisa_cidade.open sql_cidade,conexao,3,3 Set pesquisa_estado = Server.CreateObject("ADODB.Recordset") sql_estado = "select * from estado" pesquisa_estado.open sql_estado,conexao,3,3 Set pesquisa_tipo = Server.CreateObject("ADODB.Recordset") sql_tipo = "select * from tipo" pesquisa_tipo.open sql_tipo,conexao,3,3 %>


<% call fecha() %>