<%
Response.ContentType = "text/html; charset=iso-8859-1"
if Request.QueryString("estado") <> "" then
filtro = " where estado = '"&Request.QueryString("estado")&"'"
else
response.Write("")
response.End()
end if
set cn_form_cidade = server.createObject("adodb.connection")
' cn_form_cidade.open "provider=microsoft.jet.oledb.4.0; data source = C:\Leonardo\Clientes\iPeso\Aplicativo\cidade.mdb"
db_open()
sql = "select * from CF_cidade "&filtro&" order by nome"
'response.Write(sql) : response.End()
set rs_form_cidade = con.execute(sql)
response.Write("")
set cn_form_cidade = nothing
set rs_form_cidade = nothing
%>