<%
Call AbreConexao()
Dim titHome, txtHome
Set Tabela=Conexao.Execute("SELECT titulo,descricao FROM tbl_texto WHERE codigo=1")
If Not(Tabela.BOF Or Tabela.EOF) Then
titHome=Tabela.Fields("titulo")
txtHome=Tabela.Fields("descricao")
End If
Call FechaConexao()
%>
ARLS Libertas 35 - Home
Carregando... Por favor espere até que esta página seja carregada por completo.
<%=titHome%>
<%=txtHome%>
<%
Call AbreConexao()
Tabela.CursorLocation=3
Tabela.Open "SELECT arquivo,url,target FROM tbl_banners USE INDEX(tipo) WHERE flag='C'"
If Tabela.BOF Or Tabela.EOF Then
Response.Write ""
Else
%>
<%
'Iniciando variável contador e loop para exibir em colunas
i = 1
Do While Not Tabela.EOF
%>
