Guest User

Untitled

a guest
Apr 17th, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 0.65 KB | None | 0 0
  1. <!--#include file="js/conexao.asp"-->
  2. <script src="js/open.js"></script>
  3. <% 
  4.     ed = Cint(Request.QueryString("ed"))
  5.    
  6. if (ed = "") or (isnull(ed)) or (ed <= 0) then
  7.     ed = Cint(db.Execute("SELECT COUNT(edicao) FROM sergio_edicao").Fields(0).Value)
  8. end if
  9.    
  10.     set rs = db.execute("SELECT * FROM sergio_carta_leitor where edicao = '"&ed&"'")
  11.    
  12.     if rs.eof or rs.bof then
  13.         response.Write "<h1>Carta ao leitor</h1>"
  14.         response.Write "<h3>Essa p&aacute;gina n&atilde;o existe.</h3>"
  15.     else
  16.         response.Write "<h1>Carta ao leitor</h1>"
  17.         response.Write "<h3>"&rs("cabecario")&"</h3>"
  18.         response.Write rs("texto")
  19.     end if
  20. %>
  21. <script src="js/close.js"></script>
Add Comment
Please, Sign In to add comment