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

(Resolvido) Select usando o WHERE em conjunto com LIKE

Rafael P.C

Perguntado por Rafael P.C,

 Share

Pergunta

Rafael P.C

Rafael P.C

Postado
Postado (editado)

Boa tarde pessoal eu estou tentado fazer um Select usando o WHERE em conjunto com LIKE. Abaixo esta os dois código das paginas uma que chama a conexão com o banco de dados e a outra que executa a consulta. O problema é quando roda a consulta a tela fica toda em branco não apresenta erro não trava fica como se nada estive ocorrido. Tentei usar o comando Response.Write(SQL):response.End()

E a resposta foi Select * From RETORNO WHERE ID LIKE '*' que funciona perfeitamente no Access. Também fiz um teste mudando os critérios da consulta Select * From RETORNO WHERE ID = 5 e a consulta foi bem sucedida. Já não sei mais o que fazer alguém tem idéia do que esta acontecendo?

Página que faz a conexão com o Banco de Dados

CONFIG.INC

<%
'///////////////////////////////////////////////////////////////////////////////////
'connection string

Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("dados_user.mdb")

'///////////////////////////////////////////////////////////////////////////////////


'///////////////////////////////////////////////////////////////////////////////////
'cleanup routines

Sub CleanUp(RS)
  RS.Close
  MyConn.Close
  Set RS = Nothing
  Set MyConn = Nothing
End Sub

Sub CleanUp2()
  MyConn.Close
  Set MyConn = Nothing
End Sub

'////////////////////////////////////////////////////////////////////////////////////
%>
Página que faz a Consulta 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Response.Buffer = True%>
<!--#INCLUDE FILE="CONFIG.INC"-->
<%
'- Estrutura HTML da TABELA e do Cabeçalho das Colunas
    Response.Write "<table border=""1"" bordercolor=""#FF6600"">"
    Response.Write "<tr bgcolor=""#FF6600"">"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">ID</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DATA</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RE</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">NOME</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OPÇÃO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DDD</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">LOCALIDADE</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TERMINAL</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">REGIAO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">BC SPEENET</span> </div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">CONTATOS</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">MOTIVO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SITUACAO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TRATATIVA</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">STATUS</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DIRECIONADO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SEGMENTO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OBSERVACAO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RETORNO</span></div></td>"
    Response.Write "</tr>"

'- Declarando Variáveis DIM da consulta Select 
       Dim SQL, ID, DATA, RE, NOME, OPCAO, DDD, LOCALIDADE, TERMINAL, REGIAO, BC, CONTATOS, MOTIVO, SITUACAO, TRATATIVA, STATU, DIRECIONADO, SEGMENTO, OBSERVACAO, RETORNO

'- Determinando Consulta Select
    SQL = "Select * From RETORNO WHERE ID LIKE '*'"
            Set RS = MyConn.Execute(SQL)
        While Not RS.EOF

'- Determinando valores das Variáveis DIM da consulta Select 
    
    ID = RS("ID")
    DATA = RS("DATA")
    RE = RS("RE")
    NOME = RS("NOME")
    OPCAO = RS("OPCAO")
    DDD = RS("DDD")
    LOCALIDADE = RS("LOCALIDADE")
    TERMINAL = RS("TERMINAL")
    REGIAO = RS("REGIAO")
    BC = RS("BC")
    CONTATOS = RS("CONTATOS")
    MOTIVO = RS("MOTIVO")
    SITUACAO = RS("SITUACAO")
    TRATATIVA = RS("TRATATIVA")
    STATU = RS("STATU")
    DIRECIONADO = RS("DIRECIONADO")
    SEGMENTO = RS("SEGMENTO")
    OBSERVACAO = RS("OBSERVACAO")
    RETORNO = RS("RETORNO")
    
'- Estrutura HTML da Linha da Tabela aonde os dados serão imputados do Select
    Response.Write "<tr>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&ID&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DATA&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RE&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&NOME&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OPCAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DDD&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&LOCALIDADE&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TERMINAL&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"®IAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&BC&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&CONTATOS&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&MOTIVO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SITUACAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TRATATIVA&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&STATU&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DIRECIONADO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SEGMENTO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OBSERVACAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RETORNO&"</span></td>"
    Response.Write "</tr>"
    
