Ir para conteúdo

POWERED BY:

Arquivado

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

paulosls

Listar todos os registros

Por , em ASP Clássico

Recommended Posts

paulosls    0

paulosls
Postado

Caríssimos inda tô no nível 1 do ASP, tô estudando.

Quem poderia ajudar a desenrolar o meu problema?

 

Preciso colocar em uma página um form com uma caixa de busca

que quando o usúario enviar a palavra ele receba todos os registros

do banco que tenham tal palavra. A busca será feita em todos os campos de uma tabela simples, sem relacionamentos. Deu pra entender?

 

Ai em baixo tá a página pra inserir o código. Quem poderia me dar um força?

Valeu pela disposição...

 

====================================================

 

<html>

 

<head>

<link rel="StyleSheet" HREF="surveyadmin.css" type="text/css">

<title>Banco de Dados O Povo</title>

<style>

<!--

body { font-family: Verdana; font-size: 10 pt; text-align: Justify }

table { font-family: Verdana; font-size: 10 pt; text-align: Justify }

-->

</style>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

 

<body bgcolor="#FFFFFF" vlink="#000066" leftmargin="0" topmargin="0">

<% If IsEmpty(Request.Form) Then %>

<form action="<%=request("script_name")%>" method="post">

 

<table width="760" border="0" align="center">

<tr>

<td colspan="2"><div align="left"><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong><img src="image/icones_audio.jpg" width="45" height="45">:

Áudio :<font color="#999999">:</font><font color="#CCCCCC">: consultar</font></strong></font></div>

<hr width="760" color="#000000"> </td>

</tr>

<tr>

<td colspan="2"> <p><font color="#999999" size="2" face="Arial, Helvetica, sans-serif">Preencha

os campos e clique em consultar para visualizar cadastro(s).</font></p></td>

</tr>

<tr>

<td width="200" bgcolor="#AAE3FF"><font size="2" face="Arial, Helvetica, sans-serif">Busca:</font></td>

<td width="570" bgcolor="#D5F1FF"> <font size="2" face="Arial, Helvetica, sans-serif">

<input type="text" name="busca" size="30">

</font></td>

</tr>

<tr bgcolor="#AAE3FF">

<td colspan="2"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="140" height="18">

<param name="movie" value="audio_con_sequenciada.swf">

<param name="quality" value="high">

<param name="base" value=".">

<param name="bgcolor" value="#AAE3FF">

<param name="scale" value="exactfit">

<embed src="audio_con_sequenciada.swf" base="." quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" scale="exactfit" width="140" height="18" bgcolor="#AAE3FF"></embed>

</object>

</strong></font></td>

</tr>

<tr>

<td colspan="2"><font size="2" face="Arial, Helvetica, sans-serif">

<input type="submit" value="Consultar" name="submit" class="flatbutton">

<input type="reset" value="Limpar" name="clear" class="flatbutton">

<br>

</font> <hr width="760" color="#000000"> </td>

</tr>

<tr>

<td height="19" colspan="2"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><strong>

</strong></font></td>

</tr>

</table>

</form>

<% Else %>

<table width="760" border="0" align="center" cellpadding="0" cellspacing="2" bordercolor="#FFFFFF" bgcolor="#FFFFFF">

<!--DWLayoutTable-->

<%

Set cx = Server.CreateObject("adodb.connection")

cx.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database99.mdb"),"",""

 

Set rs = Server.CreateObject("adodb.recordset")

 

 

 

 

 

var_busca = request("busca")

 

 

 

sql = "Select * From Aluno "

 

rs.open sql, cx, 2, 3

 

 

 

 

 

 

 

 

If rs.eof Then

%><tr>

<td height="39" colspan="7" valign="top"><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong><img src="image/icones_audio.jpg" width="45" height="45">:

Áudio :<font color="#999999">:</font><font color="#CCCCCC">: consultar</font></strong></font>

<hr width="760" color="#000000"> </td>

</tr>

<tr bgcolor="#FFCC66">

<td height="55" colspan="7" valign="top"><b><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">Sua

pesquisa não gerou resultados...</font></b> <p><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="20">

<param name="movie" value="audiocon.swf">

<param name="quality" value="high">

<param name="base" value=".">

<embed src="audiocon.swf" base="." quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="20" ></embed>

</object>

