<% 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

 

 

<% set FSO = Nothing RSMunicipio.Close : set RSMunicipio = Nothing RSMunicipios.Close : set RSMunicipios = Nothing RSMensagens.Close : set RSMensagens = Nothing Conn.Close : set Conn = Nothing %>