<% Option Explicit %> <% Dim Conexao, rsSites, rsMax, regAtual, sqlSelect Dim NRecords, pagina, paginas, NumReg, LinkTemp, resto Call abre_conexao Set rsMax = Server.CreateObject("ADODB.Recordset") rsMax.Open "SELECT Count(*) AS NRecords FROM livro WHERE noar = true", conexao NRecords = rsMax("NRecords") rsMax.Close Set rsMax = Nothing If Request.QueryString("pagina") <> "" Then pagina = Request.QueryString("pagina") End If If pagina = "" Then pagina = 1 End If If pagina < 1 Then Response.Write "Erro 69" Response.Write "Volte para a página inicial!" Response.End End If NumReg = 10 * (pagina - 1) sqlSelect = "SELECT hora, nome, cidade, pais, hospede, email, comentario, resposta, ativare, foto, legenda FROM livro WHERE noar = true ORDER BY codlivro DESC" Set rsSites = Conexao.Execute(sqlSelect) resto = NRecords mod 10 If resto > 0 Then paginas = int(NRecords / 10) + 1 Else paginas = NRecords / 10 End If pagina = pagina +1 %>

DEPOIMENTOS & FOTOS Deixe o seu depoimento ou envie sua foto clicando aqui! Pousada Tayluz Página <%= int(pagina) -1 %> de <%= paginas %> Total de depoimentos: <%=NRecords%> <% If NumReg > 0 Then For LinkTemp = 1 to NumReg If rsSites.EOF = False Then rsSites.MoveNext Next End If regAtual = 1 Dim vResp While Not rsSites.EOF AND regAtual <= 10 %> <% vResp = rsSites("resposta") If vResp <> "" Then %> <% End If %> De: <%=rsSites("nome")%> Data: <%=rsSites("hora")%> <%If rsSites("foto") <> "" Then%> .jpg" rel="lightbox[bla]" title="<%=rsSites("legenda")%>"> <%End If%>Mensagem: <%=rsSites("comentario")%> Resposta Tayluz: <%=vResp%> <% rsSites.MoveNext NumReg = NumReg + 1 regAtual = regAtual + 1 Wend %> <% For LinkTemp = 1 to paginas %> <% Next %> São <%= paginas %> páginas com depoimentos: "> <% If LinkTemp <> int(pagina) -1 Then %> <%=LinkTemp%> <% Else %> <%=LinkTemp%> <% End If %>

Pousada Tayluz - Contato - (22) 2622-4310 - (22) 9995-9141 - Nextel: 122*52600 Rua José Pinto de Macedo n° 270 - Prainha - Arraial do Cabo (RJ) Cep: 28930-000

<% rsSites.Close Set rsSites = Nothing Call fecha_conexao %>