<% ' #### Banner com Flash ####
Dim objRS,SQL,SQL_flash,objRS_flash,out_link,url
Set objRS_flash = Server.CreateObject("ADODB.Recordset")
SQL_flash = "SELECT * FROM tbOutdoor"
objRS_flash.cursortype = adOpenForwardOnly
objRS_flash.locktype = adLockOptimistic
objRS_flash.cursorlocation = adUseClient
objRS_flash.open SQL_flash,objConn
out_link = Trim(objRS_flash("out_link"))
%>
<% ' #### Noticias ####
Dim new_codigo,new_titulo,new_lead,new_conteudo,new_foto_index,new_status,cor_linha,cont,n
Set objRS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT TOP " & top_new & " * FROM tbNews WHERE new_status = 'A' ORDER BY new_dt_inclusao DESC, new_codigo DESC"
objRS.cursortype = adOpenForwardOnly
objRS.locktype = adLockOptimistic
objRS.cursorlocation = adUseClient
objRS.open SQL,objConn
If not objRS.EOF then
While Not objRS.EOF
new_codigo = Eval(objRS("new_codigo"))
new_foto_index = Trim(objRS("new_foto_index"))
new_titulo = Trim(objRS("new_titulo"))
new_lead = Trim(objRS("new_lead"))
new_conteudo = Trim(objRS("new_conteudo"))
n = 10 'aumenta o PADDING do TD das noticias!!!
cont = cont + 1
If cont mod 2 <> 0 Then cor_linha = "#EDEDED" Else cor_linha = "#DFDFDF"
%>
<%=new_titulo%>
<%
If new_lead <> "" Then
If new_foto_index <> "" then
%>
<%=new_lead%> Leia mais!
<% Else%>
<%=new_lead%> Leia mais!
<% End If
Else
If new_foto_index <> "" then %>
<%=new_conteudo%>
<% Else
Response.Write new_conteudo
End If
End If
%>
<%
objRS.MoveNext
Wend
End If
%>
<%'Tabela Noticias - End%>
<%
objRS.Close
objRS_flash.Close
objConn.Close
Set objRS = Nothing
Set objRS_flash = Nothing
Set objConn = Nothing
%>
