Ir para conteúdo
Fórum Script Brasil
  • 0

Alguem Pode Me Dar Uma Idéia.

Deividy

Perguntado por Deividy,

 Share

Pergunta

3 respostass a esta questão

Posts Recomendados

  • 0
Deividy

Deividy

Postado
  • Autor
Postado

ainda bem assim posso retirar o meximo de seu conhecimento.

hehehehe

eu presciso fazer com que tudo isso se integre em um só.

dê uma olhada

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conexao.asp" -->

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=">
</head>

<body>
<table width="429" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr> 
    <td colspan="3" align="center" class="titulo"> <form action="index.asp" method="post" name="busca-txt" id="busca-txt">
        <table width="427" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="445" align="center" class="txt-form">Fa&ccedil;a uma Busca 
              por Nome de Empresa:</td>
          </tr>
          <tr> 
            <td align="center"> <input name="busca" type="text" class="campo-form" id="busca" size="30" maxlength="50"> 
              <input name="enviar" type="submit" class="botao" id="enviar" value="Buscar"> 
            </td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td height="19" align="center" class="braco-txt">Escolha pela Letra 
              Inicial da Empresa:</td>
          </tr>
          <tr> 
            <td align="center" class="titulo2">
              <%'Loop through alphabet (chars 65 to 90 are A-Z)
for alfabeto = 65 to 90%>
              <a href="busca1.asp?letra=<%=chr(alfabeto)%>"><%=chr(alfabeto)%></a>
              <%next%>
            </td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
</body>
</html>
<% 
nomepagina = "busca1.asp" 'IMPOTANTE:Coloque aqui o nome desta página.
registros = 4

  sql = "SELECT * FROM cadastro"
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open sql, conn, 3, 3

RS.CacheSize = registros
RS.PageSize = registros

If RS.Eof then
Response.Write("Nenhum registro encontrado.")

else

if Request.QueryString("pagina")="" then
pagina = 1
elseif cint(Request.QueryString("pagina"))<1 then
pagina = 1
elseif cint(Request.QueryString("pagina"))>RS.PageCount then
pagina = RS.PageCount
else pagina=Request.QueryString("pagina")
end if
end if

RS.AbsolutePage = pagina

contador = 0

While contador<registros and not RS.eof

'response.Write(RS("nomeempresa")&"-"&RS("telefone")&"-"&RS("email")&"<p>")
response.Write RS("nomeempresa")
response.Write("<br>")
RS.MoveNext

contador = contador + 1

If RS.eof then
Response.Write("")
end if

Wend

for i=1 to RS.PageCount

response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

Next
%>

Link para o comentário
Compartilhar em outros sites
  • 0
ursolouco

ursolouco

Postado
Postado

Conexao.asp

<%
	Dim Conn, cBanco, strConn

	Set Conn = Server.CreateObject("Adodb.Connection")
	cBanco = Server.MapPath("Northwind.mdb")
	strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source = "& cBanco &";"
	Conn.Open(strConn)
%>
index2.asp 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Sistema de Busca - Formulario de Pesquisa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.texto1 {
	font-family: Verdana;
	font-size: 9px;
	font-weight: bold;
	color: #000000;
	text-transform: capitalize;
}
.caixa {
	font-family: Verdana;
	font-size: 10px;
	font-weight: bold;
	color: #000099;
	background-color: #F8F8F8;
	border: 1px solid #000000;
}
.nt {
	font-family: Verdana;
	font-size: 10px;
	color: #000000;
}
table {
	border: 1px solid #333333;
}
-->
</style>
</head>

