<% Response.ContentType = "text/html; charset=iso-8859-1" if Request.QueryString("estado") <> "" then filtro = " where estado = '"&Request.QueryString("estado")&"'" else response.Write("Selecione o estado") 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:\Webapp\Dominios\Esope\htdocs\sistema\cidade.mdb" set rs_form_cidade = cn_form_cidade.execute("select cidade, estado, sistema from cidade "&filtro&" order by cidade") response.Write("") if (param <> "") then response.Write(""¶m&"") else response.Write("Selecione a cidade") end if if (isNull(param) or param = "") then param = 0 while not rs_form_cidade.eof response.Write("" & rs_form_cidade("cidade") & " " & "") rs_form_cidade.MoveNext wend response.Write("") cn_form_cidade.close 'rs_form_cidade.close set cn_form_cidade = nothing set rs_form_cidade = nothing %>