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

Sistema De Busca Dando Erro....

Super_Zica_Man

Perguntado por Super_Zica_Man,

 Share

Pergunta

Super_Zica_Man

Super_Zica_Man

Postado
Postado

cara to quebrando a cabeça mas não consigo resolver esse problema vo postar aki os codigos pra ver se alguém consegue resolver...

busca.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<form method="post" action="resultado.asp" target="_blank">
<p align="center">
<font color="#FF0000"><b><i><font color="#003399">Procurar:
<select size="1" name="escolha" >
  <option value="zero" selected="selected"> </option>
  <option value="Produto">Produto</option>
  <option value="Marca">Marca</option>
</select>
</font></i></b><i><b><font color="#003399"> Em:</font></b></i></font> 
<input type="text" name="produto" >
<input type="Submit" name="OK" value="Ir" style="color: #003399; font-family: Arial">
</form>

</body>
</html>
resultado.asp 
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Nova pagina 1</title>
<style type="text/css">
<!--
.style1 {font-family: Verdana, Arial, Helvetica, sans-serif}
-->
</style>
</head>

<body>
  <%      dim c1,r1 
     set c1=server.createObject("adodb.connection")
    set r1=server.createObject("adodb.recordset")
    c1.connectionstring = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(".") & "\Dados\Produtos.mdb;"
  c1.open 
   set r1=c1.execute("select * from produtos  where  " & request.form("escolha") & " like '" & request.form("produto") & "%' ") %>
</form>

<td colspan="5" rowspan="17" bordercolor="#FFFF99" bgcolor="#ffffff"><table width="544" border="1" align="left" cellspacing="1" bordercolor="#808000" background="backup//Imagens/fundo.gif">
<tr>
            <th width="278" style="background-color: #cccccc" bordercolor="#CCCCCC" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Produto</i></font></strong></th>
            <th width="83" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Marca</i></font></strong></th>
            <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Preço</i></font></strong></th>
            
            <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Comprar</i></font></strong></th>
</tr>
<tr> <%
	Do While Not   r1.eof 
  %>

          <th width="278" style="background-color: "#FFFFFF"  bordercolor="#000066" bordercolorlight="#808000" bordercolordark="#cccccc"> <%= r1.Fields("nome")%></a></th>
            <th width="83" style="background-color: "#cccccc"  bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><%= r1.Fields("fabricante")%></th>
            <th width="93" style="background-color: "#FFFFFF"  bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><%= r1.Fields("preço").Value %></th>
      <th width="93" style="background-color: "#FFFFFF"  bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><a href="detalhes.asp?id=<%=r1("id") %>"><input type="image" src="backup/Imagens/carrinho.jpg" ONclick= "window.open('detalhes.asp?id=<%=r1("id")%>','principal')" ></th>
</tr>
       <% r1.MoveNext
     count=count+1 
	Loop%>
	<% r1.close
	c1.close
	set r1=nothing
	set c1=nothing %>
</table>  


</body>

</html>

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0
ri_nepo

ri_nepo

Postado
Postado

Eu acho que está havendo algum tipo de conflito na sua consulta acho que falta um and ai

set r1=c1.execute("select * from produtos where " & request.form("escolha") & " like '" & request.form("produto") & "%' ") %>

o ideal seria assim

"SELECT * FROM produtos WHERE descricao LIKE '%" & strBusca & "%'"

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

Super_Zica_Man

Postado
  • Autor
Postado

depois de por isso da esse erro....

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0400)
Instrução esperada
/resultado.asp, line 22
</form>
As linhas proximas saum essas: 
<%      dim c1,r1 
     set c1=server.createObject("adodb.connection")
    set r1=server.createObject("adodb.recordset")
    c1.connectionstring = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(".") & "\Dados\Produtos.mdb;"
  c1.open 
   set r1=c1.execute("select * from produtos where '" & request.form("escolha") & "' like '" & request.form("produto") & "%' ")
</form>

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,2k
    • Posts
      651,9k
×
×
  • Criar Novo...