<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Response.Buffer = True%> <%Call cadmail()%> .:: Quality Tour ::. <%Call topoJava()%> <%Call Scroll()%> <%Call MenuJava()%>
<%Call Topo()%>
<%Call ColunaESQ()%>
<%Call ColunaDIR()%>
 

<% Dim cod If (Request.QueryString("cod") <> "") Then cod = "WHERE CodNoticia = " & Request.QueryString("cod") & "" else cod = "ORDER BY CodNoticia DESC" End If %> <%Call banco(cn) Set RsNotc = server.CreateObject("ADODB.RecordSet") StrSQLNotc = "SELECT * FROM tbNoticias " & cod & "" RsNotc.Open (StrSQLNotc), Cn%> <%while not RsNotc.EOF and valor < 4%> <% if trim(RsNotc("PathFoto")) <> "" then %>

  " height="95" align="absmiddle"> <%=RsNotc("tituloNoticia")%>
<%=RsNotc("textoNoticia")%>
Fonte: <%=RsNotc("fonteNoticia")%>
  
<% else %>
  <%=RsNotc("tituloNoticia")%>
<%=RsNotc("textoNoticia")%>
Fonte: <%=RsNotc("fonteNoticia")%>
  
 
<% end if %> <% valor = valor + 1 RsNotc.MoveNext Wend %>