<!--#include file="js/conexao.asp"-->
<script src="js/open.js"></script>
<%
ed = Cint(Request.QueryString("ed"))
pAtual = Cint(Request.QueryString("pAtual"))

'set rs = db.execute("SELECT * FROM sergio_paginas WHERE edicao = '"&ed&"' and pagina ='"&pAtual&"'")
sql = "SELECT * FROM sergio_paginas WHERE edicao = '"&ed&"'"

if (ed = "") or (isnull(ed)) or (ed <= 0) then
    ed = db.Execute("SELECT COUNT(edicao) FROM sergio_edicao").Fields(0).Value
    pAtual = 1
end if

fimRegistros = 1 'Total de registros por pagina
intMaxLinksNavegacao = 6 ' Total de links exibidos na tela
If pAtual =  "" Or pAtual <= 0 Or isnull(pAtual) Then
    pAtual = 1
End If
' Diz ao MySQL o inicio do filtro de linhas.
' Inicialmente vamos iniciar da linha Zero
cdblMat = pAtual -1
intInicioPaginasRegistros = cdblMat * fimRegistros
iTotalReg = db.Execute("SELECT COUNT(edicao) FROM sergio_paginas WHERE edicao = '"&ed&"'").Fields(0).Value ' Pega o total de registros do banco
'''Funcao para arredondar numero real só para cima
Function arredCima(y)
    If y > int(y) Then
    arredCima = int(y)+1
    Else
    arredCima = y
    End If
End Function
' Cálculo para ver o total de páginas que terá a paginação.
If Cint(iTotalReg) > CInt(fimRegistros) Then
   iTotalPaginas = arredCima(Cint(iTotalReg) / Cint(fimRegistros))
Else
   iTotalPaginas = 1
End If
sLink = "edicao_paginas.asp?ed="&ed&""
' Certifica-se de que a pagina atual nunca será maior que o total de paginas
If Cint(pAtual) > iTotalPaginas Then
   pAtual = iTotalPaginas
End If
' Configura o intInicioPaginas e o fim dos registros no banco
sql = sql & " limit " & intInicioPaginasRegistros & "," & fimRegistros
set rs = db.execute(sql)

if rs.eof or rs.bof Then
    pAtual = 1
    ed = db.Execute("SELECT COUNT(edicao) FROM sergio_edicao").Fields(0).Value
    response.Redirect"edicao_paginas.asp?ed="&ed
else

response.Write("<h2>Edição "&rs("edicao")&"</h2>")
response.Write("<span style='font: 10px Verdana, Geneva, sans-serif; color:#999'>"&rs("data")&" por <i>"&rs("postado_por")&"</i></span>")
response.Write("<h1>"&rs("cabecario")&"</h1>")
response.Write("<span style='font: 12px Verdana, Geneva, sans-serif;'>")
    if not isnull(rs("imagem")) then
        response.Write("<img class='aligncenter' title='Capacitar01' src='"&rs("imagem")&"'><br />")
    end if
    response.Write(rs("conteudo"))
response.Write("</span><br/>")
    if not isnull(rs("fonte")) then
response.Write("<br/><span style='font: 12px Verdana, Geneva, sans-serif;'>Fonte: <a href='"&rs("fonte")&"'>"&rs("fonte")&"</a></span><br />")
    end if
end if 'if da condição de existencia
%>

<br/><br/><br/>Páginas
<div id="paginacao">
<%
''' =========================================================
''' Iniciamos a Paginação
''' =========================================================
''' Botões Primeira e Anterior. Só serão exibidos
''' se a página atual não for a primeira página
If pAtual > 1 Then
        Response.Write " <a href='"& sLink &"&pAtual=" & 1 & "#conteudo' class='link2'><div id='pg'><center><<</center></div></a>"
        Response.Write " <a href='"& sLink &"&pAtual=" & pAtual - 1 & "#conteudo' class='link2'><div id='pg'><center><</center></div></a>"
End If
''' Configura o intInicioPaginas e o fim dos registros para consulta ao banco
intervalo = Int(intMaxLinksNavegacao / 2)
intInicioPaginas = pAtual - intervalo
intFinalPaginas = pAtual + intervalo
''' Se o intInicioPaginas for menor que 1 passa seu valor para 1
If CInt(intInicioPaginas) < 1 Then
        intInicioPaginas = 1
        intFinalPaginas = intMaxLinksNavegacao
End If
''' Garante que a última página nao vai ser maior que o total
''' de páginas calculado para a consulta
If CInt(intFinalPaginas) > CInt(iTotalPaginas) Then intFinalPaginas = iTotalPaginas
    If intFinalPaginas > intMaxLinksNavegacao Then  intFinalPaginas = intFinalPaginas - 1
''' Começa a escrever os links na tela
        For i = intInicioPaginas To intFinalPaginas
            If CInt(i)=CInt(pAtual) Then
                Response.Write "<a href='#conteudo' class='link2'><div id='pgAtual'><center> "& i &" </center></div></a>"
            End If
            If CInt(i) < CInt(pAtual) Then
                Response.Write "<a href='"& sLink &"&pAtual=" & i & "#conteudo' class='link2'><div id='pg'><center> "& i &" </center></div></a>"
            End If
            If CInt(i) > CInt(pAtual) Then
                Response.Write "<a href='"& sLink &"&pAtual=" & i & "#conteudo' class='link2'><div id='pg'><center> "& i &" </center></div></a>"
            End If
        Next
''' Botões Próxima e Última página. Só serão exibidos
''' se a página atual nao for a última página
If CInt(pAtual) < CInt(iTotalPaginas) Then
        Response.Write " <a href='"& sLink &"&pAtual=" & pAtual + 1 & "#conteudo' class='link2'><div id='pg'><center>></center></div></a>"
        Response.Write " <a href='"& sLink &"&pAtual=" & iTotalPaginas & "#conteudo' class='link2'><div id='pg'><center>>></center></div></a>"
End If
%>
<br />
</div>

<% db.close %>

<script src="js/close.js"></script>