</font></p></td>

</tr>

<%

Else

%>

<tr>

<td height="39" colspan="7" valign="top"> <div align="left"><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong><img src="image/icones_audio.jpg" width="45" height="45">:

Áudio :<font color="#999999">:</font><font color="#CCCCCC">: consultar</font></strong></font></div>

<hr align="left" width="760" color="#000000">

<div align="left"> <font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="20">

<param name="movie" value="audiocon.swf">

<param name="quality" value="high">

<param name="base" value=".">

<embed src="audiocon.swf" base="." quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="20" ></embed>

</object>

</font><br>

</div>

<div align="right"> </div></td>

</tr>

<tr bgcolor="#FFCC66">

<td width="30"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Reg</font></strong></font></div></td>

<td width="190">

<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Título</font></strong></font></div></td>

<td width="120"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">CDU</font></strong></font></div></td>

<td width="70">

<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Cutter</font></strong></font></div></td>

<td width="60">

<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Formato</font></strong></font></div></td>

<td width="100"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Assunto</font></strong></font></div></td>

<td width="200">

<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000000">Observação</font></strong></font></div></td>

</tr>

<%

Do While not rs.eof

If cor = "#C0C0C0" Then

cor = "#FFFFFF"

Else

cor = "#C0C0C0"

End If

%>

<tr>

<td width="30" bgcolor="#FFCC66"> <div align="center"><strong><font size="1" face="Arial, Helvetica, sans-serif"><%=rs("estilo")%></font></strong></div></td>

<td width="190" bgcolor="#EAF9FF">

<div align="left"><font size="1" face="Arial, Helvetica, sans-serif"><%=rs("nome")%></font></div></td>

<td width="120" bgcolor="#D5F1FF"> <div align="center"><font size="1" face="Arial, Helvetica, sans-serif"><%=rs("endereco")%></font></div></td>

<td width="70" bgcolor="#BFEBFF">

<div align="center"><font size="1" face="Arial, Helvetica, sans-serif"><%=rs("telefone")%></font></div></td>

<td width="60" bgcolor="#AAE3FF">

<div align="center"><font size="1" face="Arial, Helvetica, sans-serif"><%=rs("email")%></font></div></td>

<td width="100" bgcolor="#EAF9FF"> <div align="center"><font size="1" face="Arial, Helvetica, sans-serif"><%=rs("autor")%> </font></div></td>

<td width="200" bgcolor="#D5F1FF">

<div align="center"><font size="1" face="Arial, Helvetica, sans-serif"><%=rs("obs")%></font></div></td>

</tr>

<%

rs.movenext

Loop

%>

<tr>

<td colspan="2" valign="top"> <div align="left"> <font color="#000000" size="2" face="Arial, Helvetica, sans-serif">

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="20">

<param name="movie" value="audiocon.swf">

<param name="quality" value="high">

<param name="base" value=".">

<embed src="audiocon.swf" base="." quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="20" ></embed>

</object>

</font> </div></td>

<td width="120" valign="top"><!--DWLayoutEmptyCell--> </td>

<td width="70" valign="top"><!--DWLayoutEmptyCell--> </td>

<td width="60" valign="top"><!--DWLayoutEmptyCell--> </td>

<td width="100" valign="top"><!--DWLayoutEmptyCell--> </td>

<td width="200" valign="top"><!--DWLayoutEmptyCell--> </td>

</tr>

<%

End If

%>

</table>

<p>

<% End If %>

</p>

<p> </p>

<p>  </p>

</body>

 

</html>

 

====================================================

 

:ph34r:

Compartilhar este post

Link para o post
Compartilhar em outros sites

rodrigofaria    0

rodrigofaria
Postado

Não sei se a instrução SQL é essa mesma, senão, alguém dá uma força...1º Cria o formulario2º coloca: form name="xxx" method="get" action="a_página_q_vai_receber_o_valor.asp"3º Na págiana que vai receber o valor (value) do campo texto, você coloca:Palavra=request.querystring("Nome_do_Campo_Texto_do_Formulario")Daí você. faz uma instrução SQL que vai fazer a consulta no Banco com a palavra q você. escolheu...SQL= " Select * FROM Tabela WHERE Campo Like ' "&Palavra&" ' % "4º Depois manda escrever response.write SQL RESPONSE.END

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