Ir para conteúdo

POWERED BY:

Arquivado

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

designmix

Busca

Por , em ASP Clássico

Recommended Posts

designmix    0

designmix
Postado

galera minha busca esta me mostrando tudo, o que tem no db gostaria que me mostra se so o que foi digitado ,e se nao tiver responder que nao foi encontrado nada

ASP [/tr][tr]<%

Dim conn, strconn,vBusca

titulo = Request.QueryString("titulo")

 

strConn = "DBQ=" & Server.MapPath("dados/dados.mdb") & ";PWD=poliaco;Driver={Microsoft Access Driver (*.mdb)}"

set conn = Server.CreateObject("ADODB.Connection")

conn.Open strConn

 

Set rs = Server.CreateObject("ADODB.RecordSet")

vSql = "SELECT * FROM obras where titulo like '%"& titulo &"%'"

 

rs.Open vSQL,conn,3,3

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

após issors.Open vSQL,conn,3,3poe o codigoIF rs.EOF THENresponse.write("nada encontrado")ELSEWHILE NOT rs.EOFresponse.write(rs("CAMPO"))WENDEND IF

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

Olha so coloquei o que falo mais abusca nao vai fica lendo,

 

 

ASP [/tr][tr]<%

Dim conn, strconn,vBusca

titulo = Request.QueryString("titulo")

 

strConn = "DBQ=" & Server.MapPath("dados/dados.mdb") & ";PWD=poliaco;Driver={Microsoft Access Driver (*.mdb)}"

set conn = Server.CreateObject("ADODB.Connection")

conn.Open strConn

 

Set rs = Server.CreateObject("ADODB.RecordSet")

vSql = "SELECT * FROM obras where titulo like '%"& titulo &"%'"

 

rs.Open vSQL,conn,3,3

 

If rs.EOF THEN

response.write("nada encontrado")

Else

While NOT rs.EOF

response.write(rs("titulo"))

Wend

End If

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o que esta acontecendo??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

esta passando algo??antes dissors.Open vSQL,conn,3,3poe response.write vSQLresponse.endo que aparecer poe aqui

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Verifique se seu Form não está com o método em "POST", pois se estiver você deve mudar seu Request.QueryString para Request.Form.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

ou pode usar apenas requesto caso é que ou não ta passando ou ta passando errado mesmoai você esta pesquisando vazio e todos os registros vão ter vazio então vai demorar porque vai pegar tudo

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

Mudei mais deu esse

erro Tipo de erro:Active Server Pages, ASP 0113 (0x80004005)A quantidade máxima de tempo de execução de um script foi excedida. Você pode alterar este limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS./poliaco/busca_resul.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mudou pra que??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Hernandes    0

Alex Hernandes
Postado

Eu acho que tem dois loop's na sua pagina.

Me fala o que tem depois disso.

ASP [/tr][tr]<%

Dim conn, strconn,vBusca

titulo = Request.QueryString("titulo")

 

strConn = "DBQ=" & Server.MapPath("dados/dados.mdb") & ";PWD=poliaco;Driver={Microsoft Access Driver (*.mdb)}"

set conn = Server.CreateObject("ADODB.Connection")

conn.Open strConn

 

Set rs = Server.CreateObject("ADODB.RecordSet")

vSql = "SELECT * FROM obras where titulo like '%"& titulo &"%'"

 

rs.Open vSQL,conn,3,3

%>

[/tr]

 

Melhor, manda a sua pagina aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

esse é o codigo

ASP [/tr]<%

Dim conn, strconn,vBusca

titulo = Request.Form("titulo")

 

strConn = "DBQ=" & Server.MapPath("dados/dados.mdb") & ";PWD=poliaco;Driver={Microsoft Access Driver (*.mdb)}"

set conn = Server.CreateObject("ADODB.Connection")

conn.Open strConn

 

Set rs = Server.CreateObject("ADODB.RecordSet")

vSql = "SELECT * FROM obras where titulo like '%"& titulo &"%'"

 

rs.Open vSQL,conn,3,3

 

If rs.EOF THEN

response.write("nada encontrado")

Else

While NOT rs.EOF

response.write(rs("titulo"))

Wend

End If

%>

<html>

<head>

<title>site-poliaço-ALTERADO</title>

<link href="_css/FolhaEstilo.css" rel="stylesheet" type="text/css">

<style type="text/css">

<!--

