% '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
%>
<%if varMapa <> "" then%>
<%end if%>
|
<%=varEndereco%> |