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

Parou De Funcionar

Jony Walker

Perguntado por Jony Walker,

 Share

Pergunta

Jony Walker

Jony Walker

Postado
Postado

Eu estive resolvendo os probleminhas desta página aqui recentemente, e ela estava ok, agora ela parou de funcioanr. Acho q alguém mexeu no código dela aqui na empresa e depois zoou tudo...

Ele está dando erro de execução do script porque ele está tentando fazer a consulta sem os dados, que só devem ser inseridos após o carregamento da página....

Só q ele está indo direto pra consulta.... rsumi o código mas num tirei o mais importante

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

<html>

<head>

<title>O Guia M&eacute;dico</title>

<!--#include file="conn.asp"-->

<%

Dim rsCons, sqlCons, varConv

Dim TXT, OTXT

varConv = request.querystring("conv")

varReg = request.querystring("reg")

varEsp = request.querystring("esp")

call abre_conexao

TXT = ""

OTXT = ""

IF varConv<>"" THEN

TXT = TXT & TRIM(varConv) & " = TRUE "

END IF

IF varReg<>"" THEN

IF TXT<>"" THEN

  TXT=TXT&" AND "

END IF

TXT=TXT&"zona LIKE '"&TRIM(varReg)&"' "

END IF

IF varEsp<>"" THEN

IF TXT<>"" THEN

  TXT=TXT&" AND "

END IF

TXT=TXT&"form LIKE '"&TRIM(varEsp)&"' "

END IF

sqlCons = " SELECT * FROM doutores WHERE " & TXT & " ORDER BY doutor "

rsCons = conexao.execute(sqlCons)

%>

<div align="center">

<table width="785" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td width="15" rowspan="12" bgcolor="33cc66">&nbsp;</td>

    <td width="142">&nbsp;</td>

    <td width="471">&nbsp;</td>

    <td width="142">&nbsp;</td>

    <td width="15" rowspan="12" bgcolor="33cc66">&nbsp;</td>

  </tr>

  <tr>

  <tr>

    <td rowspan="7">Fazer a Busca por:<br><table width="89%" border="0" cellspacing="0" cellpadding="0">

        <tr>

          <td><form method="get" action="avancada.asp">

                Especializa&ccedil;&atilde;o:<br>

                <select name="esp" size="1" id="esp">

                  <option value="">Selecione a especializa&ccedil;&atilde;o</option>

                  <option value="angiologia">Angiologia</option>

                  <option value="urologia">Urologia</option>

                </select>

                <br>

                Conv&ecirc;nio:<br>

                <select name="conv" size="1" id="conv">

                  <option value="trans">Transmontano</option>

                  <option value="unimed">Unimed Paulistana</option>

                </select>

                <br>

                <br>

                Regi&atilde;o:<br>

                <select name="reg" size="1" id="select">

                  <option value="">Selecione a regi&atilde;o</option>

                  <option value="leste">Leste</option>

                  <option value="norte">Norte</option>

                  <option value="oeste">Oeste</option>

                  <option value="sul">Sul</option>

                </select>

                <input name="image" type="image" src="ok_1.gif">

                <br>

              </form>

  </td>

        </tr>

        <tr>

          <td><a href="doutor.asp">Doutor(a)</a></td>

        </tr>

        <tr>

            <td><a href="convenio2.asp">Conv&ecirc;nio</a></td>

        </tr>

        <tr>

          <td><a href="especialidade.asp">Especializa&ccedil;&atilde;o</a></td>

        </tr>

      </table></td>

      <td rowspan="7">

<%

if varConv = "" then

%>

        <font face="Arial, Helvetica, sans-serif">Busca avan&ccedil;ada. Sua consulta

        mais r&aacute;pida e pr&aacute;tica</font>

<%

else

call abre_conexao

set rsCons = Conexao.Execute(sqlCons)

if rsCons.eof then

response.write "Não há cadastro que satisfaça sua consulta."

else

response.write "<table><tr>"

x = 1

Do while not rsCons.eof

  response.write "<td>"

  response.write rsCons("doutor") & "<br>"

  response.write rsCons("tel")

  response.write "</td>"

if x mod 4 = 0 then

    response.write "</tr><tr>"

end if

x=x+1

rsCons.movenext

loop

response.write "</tr></table></td>"

end if

%>

    </table>

<%

rsCons.Close

end if

call fecha_conexao

Set rsCons = Nothing

%>

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Jony Walker

Jony Walker

Postado
  • Autor
Postado

Como eu disse, ele acusa erro na linha da consulta porque os parâmetros só vão aparecer depois q o usuário escolher no campo select.

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na cláusula WHERE.

/guiamedico/avancada.asp, line 40

A linha é essa aqui :

sqlCons = " SELECT * FROM doutores WHERE " & TXT & " ORDER BY doutor "

esse TXT como mostra o código define as variáveis q vão delimitar a consulta, ele tá dando erro porque essas vars não estão definidas ainda....

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

dark0

Postado
Postado

então

você mesmo deduziu qual o erro né?

você precisa ver quando essa variavel é criada, e quando ela recebe valor

Em termos de lógica, parece estar certo, só precisa ver se aqueles request.querystring estão chegando com os valores corretos..

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,3k
    • Posts
      652,3k
×
×
  • Criar Novo...