<% 'Conecta ao BD banco="DBQ=d:\Inetpub\wwwroot\administracao\busca\bd\bd_geral.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set conecta = Server.CreateObject("ADODB.Connection") conecta.CursorLocation = 3 conecta.Open Banco 'Pega as localidades tabela localidades mostra = "select * from sites where localidade = 'Prado' and sessao = 'Bares e Restaurantes' and status = 'a' order by nome" set Rsresultados = conecta.execute(mostra) 'Atualiza Último acesso e Atualiza o pageview atualiza = "update sites set ultimoacesso = '" & now() & "', nviews = '" & Rsresultados("nviews")+1 & "' where id = " & Rsresultados("id") & "" 'Response.write atualiza set Rsupdate = conecta.execute(atualiza) 'Loop para adicionar as pousadas While not Rsresultados.eof Response.write "