<% sub form_cidade(name,param,att) 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" set rs_form_cidade = cn_form_cidade.execute("select cidade, estado, sistema from cidade order by estado, cidade") response.Write("") if (param <> "") then response.Write(""¶m&"") else response.Write("Selecione") end if if (isNull(param) or param = "") then param = 0 while not rs_form_cidade.eof if rs_form_cidade("sistema") then response.Write("") else response.Write("" & rs_form_cidade("cidade") & " (" & rs_form_cidade("estado") & ") " & "") end if 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 end sub %>