<% set c = server.createObject("adodb.connection") c.open "provider=microsoft.jet.oledb.4.0; data source = C:\Leonardo\Clientes\iPeso\Aplicativo\cidade.mdb" set r = c.execute("select * from cidade where uf in ('17', '18', '1','5')") while not r.eof %> <% = r("descricao") %> - <% = r("uf") %> <% set r2 = c.execute("select uf from uf where iduf = '"&r("uf")&"'") %> - <% = r2("uf") %> <%' c.execute("update cidade set estado = '"&r2("uf")&"' where uf = '"&r("uf")&"'") %>
<% r.movenext : wend%>