|
| |
<% strQuery = "SELECT * FROM tnoticias WHERE codempresa='6' AND empresamandes='Manchete' and visualizacao='Externamente'"
Set ObjRs = objConn.Execute(strQuery)
while not ObjRs.eof%>
<%if objRS.fields("imagens").value ="Sim" then%>
<%end if%>
<%if objRS.fields("imagens").value ="Não" then%>
<%end if
ObjRs.movenext
wend
%>
|
|
|
|
<% strQuery2 = "SELECT top 3 * FROM tnoticias WHERE codempresa='6' AND empresamandes='Destaque' AND visualizacao='Externamente' order by datacadastro Desc,codigo Desc"
Set ObjRs2 = objConn.Execute(strQuery2)
while not ObjRs2.eof
if objRS2.fields("imagens").value ="Sim" then%>
 peq.jpg" border=0 class=borda> |
|
|
|
<%end if
if cont <= 2 then%>
|
" class="preto">
<%=mid(ObjRs2.fields("tituloprimario").value,1,70)&" ..."%>
|
|
|
|
<%end if
cont = cont+1
ObjRs2.movenext
wend
%>
|