.style3 {color: #999999}

-->

</style>

</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<!-- ImageReady Slices (site-poliaço-ALTERADO.psd) -->

<br>

<table width="751" height="442" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">

<tr>

<td colspan="13"> <img src="images/img_01.png" alt="" width="613" height="136" border="0" usemap="#Map"></td>

<td rowspan="2"> <img src="images/img_02.png" width="137" height="157" alt=""></td>

<td> <img src="images/spacer.gif" width="1" height="136" alt=""></td>

</tr>

<tr>

<td colspan="6"> <img src="images/img_03.png" alt="" width="246" height="21" border="0" usemap="#Map2"></td>

<td colspan="7"> <img src="images/img__04.png" width="367" height="21" alt=""></td>

<td> <img src="images/spacer.gif" width="1" height="21" alt=""></td>

</tr>

<tr>

<td colspan="13"> <img src="images/img_05.png" width="613" height="22" alt=""></td>

<td rowspan="9"> <img src="images/img_06.png" width="137" height="178" alt=""></td>

<td> <img src="images/spacer.gif" width="1" height="22" alt=""></td>

</tr>

<tr>

<td colspan="3" rowspan="2"> <img src="images/img_07.png" width="149" height="42" alt=""></td>

<td> <img src="images/img__08.png" width="6" height="25" alt=""></td>

<td colspan="2"> <img src="images/img__09.png" alt="" width="91" height="25" border="0" usemap="#Map4"></td>

<td> <img src="images/img__10.png" width="11" height="25" alt=""></td>

<td> <img src="images/img__11.png" alt="" width="90" height="25" border="0" usemap="#Map5"></td>

<td> <img src="images/img__12.png" width="9" height="25" alt=""></td>

<td> <img src="images/img_10.png" alt="" width="89" height="25" border="0" usemap="#Map3"></td>

<td> <img src="images/img__14.png" width="13" height="25" alt=""></td>

<td colspan="2"> <img src="images/img_12.png" width="155" height="25"></td>

<td> <img src="images/spacer.gif" width="1" height="25" alt=""></td>

</tr>

<tr>

<td colspan="2"> <img src="images/img_16.png" width="13" height="17" alt=""></td>

<td colspan="7" rowspan="8" background="images/img_17.png"><table width="422" height="180" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="422"><div style='overflow:auto; width:422px; height:180px;'>

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

<tr>

<td width="107">ID</td>

<td width="162">Nome</td>

</tr>

<%While not rs.eof%>

<tr>

<td><%=rs("nome")%></td>

<td><a href="teste.asp?id=<%=rs("titulo")%>"><%=rs("titulo")%></a></td>

</tr>

<%rs.movenext

wend%>

</table>

<p>  </p>

</div></td>

</tr>

</table></td>

<td> <img src="images/img_18.png" width="27" height="17"></td>

<td> <img src="images/spacer.gif" width="1" height="17" alt=""></td>

</tr>

<tr>

<td rowspan="5"> <img src="images/img_19.png" width="20" height="88" alt=""></td>

<td>  </td>

<td>  </td>

<td colspan="2" rowspan="7"> <img src="images/img_22.png" width="13" height="220" alt=""></td>

<td rowspan="7"> <img src="images/img_23.png" width="27" height="220" alt=""></td>

<td> <img src="images/spacer.gif" width="1" height="16" alt=""></td>

</tr>

<tr>

<td> <img src="images/img_24.png" width="21" height="18" alt=""></td>

<td><a href="assistencia.asp">Assistência </a></td>

<td> <img src="images/spacer.gif" width="1" height="18" alt=

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Hernandes    0

Alex Hernandes
Postado

ASP [/tr][tr]<%

Dim conn, strconn,vBusca

titulo = Request.Form("titulo")

 

strConn = "DBQ=" & Server.MapPath("dados/dados.mdb") & ";PWD=poliaco;Driver={Microsoft Access Driver (*.mdb)}"

set conn = Server.CreateObject("ADODB.Connection")

conn.Open strConn

 

Set rs = Server.CreateObject("ADODB.RecordSet")

vSql = "SELECT * FROM obras where titulo like '%"& titulo &"%'"

 

rs.Open vSQL,conn,3,3

%>

<html>

<head>

<title>site-poliaço-ALTERADO</title>

<link href="_css/FolhaEstilo.css" rel="stylesheet" type="text/css">

<style type="text/css">

<!--

.style3 {color: #999999}

-->

</style>

</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<!-- ImageReady Slices (site-poliaço-ALTERADO.psd) -->

<br>

<table width="751" height="442" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">

<tr>

<td colspan="13"> <img src="images/img_01.png" alt="" width="613" height="136" border="0" usemap="#Map"></td>

<td rowspan="2"> <img src="images/img_02.png" width="137" height="157" alt=""></td>

<td> <img src="images/spacer.gif" width="1" height="136" alt=""></td>

</tr>

<tr>

<td colspan="6"> <img src="images/img_03.png" alt="" width="246" height="21" border="0" usemap="#Map2"></td>

<td colspan="7"> <img src="images/img__04.png" width="367" height="21" alt=""></td>

<td> <img src="images/spacer.gif" width="1" height="21" alt=""></td>

</tr>

<tr>

<td colspan="13"> <img src="images/img_05.png" width="613" height="22" alt=""></td>

<td rowspan="9"> <img src="images/img_06.png" width="137" height="178" alt=""></td>

<td> <img src="images/spacer.gif" width="1" height="22" alt=""></td>

</tr>

<tr>

<td colspan="3" rowspan="2"> <img src="images/img_07.png" width="149" height="42" alt=""></td>

<td> <img src="images/img__08.png" width="6" height="25" alt=""></td>

<td colspan="2"> <img src="images/img__09.png" alt="" width="91" height="25" border="0" usemap="#Map4"></td>

<td> <img src="images/img__10.png" width="11" height="25" alt=""></td>

<td> <img src="images/img__11.png" alt="" width="90" height="25" border="0" usemap="#Map5"></td>

<td> <img src="images/img__12.png" width="9" height="25" alt=""></td>

<td> <img src="images/img_10.png" alt="" width="89" height="25" border="0" usemap="#Map3"></td>

<td> <img src="images/img__14.png" width="13" height="25" alt=""></td>

<td colspan="2"> <img src="images/img_12.png" width="155" height="25"></td>

<td> <img src="images/spacer.gif" width="1" height="25" alt=""></td>

</tr>

<tr>

<td colspan="2"> <img src="images/img_16.png" width="13" height="17" alt=""></td>

<td colspan="7" rowspan="8" background="images/img_17.png"><table width="422" height="180" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="422"><div style='overflow:auto; width:422px; height:180px;'>

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

<tr>

<td width="107">ID</td>

<td width="162">Nome</td>

</tr>

<%If rs.EOF THEN

response.write("nada encontrado")

Else%>

<%While not rs.eof%>

<tr>

<td><%=rs("nome")%></td>

<td><a href="teste.asp?id=<%=rs("titulo")%>"><%=rs("titulo")%></a></td>

</tr>

<%rs.movenext

wend%>

<%End If%>

</table>

<p>  </p>

</div></td>

</tr>

</table></td>

<td> <img src="images/img_18.png" width="27" height="17"></td>

<td> <img src="images/spacer.gif" width="1" height="17" alt=""></td>

</tr>

<tr>

<td rowspan="5"> <img src="images/img_19.png" width="20" height="88" alt=""></td>

<td>  </td>

<td>  </td>

<td colspan="2" rowspan="7"> <img src="images/img_22.png" width="13" height="220" alt=""></td>

<td rowspan="7"> <img src="images/img_23.png" width="27" height="220" alt=""></td>

<td> <img src="images/spacer.gif" width="1" height="16" alt=""></td>

</tr>

<tr>

<td> <img src="images/img_24.png" width="21" height="18" alt=""></td>

<td><a href="assistencia.asp">Assistência </a></td>

<td> <img src="images/spacer.gif" width="1" height="18" alt=

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

galera minha busca esta dando pau .. como faço ela nao esta buscando o nome que digita mostra tudo o que na no db

 

<%Dim conn, strconn,vBuscatitulo = Request.Form("titulo")strConn = "DBQ=" & Server.MapPath("dados/dados.mdb") & ";PWD=poliaco;Driver={Microsoft Access Driver (*.mdb)}"set conn = Server.CreateObject("ADODB.Connection")conn.Open strConnSet rs = Server.CreateObject("ADODB.RecordSet")vSql = "SELECT * FROM obras where titulo like '%"& titulo &"%'"rs.Open vSQL,conn,3,3%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

se o titulo estiver vazio vai pegar tudo mesmoprinta na tela a sql

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