<%@ language=VBScript %>
Contas Municipais
<%
Dim cdmuni, muni, tinfo, datatu
tinfo = Request.Form("info")
cdmuni = Request.Form("municipio")
If tinfo <> "" Then
Set CONEX = Server.CreateObject("ADODB.Connection")
DBpath = Server.MapPath("contgov.mdb")
CONEX.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+DBpath,"",""
Set DtRS = CONEX.Execute("SELECT dt_ult_atu FROM DBO_DATA_ATU")
datatu = DtRS("dt_ult_atu")
CONEX.Close
Select Case tinfo
Case "RE" Response.Write("")
Case "DE" Response.Write("")
Case "BP" Response.Write("")
Case "LR" Response.Write("")
Case "TO" Response.Write("")
End Select
End If
Set CONEX = Server.CreateObject("ADODB.Connection")
DBpath = Server.MapPath("contgov.mdb")
CONEX.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+DBpath,"",""
Set RS = CONEX.Execute("SELECT * FROM DBO_MUNICIPIOS WHERE cd_municipio <> '001' ORDER BY nm_municipio")
%>