'- Faz um Loop do Select      
    RS.MoveNext
        Wend
    CleanUp(RS)
%>
<html>
<head>
<title>teste - select if - 2 -</title>
</head>
<body>

</body>
</html>

Editado por Rafael P.C
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Rafael P.C, bom dia.

SQL = "Select * From RETORNO WHERE ID LIKE '*'"
Por que o asterisco em like '*'? Bom, ao usar asp com access, a sintaxe correta disso seria: 
SQL = "Select * From RETORNO WHERE ID LIKE '%" &variavel_id& "%'"

era isso que você precisava?

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael P.C

Rafael P.C

Postado
  • Autor
Postado

Bom dia Rafael Spilki, na verdade neste caso não haveria valor algum seria apenas o coringa mesmo.

O que eu estou tentando fazer na verdade é um consulta com vários critérios “campos” mais caso do usuário não preencha o campo então este tampo teria o valor de um coringa. E se não me engano “%” não é aceito como coringa no Access.

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

Rafael Spilki

Postado
Postado

A sintaxe que lhe passei esta correta sim... e funciona asp+access... uso aqui nas minhas app's!

Agora... essa questão de ser vários critéios de busca você terá que rever sua lógica... por que se colocar * ele buscará todos os registros que tem *, sacou?

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael P.C

Rafael P.C

Postado
  • Autor
Postado

Rafael Spilki você estava certo no ASP funciona utilizando “%” mas direto no Access não da apresenta um erro mais o importante é que funcionou. Bareta valeu pela atenção. Segue abaixo o script talvez ajude alguém no futuro NE.

Página que faz a conexão com o Banco de Dados

CONFIG.INC

<%
'///////////////////////////////////////////////////////////////////////////////////
'connection string

Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("dados_user.mdb")

'///////////////////////////////////////////////////////////////////////////////////


'///////////////////////////////////////////////////////////////////////////////////
'cleanup routines

Sub CleanUp(RS)
  RS.Close
  MyConn.Close
  Set RS = Nothing
  Set MyConn = Nothing
End Sub

Sub CleanUp2()
  MyConn.Close
  Set MyConn = Nothing
End Sub

'////////////////////////////////////////////////////////////////////////////////////
%>
Página que faz a Consulta 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Response.Buffer = True%>
<!--#INCLUDE FILE="CONFIG.INC"-->
<%
 Dim VALIT

 VALIT = Request.Form("ID")

    If VALIT <> "" Then
       VALIT = "1"
    ElseIf VALIT = "" Then
       VALIT = "2"
    End IF

Select case VALIT
    case "1"
        CON_1(MyConn)
    case "2"
        CON_2(MyConn)
End Select

'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

'- Declarando Variáveis DIM da consulta Select 
       Dim SQL, ID, DATA, RE, NOME, OPCAO, DDD, LOCALIDADE, TERMINAL, REGIAO, BC, CONTATOS, MOTIVO, SITUACAO, TRATATIVA, STATU, DIRECIONADO, SEGMENTO, OBSERVACAO, RETORNO

'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Sub CON_1(MyConn)
'- Declarando Variáveis do Request.Form
    Dim IDF

'- Determinando Valores das Variáveis do Request.Form
    
    IDF = Request.Form("ID")

'- Estrutura HTML da TABELA e do Cabeçalho das Colunas
    Response.Write "<table border=""1"" bordercolor=""#FF6600"">"
    Response.Write "<tr bgcolor=""#FF6600"">"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">ID</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DATA</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RE</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">NOME</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OPÇÃO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DDD</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">LOCALIDADE</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TERMINAL</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">REGIAO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">BC SPEENET</span> </div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">CONTATOS</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">MOTIVO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SITUACAO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TRATATIVA</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">STATUS</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DIRECIONADO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SEGMENTO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OBSERVACAO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RETORNO</span></div></td>"
    Response.Write "</tr>"

'- Determinando Consulta Select
    SQL = "Select * From RETORNO WHERE ID = "&IDF&""
        Set RS = MyConn.Execute(SQL)
        While Not RS.EOF

