Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

FaustiniJr

[Resolvido] Listagem de Clientes em ASP

Por , em ASP Clássico

Recommended Posts

FaustiniJr    0

FaustiniJr
Postado

É o seguinte galera, estou fazendo um código em ASP para apresentação de clientes, só que quero que, do total de clientes pesquisados no BD, ele me mostre um número x por página, onde me exibe uma listagem de páginas e ao percorrer por essas páginas, vejo o restante dos clientes. Outra coisa, é a formatação desses resultados, não estou conseguindo incluir imagens, vou colocar o código aqui, talvez fique mais fácil para vocÊs entenderem o que quero fazer...

 

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Clientes Playlist</title>

<!-- Função que consulta os estados no BD -->
<%
//DADOS BD
host	="servidor"
usuario	="clientes"
senha	="***"
banco	="clientesList"

//CONEXÃO AO BD
set conexao =Server.CreateObject("Adodb.Connection")
conexao.ConnectionString ="ODBC;DSN=SQL;Driver=SQL Server;Server=servidor;uid=clientes;pwd=***;database=clientesList"
conexao.Open

//CONSULTA AO BD
set rs =conexao.execute("SELECT * FROM clientes")

'******* Inicializa Variaveis
ini = int(ini)
if ini <= 0 then ini = 1 end if
reg = 0
npg = 6
pgt = ini - 1
voltar = "Voltar"

'******* Consulta e Exibe Resultados
do while not rs.eof
reg = reg + 1
if rs("site") <> "" then
   site = " - <a href='http://" & rs("site") & "'>[Site]</a>"
   else
   site = " - [Site]"
end if
if reg >= ini AND reg <= ini+npg-1 then
pgt = pgt + 1
radios = radios & "<p><font face='Tahoma' style='font-size: 9pt'>" & "<strong>" & rs("radio") & "</strong>" & site & "</p>" & "<p>" & rs("cidade") & ", " & rs("estado") & " - " & rs("pais") & "</font></p><br />"
end if

 rs.movenext
 loop
 if reg > ini+npg-1 then
   proximo = " <a href='teste.asp?ini=" & ini + npg & "'> [ Próximos ]</a>"
   else
   proximo = " [ Próximos ]"
 end if
 if ini-npg > 0 then
   voltar = " <a href='teste.asp?ini=" & ini - npg & "'> [ Anteriores ]</a>"
   else
   voltar = " [ Anteriores ]"
 end if

%>

</head>

<body>
<tr>
<td align="middle" bgColor="#004184" colSpan="2" width="436">
      <font face="Tahoma" style="font-size: 9pt">
            <span style="COLOR: #CEE4F5"><b>Clientes - MG</b>
            </span>
      </font>
</td>
</tr>
<% Response.Write radios %>
<font face="Tahoma" style="font-size: 9pt" color="#004184"></font>
<tr bgColor="#ffffff">
    <td width="150">
        <font face="Tahoma" style="font-size: 9pt">
              <span style="COLOR: #004184">
                    <b> Total: <% Response.Write reg %>
                    </b>
              </span>
        </font>
    </td>
    <td align="right" width="280">
        <span style="FONT-SIZE: 13px; COLOR: black">
              <% Response.Write ini & " a " & pgt & " - " & voltar & proximo %>
        </span>
        <span style="FONT-SIZE: 9pt; ">
              <font color="#004184" face="Tahoma"><br>
              </font>
        </span>
    </td>
</tr>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

Você quer é paginar os dados, olha aqui esses links e veja qual melhor se encaixa em sua aplicação!

 

http://forum.imasters.com.br/index.php?/topic/349755-paginacao-quase-igual-ao-digg-hehehehhe/

http://forum.imasters.com.br/index.php?/topic/323865-paginacao-de-outra-forma-usando-mysql/

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito