<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("BA")
sqlmenu = "SELECT id, link, pos FROM menu ORDER BY pos"
set rsquery = conn.execute(sqlmenu)
while not rsquery.eof
response.write " | " & rsquery("link") & " | "
rsquery.movenext
wend
%><%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("BA")
sqlmenu = "SELECT id, link, pos FROM menu ORDER BY pos"
set rsquery = conn.execute(sqlmenu)
while not rsquery.eof
response.write " | " & rsquery("link") & " | "
rsquery.movenext
wend
%>
|
|
|
|
Visitante nº
desde Agosto/2001
|
|
Banco Rio de Alimentos
"Não precisa estar bonito, basta estar bom". É essa a regra que está evitando o desperdício e pondo comida na mesa de quem precisa. Os doadores separam o que pode ser doado e tudo o que é recebido pelo Banco, a Nutricionista faz uma nova seleção e os gêneros são distribuídos a creches, abrigos para idosos, casas de apoio para crianças com câncer e aids, enfim, a toda e qualquer instituição social que tenha condições de receber os alimentos.
|
|
|
Formulário para ser um doador
|
|
|
|
|
|
|
