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

Sistema De Busca


Jony Walker

Pergunta

Estou tentando fazer esta página de busca funcionar mas ela não faz a busca de acordo com o comando do form.

<!-- #INCLUDE FILE="conn.asp" -->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Untitled Document</title>

<%

Dim strSQL

Dim rsSQL

Dim XGRUPO

Dim XMARCA

Dim XDESC

%>

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

</head>

<body>

<%

TXT=""

OTXT=""

IF XGRUPO<>"" THEN

TXT=TXT&"doutor LIKE '"&TRIM(XGRUPO)&"%'"

OTXT=OTXT&"&g="&TRIM(XGRUPO)

END IF

IF XMARCA<>"" THEN

IF TXT<>"" THEN

  TXT=TXT&" AND "

END IF

TXT=TXT&"clinica LIKE '"&TRIM(XMARCA)&"%'"

OTXT=OTXT&"&m="&TRIM(XMARCA)

END IF

IF XDESC<>"" THEN

IF TXT<>"" THEN

  TXT=TXT&" AND "

END IF

TXT=TXT&"form LIKE '"&TRIM(XDESC)&"%'"

OTXT=OTXT&"&d="&TRIM(XDESC)

END IF

IF TXT="" THEN

TXT="doutor NOT LIKE ' '"

END IF

TXT=TXT+" AND TRIM(tel)<>''"

strSQL = "SELECT doutor,clinica,form,tel FROM doutores WHERE "&TXT&" ORDER BY doutor,form"

call abre_conexao

Set rsSQL = Conexao.execute(strSQL)

'Response.Write (txt)&"<BR>"

'Response.Write (otxt)&"<BR>"

  %>

  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="92%" id="AutoNumber1">

    <tr>

      <td width="16%"><font size="2">Grupo</font></td>

      <td width="60%"><input type="text" name="g" VALUE="<%=XGRUPO%>" size="45"></td>

      <td width="167%">&nbsp;</td>

    </tr>

    <tr>

      <td width="16%"><font size="2">Marca</font></td>

      <td width="60%"><input type="text" name="m" VALUE="<%=XMARCA%>" size="45"></td>

      <td width="167%">&nbsp;</td>

    </tr>

    <tr>

      <td width="16%"><font size="2">Descrição</font></td>

      <td width="60%"><input type="text" name="d" VALUE="<%=XDESC%>" size="45"></td>

      <td width="167%"> <input type="submit" value="Procurar" name="B1"></td>

    </tr>

  </table>

<%

if TXT = "" then

XGRUPO = ""

XDESC = ""

XMARCA = ""

%>

  <%

  else

  %>

  <table>

    <td style="border-style: solid; border-width: 1" ><%= rsSQL("doutor")%>&nbsp;</td>

    <td style="border-style: solid; border-width: 1" ><%= rsSQL("clinica")%>&nbsp;</td>

    <td style="border-style: solid; border-width: 1" ><%= rsSQL("form") %>&nbsp;</td>

</tr>

</table>

<% end if %>

</body>

</html>

<%

rsSQL.Close

Call fecha_conexao

Set rsSQL = Nothing

%>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

No seu código você utiliza uma variável sem dar valor a ela.

É o caso da variável XGRUPO, por exemplo.

Você a chama na instrução SQL, mas não passa nenhum valor pra ela no seu código.

Tente recuperar o valor do campo do formulário e passar para a variável.

Faça isso para as outras variáveis que estão vazias também.

cool.gif

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,1k
×
×
  • Criar Novo...