<% Response.Buffer = True on error resume next set FSO = Server.CreateObject("Scripting.FileSystemObject") set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("ConnectionString") SQL = "SELECT CodMunicipio, UF, NomeMunicipio, NomePrefeito, Gentilico, IMGMapa, IMGFotoPrefeito, (SubString(LTrim(Str(Municipios.DataFundacao)), 7, 2) + '/' + SubString(LTrim(Str(Municipios.DataFundacao)), 5, 2) + '/' + SubString(LTrim(Str(Municipios.DataFundacao)), 1, 4)) as expDataFundacao FROM Municipios WHERE CodMunicipio = " & Request.QueryString("CodMunicipio") set RSMunicipio = Server.CreateObject("ADODB.RecordSet") RSMunicipio.Open SQL, Conn, 1, 2 SQL = "SELECT * FROM Municipios WHERE UF='" & RSMunicipio("UF") & "' ORDER BY NomeMunicipio" set RSMunicipios = Server.CreateObject("ADODB.RecordSet") RSMunicipios.Open SQL, Conn, 1, 2 SQL = "SELECT COUNT(*) as NumMensagens FROM Mural WHERE CodMunicipio = " & Request.QueryString("CodMunicipio") set RSMensagens = Server.CreateObject("ADODB.RecordSet") RSMensagens.Open SQL, Conn, 1, 2 if RSMensagens("NumMensagens") > 0 then sLabelMural = "" else sLabelMural = "Mural" end if sFolder = Application("RootPath") & "Contas\" & RSMunicipio("UF") & "\" & RSMunicipio("NomeMunicipio") & "\" %> Municipionline - O Portal dos 5.561 municípios Brasileiros

 
Compras Municipais Mural do seu Município Centro de Referência Municipal

Pesquisa por Município
    
Digite o nome de um municipio.
Selecione o Estado

Pesquisa Geral
Atualizações

 
Relação de Municipios.

- Santa Cruz Cabralia (BA)

- Planaltina (GO)

- Antônio João (MS)
- Selvíria (MS)

- Contenda (PR)
- Diamante do Sul (PR)
- Francisco Alves (PR)
- Laranjal (PR)
- Palmas (PR)
- Palotina (PR)

- Araçariguama (SP)
- Flórida paulista (SP)
- Iaras (SP)
- Ipuã (SP)
- Lagoinha (SP)
- Lavínia (SP)
- Pedrinhas Paulista (SP)
- Platina (SP)
- Presidente Bernardes (SP)
- Santo Antônio da Alegria (SP)
<% set FSO = Nothing RSMunicipio.Close : set RSMunicipio = Nothing RSMunicipios.Close : set RSMunicipios = Nothing RSMensagens.Close : set RSMensagens = Nothing Conn.Close : set Conn = Nothing %>