Ir para conteúdo

POWERED BY:

Arquivado

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

webfuture

Problemas com busca detalhada

Por , em ASP Clássico

Recommended Posts

webfuture    0

webfuture
Postado

Galera estou tentando fazer um sistema de busca avançada e até ter seis filtros funciona normalmente o sistema mas se aumento ele ta apresentando erro, já olhei o sql pelo que vi não tem falha mas não funciona.

 

Vejam o código:

 

               Session("busca") = request("cidade")	varbusca = Session("busca")	arr= split(varbusca,",")	for x = 0 to ubound(arr)	if x =0 then	varsql = " (cidade) like '%" & (arr(x)) & "%' "	else	varsql = varsql & "or (cidade) like '%" & (arr(x)) & "%' "	end if	next	index = data_cadastro	SQL = "select * from amoronline WHERE "	if request("cidade") <> "" then  SQL = SQL & "1=1 and ("& varsql &") and "  passouBusca = true	end if	if request("estado") <> "" then  SQL = SQL & "estado like '%" & estado & "%' and "  passouBusca = true	end if	if procuropor <> "" then  SQL = SQL & " eusou =" & procuropor & " and "  passouBusca = true	end if	if pais <> "" then  SQL = SQL & " pais =" & pais & " and "  passouBusca = true	end if	if cabelos <> "" then  SQL = SQL & " cabelos =" & cabelos & " and "  passouBusca = true	end if	if intencao <> "" then  SQL = SQL & " intencao =" & intencao & " and "  passouBusca = true	end if	if orientacao <> "" then  SQL = SQL & " orientacao =" & orientacao & " and "  passouBusca = true	end if	if passouBusca then SQL = left(SQL,len(sql) - 4)	SQL = SQL & ""' & index	rs.open SQL, conexaoSQL

O erro que é apresentado é:

 

Tipo de erro:

Microsoft OLE DB Provider for SQL Server (0x80040E14)

Line 1: Incorrect syntax near 'Sério'.

 

O 'Sério' é de Relacionamento Sério que vem do campo intenção.

 

SE alguém souber onde estou errando ...

 

WebFuture

Compartilhar este post

Link para o post
Compartilhar em outros sites

Guybrush    0

Guybrush
Postado

Bem, eu tenho um código que fiz aqui com ASP e java..

 

procurar.asp

ASP

[*]

 

[*]<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

 

[*]<% 

 

[*] var n=1; var c;

 

[*] var database = Server.CreateObject("ADODB.Connection");

 

[*] var recordset = Server.CreateObject("ADODB.recordset");

 

[*] database.Open("server","usuario","senha");

 

[*] recordset.Open("select id from sergio",database);

 

[*] while(!recordset.EOF) { n++; recordset.MoveNext(); } 

 

[*] %>

 

[*] <select name="de" id="de" style="background-color:#006666; color:#F0f0f0;">

 

[*] <%  for(c=1; c<n; c++) { %>

 

[*] <option value="<%=c%>"><%=c%></option>

 

[*] <% } %>

 

[*] </select>

 

[*] <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">'E'</font></strong> 

 

[*] <select name="ate" id="ate" style="background-color:#006666; color:#F0f0f0;">

 

[*] <%  for(c=1; c<n; c++) { %>

 

[*] <option value="<%=c%>" selected><%=c%></option>

 

[*] <% } %>

 

[*]</select>

 

listar_busca.asp

ASP

[*]<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

 

[*]<%

 

[*]var recordset = Server.CreateObject("ADODB.recordset");

 

[*]var database = Server.CreateObject("ADODB.Connection");

 

[*]var ordem = Request.Form("ordem");

 

[*]var busca = Request.Form("procurar");

 

[*]var de = Request.Form("de");

 

[*]var ate = Request.Form("ate");

 

[*]var id, sql;

 

[*]var cor=1,bg;

 

[*]var query;

 

[*]

 

[*]if(Request.QueryString("deletado")==1) { Response.Write("<script>alert('Usuário Deletado');</script>"); }

 

[*]

 

[*]database.Open("server","usuario","senha");

 

[*]

 

[*]if((""+busca) == "undefined") busca = null;

 

[*]if((busca != null)&&((""+busca) != "")) 

 

[*] {

 

[*] query="select id, usuario from sergio where usuario='"+busca+"' order by "+ordem+";";

 

[*] }

 

[*]else { query="select id, usuario from sergio where id between "+de+" and "+ate+" order by "+ordem+";"; }

 

[*]

 

[*]recordset.Open(query,database);

 

[*]

 

[*]%>

 

[*]<title>Resultados da Busca</title>

 

[*]<body link="#000000" vlink="#000000" alink="#000000">

 

[*] <div align='center'>

 

[*] <p><strong><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><a href='alterar.asp'>Alterar/Deletar</a> 

 

[*] | <a href='cadastro.asp'>Cadastrar</a> | <a href='procurar.asp'>Procurar </a></font></strong></p>

 

[*]</div>

 

[*]<table width="51%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">

 

[*]<form action="" method="post" name="alterar">

 

[*]<%

 

[*]while(!recordset.EOF)

 

[*] {

 

[*] id = recordset("id");

 

[*] if(cor>=2) { bg="#F0F0F0"; font="#006666"; cor=1; }

 

[*] else

 

[*] if(cor==1) { bg="#006666"; font="#F0F0F0"; cor++; }

 

[*]%>

 

[*] <tr bgcolor="<%=bg%>"> 

 

[*] <td width="23%"><font color="<%=font%>"><b><div align="center"> <%Response.Write(id)%></div></b></font></td>

 

[*] <td width="19%"><b><div align="center"><a href="ver.asp?ID=<%Response.Write(recordset("id"));%>"> 

 

[*] <%Response.Write(recordset("usuario"));%>

 

[*] </a></div></b></td>

 

[*]  <td width="25%"><div align="center"><a href="modificar.asp?mod=<%=id%>"><img src="modificar.gif" border="0" alt="Editar Usuário"></a></div></td>

 

[*] <td width="21%">

 

[*] <div align="center"><a href="delete.asp?del=<%=id%>"><img src="del.gif" border="0" alt="Remover Usuário"></a></div>

 

[*] </tr>

 

[*]<% recordset.MoveNext(); } %>

 

[*]

 

[*]</form>

 

[*]</table>

 

[*]<div align="center"><BR>

 

[*]</div>

 

[*] <% database.Close(); %>

 

[*]

 

[*]</body>

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