Painel de Controle

<% Set conexao =Server.CreateObject("ADODB.RecordSet") conexao.cursorlocation = 3 msql = "SELECT * FROM servicos ORDER BY codigo DESC" conexao.open msql, Conn, 3, 3 conexao.PageSize = 15 'Criamos as Validações if conexao.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>conexao.PageCount then intpagina = conexao.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> Painel de Controle

[Painel de Controle]

[Sair]

- Editar Servicos

<% 'Iniciamos o Loop conexao.AbsolutePage = intpagina intrec = 0 While intrec <% conexao.MoveNext intrec = intrec + 1 if conexao.eof then response.write " " end if Wend %>

<%= conexao("codigo") %> -

<%= conexao("titulo") %>

">Inserir Foto | ">Editar

<% 'Criamos as Validações para a navegação "Anterior" e "Próximo" if intpagina>1 then %> Anterior <% end if if StrComp(intpagina,conexao.PageCount)<>0 then %> | Próximo <% end if conexao.close Set conexao = Nothing %>