<body>
<form name="form1" method="post" action="busca2.asp">
  <table width="430" border="0" align="center" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr> 
      <td width="17" height="29">&nbsp;</td>
      <td width="397"></td>
      <td width="14"></td>
    </tr>
    <tr>
      <td height="15" colspan="3" valign="top"> <p align="center"><b><font size="2" face="Verdana">Sistema 
          de Busca - David Ramires</font></b></p></td>
    </tr>
    <tr>
      <td height="17"></td>
      <td></td>
      <td></td>
    </tr>
    <tr> 
      <td height="30" colspan="3" valign="top"> <p align="center" class="nt"><font size="2" face="Verdana">Digite 
          o nome da empresa que deseja consultar ou selecione a letra do Alfabeto 
          !</font></p></td>
    </tr>
    <tr> 
      <td height="28">&nbsp;</td>
      <td></td>
      <td></td>
    </tr>
    <tr> 
      <td height="17" colspan="3" valign="middle"> <p align="center"> 
          <input name="empresa" type="text" class="caixa" id="empresa" size="55" maxlength="70">
        </p></td>
    </tr>
    <tr> 
      <td height="23">&nbsp;</td>
      <td></td>
      <td></td>
    </tr>
    <tr> 
      <td height="30">&nbsp;</td>
      <td valign="top"> <p align="center" class="texto1"><font size="2" face="Verdana"><a href="busca2.asp?letra=A&inicio=0&fim=2">A</a> 
          | <a href="#">B</a> | <a href="#">C</a> | <a href="#">D</a> | <a href="#">E</a> 
          | <a href="#">F</a> | <a href="#">G</a> | <a href="#">H</a> | <a href="#">I</a> 
          | <a href="#">J</a> | <a href="#">K</a> | <a href="#">L</a> | <a href="#">M</a> 
          | <a href="#">N</a> | <a href="#">O</a> | <a href="#">P</a> | <a href="#">Q</a> 
          | <a href="#">R</a> | <a href="#">S</a> | <a href="#">T</a> | <a href="#">U</a> 
          | <a href="#">V</a> | <a href="#">W</a> | <a href="#">X</a> | <a href="#">Y</a> 
          | <a href="#">Z</a></font></p></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td height="21">&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td height="24" colspan="3" valign="top"> <p align="center"> 
          <input type="submit" name="Submit" value="Buscar !!!">
        </p></td>
    </tr>
    <tr> 
      <td height="18"></td>
      <td></td>
      <td></td>
    </tr>
  </table>
</form>
</body>
</html>
busca2.asp 
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conexao.asp" -->
<html>
<head>
<title>Resultado da Busca</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<style type="text/css">
<!--
.pedro {
	font-family: Verdana;
	font-size: 10px;
	color: #000000;
}
-->
</style>
</head>
<%
	Registro = 2
	Letra = CStr(Request.QueryString("Letra"))
	inicio = Request.QueryString("Inicio")
	final = Request.QueryString("Fim")

	If Not isNumeric(Inicio) Then
  Inicio = 0 
	Else
  Inicio = Cint(Inicio)
	End if

	If Not isNumeric(Final) Then
  Final = 2
	Else
  Final = CInt(Final)
	End If


	Set Rs = Server.CreateObject("Adodb.RecordSet")
	LSQL = "SELECT * FROM Fornecedores WHERE NomeDaEmpresa Like '" & Letra & "%'"
	Rs.Open LSQL, Conn, 3, 3

	If Rs.Eof Then
  Response.Write("Não há empresas cadastradas")
	Else
  Empresa = Rs.GetRows
  Rs.Close
  Conn.Close
  Set Rs = Nothing
  Set Conn = Nothing
	End if

	nColunas = UBound(Empresa, 1)
	nLinhas = UBound(Empresa, 2)

	For L = 0 To Final -1
  Response.Write(Empresa(1,L) & "<br>")
	Next  
%>
<body>
<p class="pedro"><% If Inicio => Registro Then%><a href="busca2.asp?Letra=A&Inicio=<%=Inicio - Registro %>&Fim=<%=Final - Registro%>">&lt;- 
  Voltar</a> |<%End if%> <%If Final < nLinhas Then%><a href="busca2.asp?Letra=A&Inicio=<%=Inicio + Registro %>&Fim=<%=Final + Registro%>"> Avan&ccedil;ar 
  -&gt;</a><%End if%></p>
</body>
</html>

Veja se pode lhe ajudar ?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...