Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <!--#include file="js/conexao.asp"-->
- <script src="js/open.js"></script>
- <%
- ed = Cint(Request.QueryString("ed"))
- artigos = 1
- noticias = 1
- if (ed = "") or (isnull(ed)) or (ed <= 0) then
- ed = Cint(db.Execute("SELECT COUNT(edicao) FROM sergio_edicao").Fields(0).Value)
- end if
- set rs = db.execute("SELECT * FROM sergio_paginas WHERE edicao = '"&ed&"'")
- ultimaEdicaoSQL = db.Execute("SELECT COUNT(edicao) FROM sergio_edicao").Fields(0).Value
- if ed = Cint(ultimaEdicaoSQL) then
- response.Write "<span style='color:#F90; font: 20px Verdana, Geneva, sans-serif;' ><b>Última Edição</b></span>"
- response.Write "<hr color='#F90' />"
- end if
- %>
- <h1>Sumário</h1>
- <h2>Edição <%=rs("edicao")%></h2>
- <hr noshade="noshade" color="#FFF" style="border: 1px #666 dotted;"/>
- <h2>A Revista</h2>
- <a href="carta_leitor.asp?ed=<%=ed%>" class="link3"><h3> • Carta ao leitor</h3></a>
- <%
- if rs.eof or rs.bof then
- response.Write("A PÁGINA NÃO EXISTE")
- end if
- Do while not rs.eof
- cabecario = rs("cabecario")
- if cInt(rs("tipo")) = 2 then
- if artigos = 1 then
- artigos = 0
- response.write "<h2>Artigos</h2>"
- response.write "<a href='edicao_paginas.asp?ed="&rs("edicao")&"&pAtual="&rs("pagina")&"' class='link3'><h3> • "&cabecario&"</h3></a>"
- else
- response.write "<a href='edicao_paginas.asp?ed="&rs("edicao")&"&pAtual="&rs("pagina")&"' class='link3'><h3> • "&cabecario&"</h3></a>"
- end if
- end if
- if cInt(rs("tipo")) = 1 then
- if noticias = 1 then
- noticias = 0
- response.write "<h2>Noticías</h2>"
- response.write "<a href='edicao_paginas.asp?ed="&rs("edicao")&"&pAtual="&rs("pagina")&"' class='link3'><h3> • "&cabecario&"</h3></a>"
- else
- response.write "<a href='edicao_paginas.asp?ed="&rs("edicao")&"&pAtual="&rs("pagina")&"' class='link3'><h3> • "&cabecario&"</h3></a>"
- end if
- end if
- rs.moveNext
- Loop
- db.close
- %>
- <script src="js/close.js"></script>
Add Comment
Please, Sign In to add comment