Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Salve galera...
Tenho uma página d ebusca com os seguintes dados:
>
<table width="99%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFE8">
<tr>
<td width="49%"><label>
<input name="busca" type="text" id="busca" />
</label></td>
<td width="33%"><label>
<select name="criterio" id="criterio">
<option value="CLIENTE">Cliente</option>
<option value="EMPRESA1">Empresa 1</option>
<option value="TELEFONE">Telefone Coml.</option>
<option value="CPF">CPF</option>
<option value="CNPJ">CNPJ</option>
<option value="ENDERECO">Endereço</option>
<option value="EMAIL">E-Mail</option>
</select>
</label></td>
<td width="18%"><label>
<input name="buscar" type="submit" id="buscar" value="Buscar" />
</label></td>
</tr>
</table>
Na página de resultados, com a ajuda do pessoal daqui do Forum, fiz o seguinte Recordset, a idéia é que o SELECT da página anterior, defina qual em qual campo da tabela será feito a busca.
>
<%
Dim Sql
Set BdWeb = Server.CreateObject("ADODB.Connection")
Sql = "SELECT * FROM CLIENTES"
If Request.QueryString("criterio") = "CLIENTE" Then
Sql = Sql & " WHERE CLIENTE LIKE '%" & Request.QueryString("busca") & "%'"
End If
If Request.QueryString("criterio") = "EMPRESA1" Then
Sql = Sql & " WHERE EMPRESA1 LIKE '%" & Request.QueryString("busca") & "%'"
End If
If Request.QueryString("criterio") = "ENDERECO" Then
Sql = Sql & " WHERE ENDERECO LIKE '%" & Request.QueryString("busca") & "%'"
End If
If Request.QueryString("criterio") = "TELEFONE" Then
Sql = Sql & " WHERE TELEFONE LIKE '%" & Request.QueryString("busca") & "%'"
End If
If Request.QueryString("criterio") = "EMAIL" Then
Sql = Sql & " WHERE EMAIL LIKE '%" & Request.QueryString("busca") & "%'"
End If
Set RsWeb = Server.CreateObject("ADODB.Recordset")
%>
MAs acho que fiz algo, errado, pois uso o código abaixo para tentar imprimir o resultado:
<% Response.Write(RsWeb.Fields.Item("CLIENTE").Value)%>
MAs dá o seguinte erro:
>
Tipo de erro:
ADODB.Fields (0x800A0CC1)
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.
/crm/resultado.asp, line 133
Alguem tem idéia de onde estou errando.
Valew
Carregando comentários...