<% 'Define o conteúdo ref. a página varPagina = "Localização" %> <% set rsTextos = server.CreateObject("adodb.recordset") SQL = "Select * from tbl_textos where menu = '"&varPagina&"' and aprovado = 'Sim' order by codigo DESC" rsTextos.open SQL, Conn if rsTextos.bof and rsTextos.eof then else varTexto = rsTextos.fields("texto") end if rsTextos.close set rsTextos = nothing %> <% set rsContato = server.CreateObject("adodb.recordset") SQL = "Select * from tbl_Contato where menu = 'Fale Conosco' and aprovado = 'Sim' order by codigo DESC" rsContato.open SQL, Conn if rsContato.bof and rsContato.eof then varEmailContato = "12343243243242" else varEndereco = rsContato.fields("endereco") varEmailContato = rsContato.fields("email") if varEmailContato = "" then varEmailContato = "12343243243242" end if varMapa = rsContato.fields("maps") end if rsContato.close set rsContato = nothing %>
<%=varTexto%>
<%if varMapa <> "" then%>
<%=varMapa%>
<%end if%>
<%=varEndereco%>