'- Determinando valores das Variáveis DIM da consulta Select e Validando dados do Select
    IF RS("OPCAO") <> "" Then
       OPCAO = RS("OPCAO")
    ELSE OPCAO = "-"
    END IF
    
    IF RS("DDD") <> "" Then
       DDD = RS("DDD")
    ELSE DDD = "-"
    END IF
    
    IF RS("LOCALIDADE") <> "" Then
       LOCALIDADE = RS("LOCALIDADE")
    ELSE LOCALIDADE = "-"
    END IF
    
    IF RS("TERMINAL") <> "" Then
       TERMINAL = RS("TERMINAL")
    ELSE TERMINAL = "-"
    END IF
    
    IF RS("REGIAO") <> "" Then
       REGIAO = RS("REGIAO")
    ELSE REGIAO = "-"
    END IF
    
    IF RS("BC") <> "" Then
       BC = RS("BC")
    ELSE BC = "-"
    END IF
    
    IF RS("CONTATOS") <> "" Then
       CONTATOS = RS("CONTATOS")
    ELSE CONTATOS = "-"
    END IF
    
    IF RS("MOTIVO") <> "" Then
       MOTIVO = RS("MOTIVO")
    ELSE MOTIVO = "-"
    END IF
    
    IF RS("SITUACAO") <> "" Then
       SITUACAO = RS("SITUACAO")
    ELSE SITUACAO = "-"
    END IF
    
    IF RS("TRATATIVA") <> "" Then
       TRATATIVA = RS("TRATATIVA")
    ELSE TRATATIVA = "-"
    END IF
    
    IF RS("STATU") <> "" Then
       STATU = RS("STATU")
    ELSE STATU = "-"
    END IF
    
    IF RS("DIRECIONADO") <> "" Then
       DIRECIONADO = RS("DIRECIONADO")
    ELSE DIRECIONADO = "-"
    END IF
    
    IF RS("SEGMENTO") <> "" Then
       SEGMENTO = RS("SEGMENTO")
    ELSE SEGMENTO = "-"
    END IF
    
    IF RS("OBSERVACAO") <> "" Then
       OBSERVACAO = RS("OBSERVACAO")
    ELSE OBSERVACAO = "-"
    END IF
    
    IF RS("RETORNO") <> "" Then
       RETORNO = RS("RETORNO")
    ELSE RETORNO = "-"
    END IF
    
'- Estrutura HTML da Linha da Tabela aonde os dados serão imputados do Select
    Response.Write "<tr>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&ID&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DATA&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RE&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&NOME&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OPCAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DDD&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&LOCALIDADE&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TERMINAL&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"®IAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&BC&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&CONTATOS&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&MOTIVO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SITUACAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TRATATIVA&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&STATU&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DIRECIONADO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SEGMENTO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OBSERVACAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RETORNO&"</span></td>"
    Response.Write "</tr>"
    
'- Faz um Loop do Select      
    RS.MoveNext
        Wend
    CleanUp(RS)

End sub

'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Sub CON_2(MyConn)
'- Declarando Variáveis do Request.Form
    Dim REF, DDDF, LOCALIF, TERMIF, DATA_INF, DATA_FIMF
        
'- Determinando Valores das Variáveis do Request.Form
    
    REF = Request.Form("RE")
    DDDF = Request.Form("DDD")
    LOCALIF = Request.Form("LOCALI")
    TERMIF = Request.Form("TERMI")
    DATA_INF = "#" & Request.Form("dtiniregistro") &" "& Request.Form("hriniregistro") &"#"
    DATA_FIMF = "#" & Request.Form("dtfimregistro") &" "& Request.Form("hrfimregistro") &"#"

'- - Verificando Variáveis vazias

    IF REF = "" Then
        REF = "LIKE '%'"
    ELSE REF = "= "&REF&""
    END IF
    
    IF DDDF = "" Then
        DDDF = "LIKE '%'"
    ELSE DDDF = "= "&DDDF&""
    END IF
    
    IF LOCALIF = "" Then
        LOCALIF = "LIKE '%'"
    ELSE LOCALIF = "= "&LOCALIF&""
    END IF
    
    IF TERMIF = "" Then
        TERMIF = "LIKE '%'"
    ELSE TERMIF = "= "&TERMIF&""
    END IF

