<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Macae Jornal On Line  
<% Set objRS = Server.createobject("ADODB.Recordset") sql = " select * from tb_cat_materia order by nome" 'response.Write(sql) 'response.End() objrs.open sql, objconn %>
<% Set rsprop2 = Server.createobject("ADODB.Recordset") sqlprop2 = " select * from tb_propaganda WHERE tipo='2' order by cd_propaganda desc " 'response.Write(sql) 'response.End() rsprop2.open sqlprop2, objconn while not rsprop2.eof %> <%if rsprop2("nome") <> "SEMFOTO.GIF" then%> <%end if%> <%rsprop2.movenext%> <%wend%>
 
 
 
Parceiros
..................
 
 
 
 		 <% Set objRSbannercapa = Server.createobject("ADODB.Recordset") sql = " select top 1 * from tb_banner where bannercapa = true order by cd_banner desc" 'response.Write(sql) 'response.End() objRSbannercapa.open sql, objconn if not objRSbannercapa.eof then nome = objRSbannercapa("nome") url = objRSbannercapa("url") %> <%if (nome) <> "SEMFOTO.GIF" then%> PUBLICIDADE
<%end if%> <%end if%> <% Set objRS9 = Server.createobject("ADODB.Recordset") sql9 = " select * from tb_materia WHERE cd_cat_materia = 74 order by cd_materia desc " 'response.Write(sql) 'response.End() objrs9.open sql9, objconn if not objrs9.eof then titulo = objrs9("titulo") descricao = objrs9("descricao") cd_materia = objrs9("cd_materia") foto = objrs9("foto") %> <%if (foto) <> "SEMFOTO.JPG" then%><%end if%> <%end if%> <% Set objRS2 = Server.createobject("ADODB.Recordset") sql2 = " select * from tb_materia WHERE cd_cat_materia = 39 order by cd_materia desc " 'response.Write(sql) 'response.End() objrs2.open sql2, objconn if not objrs2.eof then titulo = objrs2("titulo") descricao = objrs2("descricao") cd_materia = objrs2("cd_materia") foto = objrs2("foto") %> <%if (foto) <> "SEMFOTO.JPG" then%><%end if%> <%end if%> <% Set objRS3 = Server.createobject("ADODB.Recordset") sql3 = " select * from tb_materia WHERE cd_cat_materia = 22 order by cd_materia desc " 'response.Write(sql) 'response.End() objrs3.open sql3, objconn if not objrs3.eof then titulo = objrs3("titulo") descricao = objrs3("descricao") cd_materia = objrs3("cd_materia") foto = objrs3("foto") %> <%if (foto) <> "SEMFOTO.JPG" then%> <%end if%> <%end if%> <% Set objRS4 = Server.createobject("ADODB.Recordset") sql4 = " select * from tb_famosos order by cd_famosos desc " 'response.Write(sql) 'response.End() objrs4.open sql4, objconn if not objrs4.eof then titulo = objrs4("titulo") descricao = objrs4("descricao") cd_famosos = objrs4("cd_famosos") conteudo = objrs4("conteudo") %> <% Set objRSfoto = Server.createobject("ADODB.Recordset") sqlfoto = " select * from tb_foto_famosos where cd_famosos = "& cd_famosos &" " objrsfoto.open sqlfoto, objconn if not objrsfoto.eof then foto = objrsfoto("nome") %> <%if (foto) <> "SEMFOTO.gif" then%> <%end if%> <%end if%> <%end if%> <% Set objRS5 = Server.createobject("ADODB.Recordset") sql5 = " select * from tb_materia WHERE cd_cat_materia = 28 order by cd_materia desc " 'response.Write(sql) 'response.End() objrs5.open sql5, objconn %> <% if not objrs5.eof then %>
 
<%=titulo%>
 <%=descricao%>

|DETALHES|
 
<%=titulo%>
 <%=descricao%>

|DETALHES|
<%=titulo%>
 <%=descricao%>

|DETALHES|
<%=titulo%>
<%=descricao%>
|DETALHES|
<%if objrs5("foto") <> "SEMFOTO.gif" then%> <%end if%> <%end if%>
" width="150">
 
<%=objrs5("titulo")%>
 <%=objrs5("descricao")%>

&codigo=28">|DETALHES|		  
     
<% Set rsprop = Server.createobject("ADODB.Recordset") sqlprop = " select top 2 * from tb_propaganda WHERE tipo = '1' order by cd_propaganda desc " 'response.Write(sql) 'response.End() rsprop.open sqlprop, objconn %> <%while not rsprop.eof%><%if rsprop("nome") <> "SEMFOTO.gif" then%> <%end if%> <%rsprop.movenext%> <%wend%>
............................................................................................................................
Parceiros
............................................................................................................................
 
<% Set objRScapapdf = Server.createobject("ADODB.Recordset") sql = " SELECT TB_pdf.nome, TB_banner.nome as nomefoto, TB_banner.cd_pdf FROM TB_banner INNER JOIN TB_pdf ON TB_banner.cd_pdf = TB_pdf.cd_pdf where capapdf = true order by cd_banner desc" 'response.Write(sql) 'response.End() objRScapapdf.open sql, objconn if not objRScapapdf.eof then nome = objRScapapdf("nomefoto") arq = objRScapapdf("nome") %> <%if (nome) <> "SEMFOTO.GIF" then%>
<%end if%><%end if%>