'- Estrutura HTML da TABELA e do Cabeçalho das Colunas
    Response.Write "<table border=""1"" bordercolor=""#FF6600"">"
    Response.Write "<tr bgcolor=""#FF6600"">"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">ID</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DATA</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RE</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">NOME</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OPÇÃO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DDD</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">LOCALIDADE</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TERMINAL</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">REGIAO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">BC SPEENET</span> </div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">CONTATOS</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">MOTIVO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SITUACAO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">TRATATIVA</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">STATUS</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">DIRECIONADO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">SEGMENTO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">OBSERVACAO</span></div></td>"
    Response.Write "<td bordercolor=""#FF6600""><div align=""center""><span class=""titulo"">RETORNO</span></div></td>"
    Response.Write "</tr>"

'- Determinando Consulta Select
    SQL = "Select * From RETORNO WHERE ID LIKE '%' And RE "&REF&" And DDD "&DDDF&" And LOCALIDADE "&LOCALIF&" And TERMINAL "&TERMIF&" And DATA BETWEEN "&DATA_INF&" And "&DATA_FIMF&""
        Set RS = MyConn.Execute(SQL)
        While Not RS.EOF

'- Determinando valores das Variáveis DIM da consulta Select e Validando dados do Select
    IF RS("OPCAO") <> "" Then
       OPCAO = RS("OPCAO")
    ELSE OPCAO = "-"
    END IF
    
    IF RS("DDD") <> "" Then
       DDD = RS("DDD")
    ELSE DDD = "-"
    END IF
    
    IF RS("LOCALIDADE") <> "" Then
       LOCALIDADE = RS("LOCALIDADE")
    ELSE LOCALIDADE = "-"
    END IF
    
    IF RS("TERMINAL") <> "" Then
       TERMINAL = RS("TERMINAL")
    ELSE TERMINAL = "-"
    END IF
    
    IF RS("REGIAO") <> "" Then
       REGIAO = RS("REGIAO")
    ELSE REGIAO = "-"
    END IF
    
    IF RS("BC") <> "" Then
       BC = RS("BC")
    ELSE BC = "-"
    END IF
    
    IF RS("CONTATOS") <> "" Then
       CONTATOS = RS("CONTATOS")
    ELSE CONTATOS = "-"
    END IF
    
    IF RS("MOTIVO") <> "" Then
       MOTIVO = RS("MOTIVO")
    ELSE MOTIVO = "-"
    END IF
    
    IF RS("SITUACAO") <> "" Then
       SITUACAO = RS("SITUACAO")
    ELSE SITUACAO = "-"
    END IF
    
    IF RS("TRATATIVA") <> "" Then
       TRATATIVA = RS("TRATATIVA")
    ELSE TRATATIVA = "-"
    END IF
    
    IF RS("STATU") <> "" Then
       STATU = RS("STATU")
    ELSE STATU = "-"
    END IF
    
    IF RS("DIRECIONADO") <> "" Then
       DIRECIONADO = RS("DIRECIONADO")
    ELSE DIRECIONADO = "-"
    END IF
    
    IF RS("SEGMENTO") <> "" Then
       SEGMENTO = RS("SEGMENTO")
    ELSE SEGMENTO = "-"
    END IF
    
    IF RS("OBSERVACAO") <> "" Then
       OBSERVACAO = RS("OBSERVACAO")
    ELSE OBSERVACAO = "-"
    END IF
    
    IF RS("RETORNO") <> "" Then
       RETORNO = RS("RETORNO")
    ELSE RETORNO = "-"
    END IF

'- Estrutura HTML da Linha da Tabela aonde os dados serão imputados do Select
    Response.Write "<tr>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&ID&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DATA&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RE&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&NOME&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OPCAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DDD&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&LOCALIDADE&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TERMINAL&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"®IAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&BC&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&CONTATOS&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&MOTIVO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SITUACAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&TRATATIVA&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&STATU&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&DIRECIONADO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&SEGMENTO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&OBSERVACAO&"</span></td>"
    Response.Write "<td bordercolor=""#FF6600""><span class=""texto"">"&RETORNO&"</span></td>"
    Response.Write "</tr>"
    
'- Faz um Loop do Select      
    RS.MoveNext
        Wend
    CleanUp(RS)
End sub

'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
%>



<html>
<head>
<title>Untitled Document</title>
</head>

<body>
</body>
</html>

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,5k
×
×
  • Criar Novo...