Marcos Chopps

Agosto 30, 2010

So pra constar, eu qro ler esses dados e ir salvando em uma tabela no banco.

Mas não sei como manipular corretamente xml´s, e esse outro formato de arquivo não me parece em nada com um xml, não sei.

Se alguém puder me dar uma ajudinha marota ficaria muito grato.

Agosto 30, 2010

Povo, vou ler o xml vindo de outro lugar agora, MASSS preciso ainda de uma ajuda, alguém pode me ajudar?

http://www.tempoagora.com.br/swf/selos/tud...ades_brasil.txt

o arquivo tem essa estrutura.

&cid1=Curitiba - PR
&data1_1=Seg-30/08
&max1_1=23ºC
&min1_1=12ºC
&chu1_1=0mm
&tempo1_1=poucas nuvens
&icone1_1=pn.png&
&data1_2=Ter-31/08
&max1_2=26ºC
&min1_2=10ºC
&chu1_2=0mm
&tempo1_2=poucas nuvens
&icone1_2=pn.png&
&data1_3=Qua-01/09
&max1_3=28ºC
&min1_3=12ºC
&chu1_3=0mm
&tempo1_3=poucas nuvens
&icone1_3=pn.png&

&cid2=Florianópolis - SC
&data2_1=Seg-30/08
&max2_1=21ºC
&min2_1=17ºC
&chu2_1=0mm
&tempo2_1=nublado
&icone2_1=nb.png&
&data2_2=Ter-31/08
&max2_2=23ºC
&min2_2=16ºC
&chu2_2=0mm
&tempo2_2=poucas nuvens
&icone2_2=pn.png&
&data2_3=Qua-01/09
&max2_3=25ºC
&min2_3=17ºC
&chu2_3=0mm
&tempo2_3=poucas nuvens
&icone2_3=pn.png&

alguém consegue me dar uma luz?

Abs

Agosto 27, 2010

muito obrigado pela dica Kuroi.

Vou testar segunda e posto aqui caso tenha exito, pra variar apareceu outra prioridade aqui..rsrs

Abs pessoal e bom FDS.

Agosto 27, 2010

alguém pode dar uma ajuda?

Estou tentando fazer a leitura do seguinte modo:

'Instancia o objeto XMLDOM.
Set objXMLDoc = Server.CreateObject("Microsoft.XMLDOM")

'Indicamos que o download em segundo plano não é permitido
objXMLDoc.async = False

'Carrega o domcumento XML
objXMLDoc.load(Server.MapPath("http://www.google.com/ig/api?weather=londrina,pr,brazil&hl=pt-br"))

'Carrega o domcumento XML

'O método parseError contém informações sobre o último erro ocorrido
if objXMLDoc.parseError <> 0 then

    response.write "Código do erro: " & objXMLDoc.parseError.errorCode & "<br>"
    response.write "Posição no arquivo: " & objXMLDoc.parseError.filepos & "<br>"
    response.write "Linha: " & objXMLDoc.parseError.line & "<br>"
    response.write "Posição na linha: " & objXMLDoc.parseError.linepos & "<br>"
    response.write "Descrição: " & objXMLDoc.parseError.reason & "<br>"
    response.write "Texto que causa o erro: " & objXMLDoc.parseError.srcText & "<br>"
    response.write "Url do arquivo com problemas: " & objXMLDoc.parseError.url
     
else
    set registro = objXMLDoc.getElementsByTagName("current_conditions")
    
    temp_c = registro.item(0).selectSingleNode("./temp_c ").text
end if

Ta certo oque eu diz?

a Ideia é que na variável temp_c esteja o valor que está dentro da tag current_conditions e com o nome temp_c.

como so existe uma vez a tag current_conditions eu já chumbei o valor 0 la no item.

é por ai maromeno o caminho?

Agosto 27, 2010

Boa tarde pessoal.

Meu problema é o seguinte, não domino muito leitura de XML no ASP.

Qro ler o seguinte XML:

http://www.google.com/ig/api?weather=são%2...il&hl=pt-br

Ler ele e salvar alguns dos seus dados em uma tabela já existente.

Modelagem da Tabela:

[dboIntra_ConfigTempo](
    [intID] [int] IDENTITY(1,1) NOT NULL,
    [id_UF] [int] NULL,
    [title] [varchar](255) NULL,
    [data] [varchar](50) NULL,
    [max] [varchar](50) NULL,
    [min] [varchar](50) NULL,
    [chu] [varchar](50) NULL,
    [tempo] [varchar](50) NULL,
    [icone] [varchar](50) NULL,
    [dt_atualizacao] [datetime] NULL
) ON [PRIMARY]

Se alguém puder me indicar algum exemplo de leitura do xml, achei alguns, já fiz isso, mas eu não domino nada bem ficar indo de um nó para o outro.

Vlw.

Agosto 19, 2010

Resolvi

<% 
Session.LCID = 1046
varFilial = Request.QueryString("filial")
Session("tituloPagina") = "Multiplicadores TUSS - " &  varFilial
Session("breadcrumb") = ""
Session("aba")             = "3"

%>

<!--#include file="inc/header.aspx" -->

<script language="JavaScript">
    function loadCurriculo(id1,id2,id3){
        alert(id1 + '/' + id2 + '/' + id3);
    }
</script>

<div id="campanhasPublicitarias">
    <div style="color: black; font-size: 80%; padding: 15px 0 0 20px; float: left; background-repeat: no-repeat; height: 500px; width: 100px; background-image: url('/adIntranetv3Amil/images/home2008/bgLinhaTempo.jpg')">
    <% filiais = "SP,DF,PR,RJ" %>
    <% arrayFilial = Split(filiais,",") %>
    <select onChange="location.href='tuss_multiplicadores.asp?filial=' + this.value + '&Data=<%=varData%>'">
    <% For a = 0 to UBound(arrayFilial) %>
    <option <% if arrayFilial(a) = varFilial then response.write "selected"%> value="<%=arrayFilial(a)%>"><%=arrayFilial(a)%>
    <% Next %>
    </select>
    
    </div>
    <div style="float: left; width: 400px">
        <div id="fichaTecnicaGaleria">
            
        </div>
        <table class="galeria" style="width:560px;">
            <tr>
<%
contador = 0
'Instancia o objeto XMLDOM.
Set objXMLDoc = Server.CreateObject("Microsoft.XMLDOM")

'Indicamos que o download em segundo plano não é permitido
objXMLDoc.async = False

'Carrega o domcumento XML
objXMLDoc.load(Server.MapPath("/adIntranetv3Amil/xml/tuss_multiplicadores.xml"))

'Carrega o domcumento XML
'Para quem possui serviço de REVENDA, utilize este caminho
'objXMLDoc.load("E:\vhosts\DOMINIO_COMPLETO\httpdocs\internet.xml")

'O método parseError contém informações sobre o último erro ocorrido
if objXMLDoc.parseError <> 0 then

    response.write "Código do erro: " & objXMLDoc.parseError.errorCode & "<br>"
    response.write "Posição no arquivo: " & objXMLDoc.parseError.filepos & "<br>"
    response.write "Linha: " & objXMLDoc.parseError.line & "<br>"
    response.write "Posição na linha: " & objXMLDoc.parseError.linepos & "<br>"
    response.write "Descrição: " & objXMLDoc.parseError.reason & "<br>"
    response.write "Texto que causa o erro: " & objXMLDoc.parseError.srcText & "<br>"
    response.write "Url do arquivo com problemas: " & objXMLDoc.parseError.url
     
else
    'Set NodeList = objXMLDoc.documentElement.selectNodes("channel/filial") 
    %>
    <div style="float: left; width: 400px">
        <div id="fichaTecnicaGaleria">
        
        </div>
        <table class="galeria" style="width:560px;">
        <tr>
        <%
        set registro = objXMLDoc.getElementsByTagName("filial")
        
        for i=0 to registro.length - 1
            'Response.Write("<BR>i - " & i & " - " & registro.item(i).text & "<br>")
            vtitulo = registro.item(i).selectSingleNode("./UF").text
            if vtitulo = varFilial then
                set NodeList = objXMLDoc.documentElement.getElementsByTagName("filial")(i).selectNodes("colaborador")
                for a = 0 to NodeList.length - 1
                    vnome = NodeList.item(a).selectSingleNode("./nome").text
                    vimg = NodeList.item(a).selectSingleNode("./imgThumb").text
                    vdiretoria = NodeList.item(a).selectSingleNode("./diretoria").text
                    %>
                    <td>
                        <div style="line-height: 100px; font-size: 100px; width: 99px; height: 100px; padding: 0px 0px; padding: 0px 0; border: 1px solid #EFEFEF">
                            <img style="vertical-align: middle; border: 0" src="/adIntranetv3Amil/images/home2008/tuss_multiplicadores/<%=varFilial%>/<%=vimg%>" />
                        </div>
                        <div>
                            <h5 style="font-size: 100%; margin: 5px 0 5px 0">
                                <%=vnome%><br /></h5>
                                <%=vdiretoria%></div>
                    <%
                    contador = contador + 1
                    if contador mod 5 = 0 then response.write "</tr><tr>" 
                next
            end if
        next

end if

'Destruindo os objetos
Set objXMLDoc = Nothing
Set raiz = Nothing
%>
</tr>
</table>


</div>


</div>

<!--#include file="inc/footer.aspx" -->

Agosto 19, 2010

Seguinte pessoal.

Tenho que ler um XML, fazendo uma filtragem simples só por uma das tags dele e listar tudo que tiver la dentro.

<?xml version="1.0" encoding="ISO-8859-1" ?>

<rss version="2.0">
  <channel>
    <title><![CDATA[Multiplicadores TUSS]]></title>
    <link>http://intranet.amil.com.br</link>
    <description><![CDATA[]]></description>
    <language>pt-br</language>
    <filial>
        <title><![CDATA[Brasília]]></title>
        <UF><![CDATA[DF]]></UF>
        <description><![CDATA[]]></description>
        <colaborador>
            <nome><![CDATA[Alessandra]]></nome>        
            <imgThumb>Alessandra-Ferreira-Araujo---Dimed---ConsultoriosDF.jpg</imgThumb>
            <diretoria><![CDATA[Dimed / Consultórios]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Amanda]]></nome>        
            <imgThumb>Amanda-Faria-Alcantara----CliDF.jpg</imgThumb>
            <diretoria><![CDATA[CLI]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Ana]]></nome>        
            <imgThumb>ANA-MARGARIDA-CAVALCANTI-PEDRA-DIMED_SADT-DF.jpg</imgThumb>
            <diretoria><![CDATA[Dimed / SADT]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Andrea]]></nome>        
            <imgThumb>Andrea-Maria-Lemos---DimedDF.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Christiane]]></nome>        
            <imgThumb>Christiane-Gabriela-Macedo-Azevedo---Dimed---HospitaisDF.jpg</imgThumb>
            <diretoria><![CDATA[Dimed / Hospitais]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Flávia]]></nome>        
            <imgThumb>Flavia-Cassia-Rotatori-Alvim---CliDF.jpg</imgThumb>
            <diretoria><![CDATA[CLI]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Geane]]></nome>        
            <imgThumb>Geane-Aurea-Ferreira-de-Almeida---Contas-MedicasDF.jpg</imgThumb>
            <diretoria><![CDATA[Contas Medicas]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Lea]]></nome>        
            <imgThumb>Lea-Maria-de-A.-Nascimento----Dimed---ConsultoriosDF.jpg</imgThumb>
            <diretoria><![CDATA[Dimed / Consultórios]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Lucilene]]></nome>        
            <imgThumb>Lucilene-Pereira-Jacobina---ReembolsoDF.jpg</imgThumb>
            <diretoria><![CDATA[Reembolso]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Rodrigo]]></nome>        
            <imgThumb>Rodrigo-Lima-e-Silva---Dimed---SadtDF.jpg</imgThumb>
            <diretoria><![CDATA[Dimed / SADT]]></diretoria>
        </colaborador>
    </filial>
    
    
    
    <filial>
        <title><![CDATA[Paraná]]></title>
        <UF><![CDATA[PR]]></UF>
        <description><![CDATA[]]></description>
        <colaborador>
            <nome><![CDATA[Gerson]]></nome>        
            <imgThumb>Gerson-Righetto-Junior---DimedPR.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Hellenn]]></nome>        
            <imgThumb>Hellenn-Rosy-Stadler-Dalan---Dimed-HospitaisPR.jpg</imgThumb>
            <diretoria><![CDATA[Dimed / Hospitais]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Jaqueline]]></nome>        
            <imgThumb>Jaqueline-Magaton---Gerencia-de-BeneficiosPR.jpg</imgThumb>
            <diretoria><![CDATA[Gerencia de Benefícios]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Luiz]]></nome>        
            <imgThumb>Luiz-Eduardo-Formaggi-Marijetic---Dimed-AmilPR.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
    </filial>


    <filial>
        <title><![CDATA[Rio de Janeiro]]></title>
        <UF><![CDATA[RJ]]></UF>
        <description><![CDATA[]]></description>
        <colaborador>
            <nome><![CDATA[Hermínio]]></nome>        
            <imgThumb>Herminio-Jose-Leitao-Mendes---DitecRJ.jpg</imgThumb>
            <diretoria><![CDATA[Ditec]]></diretoria>
        </colaborador>
    </filial>


    <filial>
        <title><![CDATA[São Paulo]]></title>
        <UF><![CDATA[SP]]></UF>
        <description><![CDATA[]]></description>
        <colaborador>
            <nome><![CDATA[Ana Paula Zurita]]></nome>        
            <imgThumb>Ana-Paula-de-Oliveira-Zurita---GIH-DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed / GIH]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Ana Paula Frank]]></nome>        
            <imgThumb>Ana-Paula-Frank---Supervisao---DiratSP.jpg</imgThumb>
            <diretoria><![CDATA[Dirat]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Andrea Coelho]]></nome>        
            <imgThumb>Andrea-Coelho-Barbosa---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Andrea Vulcanis]]></nome>        
            <imgThumb>Andrea-Vulcanis---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Andrea Eocadio]]></nome>        
            <imgThumb>Andreia-Eocadio---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Antonio Giriboni]]></nome>        
            <imgThumb>Antonio-Eduardo-Giriboni-Monteiro---ResgateSP.jpg</imgThumb>
            <diretoria><![CDATA[Resgate]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Arlete]]></nome>        
            <imgThumb>Arlete-Jean-Abdo-Pereira---Nutrologia-HPSP.jpg</imgThumb>
            <diretoria><![CDATA[Hosp. Paulistano]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Carla]]></nome>        
            <imgThumb>Carla-Nascimento-Aro---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Carmem]]></nome>        
            <imgThumb>Carmem-Herrero-F-Da-Silva---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Célia]]></nome>        
            <imgThumb>Celia-Del-Carmen-Oliva-Avila---Supervisao---DiratSP.jpg</imgThumb>
            <diretoria><![CDATA[Dirat]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Cristiani]]></nome>        
            <imgThumb>Cristiani-Bragantini---Supervisao---DiratSP.jpg</imgThumb>
            <diretoria><![CDATA[Dirat]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Cristiano]]></nome>        
            <imgThumb>Cristiano-Rodrigo-de-Alvarenga-Nascimento---MedialSP.jpg</imgThumb>
            <diretoria><![CDATA[Medial]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Daise]]></nome>        
            <imgThumb>Daise-Cristine-Sendon-Potier---Supervisao-DiratSP.jpg</imgThumb>
            <diretoria><![CDATA[Dirat]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Dorothea]]></nome>        
            <imgThumb>Dorothea-Spring---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Elma]]></nome>        
            <imgThumb>Elma-VegaBexiga-GHI_Dimed-SP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed / GIH]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Fábia]]></nome>        
            <imgThumb>Fabia-Franca-Teixeira---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Fábio]]></nome>        
            <imgThumb>Fabio-Belizario-de-Oliveira---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Isac]]></nome>        
            <imgThumb>Isac-Eiji-Ito---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Jair]]></nome>        
            <imgThumb>Jair-Santos-de-Oliveira---Home-CareSP.jpg</imgThumb>
            <diretoria><![CDATA[Home Care]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Juliana]]></nome>        
            <imgThumb>Juliana-Overbeck-Mendonca---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Leandro]]></nome>        
            <imgThumb>Leandro-Vaz-Figueira---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Lucio]]></nome>        
            <imgThumb>Lucio-Antonio-Pereira-Gomes---MedialSP.jpg</imgThumb>
            <diretoria><![CDATA[Medial]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Myrna]]></nome>        
            <imgThumb>Myrna-Monteiro---MedialSP.jpg</imgThumb>
            <diretoria><![CDATA[Medial]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Nella]]></nome>        
            <imgThumb>Nella-Annunziatta-Franca-Magosso---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Nely]]></nome>        
            <imgThumb>Nely-Yoko-Tatai---GIH-DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Sani]]></nome>        
            <imgThumb>Sani-Elisa-Martin---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Silvia]]></nome>        
            <imgThumb>Silvia-Garcia-Cesar---Agencia-Atendimento---SantosSP.jpg</imgThumb>
            <diretoria><![CDATA[Dirat]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Tiago]]></nome>        
            <imgThumb>Tiago-Ferreira---Analise-Gerencial-DixSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Wilson]]></nome>        
            <imgThumb>Wilson-Roberto-Casale---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        <colaborador>
            <nome><![CDATA[Zoraide]]></nome>        
            <imgThumb>Zoraide-Cardoso-Silva---DimedSP.jpg</imgThumb>
            <diretoria><![CDATA[Dimed]]></diretoria>
        </colaborador>
        

    </filial>

  </channel>
</rss>

Não estou conseguindo, já procurei no w3c alguns exemplos de como fazer a leitura, mas minha duvida esta em como fazer a filtragem. Vou selecionar um Estado, então eu entro na tag filial, e procuro qual a tag UF dele, se for igual ao estado informado eu tenho que recuperar cada um dos dados da tag colaborador. Aparentemente é algo simples, mas eu não tenho realmente a menor ideia de como fazer. Estava fazendo o seguinte:

set registro = objXMLDoc.getElementsByTagName("filial")
set col = objXMLDoc.getElementsByTagName("filial/colaborador")

for i=0 to registro.length - 1
Response.Write(registro.item(i).text)
vtitulo = registro.item(i).selectSingleNode("./UF").text
    if vtitulo = varFilial then
        vnome = col.item(i).selectSingleNode("./nome").text
        vimg = col.item(i).selectSingleNode("./imgThumb").text
        vdiretoria = col.item(i).selectSingleNode("./diretoria").text
        response.write("<br>" & vnome)
        response.write("<br>" & vimg)
        response.write("<br>" & vdiretoria)
        for a=0 to vnome.length - 1
            nome        = vtitulo.item(i).selectSingleNode("./colaborador/nome").text
            img            = vtitulo.item(i).selectSingleNode("./colaborador/imgThumb").text
            diretoria    = vtitulo.item(i).selectSingleNode("./colaborador/diretoria").text
            response.write "nome: " & nome & "<BR><BR>"
            response.write "img: " & img & "<BR><BR>"
            response.write "diretoria: " & diretoria & "<BR><BR>"
        next
    end if
next

Agosto 19, 2010

RESOLVIDO...

so mudei de request.form para request e funcionou...

pode fechar, parece que eu abri erroneamente dois topicos...Desculpe...

Abs

Agosto 19, 2010

Você pode montar um ajax, faz a verificação em outra página e você pode so imprimir na pagina um OK caso não encontre o registro no banco...

Agosto 19, 2010

Bom dia povo.

Seguinte, sou novo no forum e não consegui resolver meu problema procurando na internet, to tão enrolado que não tenho nem certeza se é um problema de asp,ajax ou sql.

Peço ajuda ao moderador para mudar o tópico de lugar caso ele julgue necessario.

O problema: faço uma busca passando como parâmetro uma string que é o value de um input do tipo select, e exibo o resultado por ajax dentro de uma div.

Funciona sem nenhum problema para palavras sem caracteres especiais.

Mas caso a palavra tenha algum caracter especial não funciona, ate aisem grandes surpresas.

Mas a grande ZICA mesmo está no fato de que a string onde eu monto o select está correta, eu imprimo o resultado dela na tela, copio/colo e rodo no banco e funciona, so na aplicação que não está funcionando.

O código das páginas:

pesquisa_TUSS.asp


<!--#INCLUDE FILE="../etc/servicos/lib/DB_amil11.asp" -->
<!--#INCLUDE file="../etc/servicos/lib/UDF_string.asp" -->
	<!--#INCLUDE file="Functions/class.asp" -->
    <!--#INCLUDE file="Functions/Functions.asp" -->
<% 
Session("tituloPagina") = "TUSS"
Session("hideHeader") = "1"
Session("breadcrumb") = ""
Session("imgTopo") = "topo_tuss.jpg"
Session("aba") = "4"
db_Conecta Conn, "AmilServicos"
%>
<!--#include file="inc/header.aspx" -->
<html>
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
	<title>Pesquisa TUSS</title>
</head>
&lt;script language="javascript">
	//*************************************************************//
	//******** ajax ***********************************************//
	//*************************************************************//
	//A função abaixo pega a versão mais nova do xmlhttp do IE e verifica se é Firefox. Funciona nos dois.
	function createXMLHTTP()
	{
		try
		{
		 ajax = new ActiveXObject("Microsoft.XMLHTTP");
		}
		catch(e)
		{
			try
			{
				ajax = new ActiveXObject("Msxml2.XMLHTTP");
			}
			catch(ex)
			{
					try
					{
						ajax = new XMLHttpRequest();
					}
					catch(exc)
					{
						 alert("Esse browser não tem recursos para uso do Ajax");
						 ajax = null;
					}
			}
			return ajax;
		}         
	   var arrSignatures = ["MSXML2.XMLHTTP.5.0", "MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP", "Microsoft.XMLHTTP"];
	   for (var i=0; i < arrSignatures.length; i++) { 
			try {
			   var oRequest = new ActiveXObject(arrSignatures[i]);
			   return oRequest;
			} catch (oError) {
			}
		}
		throw new Error("MSXML is not installed on your system.");
	}

	function ajax_tuss(tipo,variavel,subgrupo)
	{
		alert(variavel);
		// Criação do objeto XMLHTTP
		var oHTTPRequest = createXMLHTTP();
		// Abrindo a solicitação HTTP. O primeiro parâmetro informa o método post/get
		// O segundo parâmetro informa o arquivo solicitado que pode ser asp, php, txt, xml, etc.
		// O terceiro parametro informa que a solicitacao não assincrona,
		// Para solicitação síncrona, o parâmetro deve ser false
		oHTTPRequest.open("post", "ajax_tuss.asp?tipo="+tipo+"&variavel="+variavel+"&subgrupo="+subgrupo, true);
		// Para solicitações utilizando o método post, deve ser acrescentado este cabecalho HTTP
		oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
		// A função abaixo é executada sempre que o estado do objeto muda (onreadystatechange)
		oHTTPRequest.onreadystatechange=function()
		{
				// O valor 4 significa que o objeto já completou a solicitação
				if (oHTTPRequest.readyState==4)
				{
					// Abaixo o texto é gerado no arquivo ajax_login.asp e colocado no div
					document.all.div_tuss.innerHTML = oHTTPRequest.responseText;
				}
		}
		// Abaixo é enviada a solicitação. Note que a configuração
		// do evento onreadystatechange deve ser feita antes do send.
		oHTTPRequest.send("tipo=" + tipo + "&variavel=" + variavel + "&subgrupo=" + subgrupo);
	}

	function ajax_subgrupo(grupo)
	{
		// Criação do objeto XMLHTTP
		var oHTTPRequest = createXMLHTTP();
		// Abrindo a solicitação HTTP. O primeiro parâmetro informa o método post/get
		// O segundo parâmetro informa o arquivo solicitado que pode ser asp, php, txt, xml, etc.
		// O terceiro parametro informa que a solicitacao não assincrona,
		// Para solicitação síncrona, o parâmetro deve ser false
		oHTTPRequest.open("post", "ajax_tuss_subgrupo.asp?grupo="+grupo, true);
		// Para solicitações utilizando o método post, deve ser acrescentado este cabecalho HTTP
		oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
		// A função abaixo é executada sempre que o estado do objeto muda (onreadystatechange)
		oHTTPRequest.onreadystatechange=function()
		{
				// O valor 4 significa que o objeto já completou a solicitação
				if (oHTTPRequest.readyState==4)
				{
					// Abaixo o texto é gerado no arquivo ajax_login.asp e colocado no div
					document.all.div_subgrupo.innerHTML = oHTTPRequest.responseText;
				}
		}
		// Abaixo é enviada a solicitação. Note que a configuração
		// do evento onreadystatechange deve ser feita antes do send.
		oHTTPRequest.send("grupo=" + grupo);
	}
</script>
<body>
	<table>
    <form name="frm_tuss">
    	<tr>
        	<td>Selecionar especialidade:</td>
        	<td>
				<%
				strSQL = Empty
				strSQL = strSQL & "SELECT"
				strSQL = strSQL & "	ESPECIALIDADE "
				strSQL = strSQL & "FROM"
				strSQL = strSQL & "	dboIntra_TUSS "
				strSQL = strSQL & "GROUP BY"
				strSQL = strSQL & "	ESPECIALIDADE "
				strSQL = strSQL & "ORDER BY"
				strSQL = strSQL & "	ESPECIALIDADE"
				' Response.Write(strSQL)
				' Response.End()
				Set rsCboEspecialidade = Conn.Execute(strSQL)
				%>
            	<select name="espec_tuss">
                	<%
					If Not rsCboEspecialidade.EOF then
						While Not rsCboEspecialidade.EOF
							%>
							<option value="<%=Replace(rsCboEspecialidade("ESPECIALIDADE")," ","_")%>"><%=rsCboEspecialidade("ESPECIALIDADE")%></option>
						  <%
							rsCboEspecialidade.MoveNext
						Wend
					Else
						Response.Write("Nenhuma Especialidade Encontrada.")
					End If
					%>
                	<!--<option value="0">Teste Especialidade</option>-->
                </select>
            </td>
        	<td>
            	<input type="button" name="btn_espec_tuss" value="Pesquisar" onClick="ajax_tuss(1,document.frm_tuss.espec_tuss.value,'');">
            </td>
        </tr>
    	<tr>
        	<td>Digite o código TUSS:</td>
        	<td>
            	<input type="text" name="cod_tuss" maxlength="8">
            </td>
        	<td>
            	<input type="button" name="btn_cod_tuss" value="Pesquisar" onClick="ajax_tuss(2,document.frm_tuss.cod_tuss.value)">
            </td>
        </tr>
    	<tr>
        	<td>Busca palavra na descrição TUSS:</td>
        	<td>
            	<input type="text" name="desc_tuss">
            </td>
        	<td>
            	<input type="button" name="btn_desc_tuss" value="Pesquisar" onClick="ajax_tuss(3,document.frm_tuss.desc_tuss.value)">
            </td>
        </tr>
    	<tr>
        	<td>Busca palavra na descrição AMB</td>
        	<td>
            	<input type="text" name="desc_amd">
            </td>
        	<td>
            	<input type="button" name="btn_desc_amd" value="Pesquisar" onClick="ajax_tuss(4,document.frm_tuss.desc_amd.value)">
            </td>
        </tr>
    	<tr>
        	<td>Selecione o Grupo/Sub-Grupo TUSS</td>
        	<td>
            	<select name="grupo_tuss" onChange="ajax_subgrupo(this.value);">
					<%
                    strSQL = Empty
                    strSQL = strSQL & "SELECT"
                    strSQL = strSQL & "	GRUPO "
                    strSQL = strSQL & "FROM"
                    strSQL = strSQL & "	dboIntra_TUSS "
                    strSQL = strSQL & "GROUP BY"
                    strSQL = strSQL & "	GRUPO "
                    strSQL = strSQL & "ORDER BY"
                    strSQL = strSQL & "	GRUPO"
                    ' Response.Write(strSQL)
                    ' Response.End()
                    Set rsCboGrupo = Conn.Execute(strSQL)
                    If Not rsCboGrupo.EOF then
                        While Not rsCboGrupo.EOF
                            %>
                            <option value="<%=Replace(rsCboGrupo("GRUPO")," ","_")%>"><%=rsCboGrupo("GRUPO")%></option>
                            <%
                            rsCboGrupo.MoveNext
                        Wend
                    Else
                        Response.Write("Nenhuma Especialidade Encontrada.")
                    End If
                    %>

                	<!--<option value="">--Grupo--</option>-->
                </select>
                <div name="div_subgrupo">
                    <select name="subgrupo" disabled>
                        <option value="">--Sub-Grupo--</option>
                    </select>
                    <input type="hidden" name="subgrupo_tuss" value="">
                </div>
            </td>
        	<td>
            	<input type="button" name="btn_desc_amd" value="Pesquisar" onClick="ajax_tuss(5,document.frm_tuss.grupo_tuss.value,document.frm_tuss.subgrupo_tuss.value)">
            </td>
        </tr>
        <tr>
        	<td colspan="3">
            	<div name="div_tuss" id="div_tuss"></div>
            </td>
        </tr>
</form>
	</table>
</body>
</html>
<!--#include file="inc/footer.aspx" -->
[/codebox]

ajax_tuss.asp

[codebox]

<%
db_Conecta Conn, "AmilServicos"
'*************************************
'*** DECLARANDO VARIÁVEIS - INICIO ***
'*************************************
Dim Tipo
Dim Variavel
Dim SubGrupo
Dim strSQL
Dim rs
'*************************************
'*** DECLARANDO VARIÁVEIS - FIM ***
'*************************************

'************************************
'*** INICIANDO VARIÁVEIS - INICIO ***
'************************************
Tipo = Request.Form("tipo")
Variavel = CStr(Replace(Request.Form("variavel"),"_"," "))
SubGrupo = Request.Form("subgrupo")
'************************************
'*** INICIANDO VARIÁVEIS - FIM ***
'************************************

'response.write("Tipo - " & Tipo & "<br>")
'response.write("Variavel - " & Variavel & "<br>")
'response.write("SubGrupo - " & SubGrupo)
'response.end()

'**************************************************************
'*** VERIFICO QUAL O TIPO DA FILTRAGEM SELECIONADO - INICIO ***
'**************************************************************
Select Case(Tipo)
Case 1 '*** Especialidade ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " ESPECIALIDADE = '" & Variavel & "'"
Case 2 '*** Código TUSS ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " COD_TUSS = '" & Variavel & "'"
Case 3 '*** Palavra na Descrição do TUSS ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " PROC_TUSS LIKE '% '" & Variavel & "%'"
Case 4 '*** Palavra na Descrição AMB ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " DESC_AMD LIKE '% '" & Variavel & "%'"
Case 5 '*** Grupo/Subgrupo ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " GRUPO = '" & Variavel & "'"
If SubGrupo <> "" Or Not Isnull(SubGrupo) then
strSQL = strSQL & " SUBGRUPO = '" & SubGrupo & "'"
End If

End Select
'**************************************************************
'*** VERIFICO QUAL O TIPO DA FILTRAGEM SELECIONADO - FIM ***
'**************************************************************
Response.Write("Variavel - " & Variavel & "<br>")
Response.Write(strSQL)
'Response.End()
Set rs = Conn.Execute(strSQL)

'response.Write(rs.)

if not rs.eof then
Response.Write("<table>")
Response.Write("<tr>")
Response.Write("<td>")
Response.Write("Código TUSS")
Response.Write("</td>")
Response.Write("<td>")
Response.Write("Procedimento TUSS")
Response.Write("</td>")
Response.Write("<td>")
Response.Write("Especialidade TUSS")
Response.Write("</td>")
Response.Write("</tr>")
While Not rs.eof
Response.Write("<tr>")
Response.Write("<td>")
Response.Write(rs("COD_TUSS"))
Response.Write("</td>")
Response.Write("<td>")
Response.Write(rs("PROC_TUSS"))
Response.Write("</td>")
Response.Write("<td>")
Response.Write(rs("ESPECIALIDADE"))
Response.Write("</td>")
rs.MoveNext
Response.Write("</tr>")
Wend
Response.Write("</tr>")
Response.Write("</table>")
else
Response.Write("Não encontrado!")
end if
%>

No arquivo pesquisa_TUSS.asp eu estou selecionando no primeiro combo uma opção qualquer, ai o resultado vai ser gerado no ajax_tuss.asp.

O parametro enviado pela página pesquisa_TUSS.asp vai com os acentos, eu recupero ele ajax_tuss.asp acentuado e tudo certo, monto a string do select e ele não funciona.

Vou testar agora o collation no banco para ver se me ajuda, caso alguém possa me dar mais ideias fico agradecido desde já.

Att.

Agosto 19, 2010

Bom dia povo.

Seguinte, sou novo no forum e não consegui resolver meu problema procurando na internet, to tão enrolado que não tenho nem certeza se é um problema de asp,ajax ou sql.

Peço ajuda ao moderador para mudar o tópico de lugar caso ele julgue necessario.

O problema: faço uma busca passando como parâmetro uma string que é o value de um input do tipo select, e exibo o resultado por ajax dentro de uma div.

Funciona sem nenhum problema para palavras sem caracteres especiais.

Mas caso a palavra tenha algum caracter especial não funciona, ate aisem grandes surpresas.

Mas a grande ZICA mesmo está no fato de que a string onde eu monto o select está correta, eu imprimo o resultado dela na tela, copio/colo e rodo no banco e funciona, so na aplicação que não está funcionando.

O código das páginas:

pesquisa_TUSS.asp


<!--#INCLUDE FILE="../etc/servicos/lib/DB_amil11.asp" -->
<!--#INCLUDE file="../etc/servicos/lib/UDF_string.asp" -->
	<!--#INCLUDE file="Functions/class.asp" -->
    <!--#INCLUDE file="Functions/Functions.asp" -->
<% 
Session("tituloPagina") = "TUSS"
Session("hideHeader") = "1"
Session("breadcrumb") = ""
Session("imgTopo") = "topo_tuss.jpg"
Session("aba") = "4"
db_Conecta Conn, "AmilServicos"
%>
<!--#include file="inc/header.aspx" -->
<html>
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
	<title>Pesquisa TUSS</title>
</head>
&lt;script language="javascript">
	//*************************************************************//
	//******** ajax ***********************************************//
	//*************************************************************//
	//A função abaixo pega a versão mais nova do xmlhttp do IE e verifica se é Firefox. Funciona nos dois.
	function createXMLHTTP()
	{
		try
		{
		 ajax = new ActiveXObject("Microsoft.XMLHTTP");
		}
		catch(e)
		{
			try
			{
				ajax = new ActiveXObject("Msxml2.XMLHTTP");
			}
			catch(ex)
			{
					try
					{
						ajax = new XMLHttpRequest();
					}
					catch(exc)
					{
						 alert("Esse browser não tem recursos para uso do Ajax");
						 ajax = null;
					}
			}
			return ajax;
		}         
	   var arrSignatures = ["MSXML2.XMLHTTP.5.0", "MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP", "Microsoft.XMLHTTP"];
	   for (var i=0; i < arrSignatures.length; i++) { 
			try {
			   var oRequest = new ActiveXObject(arrSignatures[i]);
			   return oRequest;
			} catch (oError) {
			}
		}
		throw new Error("MSXML is not installed on your system.");
	}

	function ajax_tuss(tipo,variavel,subgrupo)
	{
		alert(variavel);
		// Criação do objeto XMLHTTP
		var oHTTPRequest = createXMLHTTP();
		// Abrindo a solicitação HTTP. O primeiro parâmetro informa o método post/get
		// O segundo parâmetro informa o arquivo solicitado que pode ser asp, php, txt, xml, etc.
		// O terceiro parametro informa que a solicitacao não assincrona,
		// Para solicitação síncrona, o parâmetro deve ser false
		oHTTPRequest.open("post", "ajax_tuss.asp?tipo="+tipo+"&variavel="+variavel+"&subgrupo="+subgrupo, true);
		// Para solicitações utilizando o método post, deve ser acrescentado este cabecalho HTTP
		oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
		// A função abaixo é executada sempre que o estado do objeto muda (onreadystatechange)
		oHTTPRequest.onreadystatechange=function()
		{
				// O valor 4 significa que o objeto já completou a solicitação
				if (oHTTPRequest.readyState==4)
				{
					// Abaixo o texto é gerado no arquivo ajax_login.asp e colocado no div
					document.all.div_tuss.innerHTML = oHTTPRequest.responseText;
				}
		}
		// Abaixo é enviada a solicitação. Note que a configuração
		// do evento onreadystatechange deve ser feita antes do send.
		oHTTPRequest.send("tipo=" + tipo + "&variavel=" + variavel + "&subgrupo=" + subgrupo);
	}

	function ajax_subgrupo(grupo)
	{
		// Criação do objeto XMLHTTP
		var oHTTPRequest = createXMLHTTP();
		// Abrindo a solicitação HTTP. O primeiro parâmetro informa o método post/get
		// O segundo parâmetro informa o arquivo solicitado que pode ser asp, php, txt, xml, etc.
		// O terceiro parametro informa que a solicitacao não assincrona,
		// Para solicitação síncrona, o parâmetro deve ser false
		oHTTPRequest.open("post", "ajax_tuss_subgrupo.asp?grupo="+grupo, true);
		// Para solicitações utilizando o método post, deve ser acrescentado este cabecalho HTTP
		oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
		// A função abaixo é executada sempre que o estado do objeto muda (onreadystatechange)
		oHTTPRequest.onreadystatechange=function()
		{
				// O valor 4 significa que o objeto já completou a solicitação
				if (oHTTPRequest.readyState==4)
				{
					// Abaixo o texto é gerado no arquivo ajax_login.asp e colocado no div
					document.all.div_subgrupo.innerHTML = oHTTPRequest.responseText;
				}
		}
		// Abaixo é enviada a solicitação. Note que a configuração
		// do evento onreadystatechange deve ser feita antes do send.
		oHTTPRequest.send("grupo=" + grupo);
	}
</script>
<body>
	<table>
    <form name="frm_tuss">
    	<tr>
        	<td>Selecionar especialidade:</td>
        	<td>
				<%
				strSQL = Empty
				strSQL = strSQL & "SELECT"
				strSQL = strSQL & "	ESPECIALIDADE "
				strSQL = strSQL & "FROM"
				strSQL = strSQL & "	dboIntra_TUSS "
				strSQL = strSQL & "GROUP BY"
				strSQL = strSQL & "	ESPECIALIDADE "
				strSQL = strSQL & "ORDER BY"
				strSQL = strSQL & "	ESPECIALIDADE"
				' Response.Write(strSQL)
				' Response.End()
				Set rsCboEspecialidade = Conn.Execute(strSQL)
				%>
            	<select name="espec_tuss">
                	<%
					If Not rsCboEspecialidade.EOF then
						While Not rsCboEspecialidade.EOF
							%>
							<option value="<%=Replace(rsCboEspecialidade("ESPECIALIDADE")," ","_")%>"><%=rsCboEspecialidade("ESPECIALIDADE")%></option>
						  <%
							rsCboEspecialidade.MoveNext
						Wend
					Else
						Response.Write("Nenhuma Especialidade Encontrada.")
					End If
					%>
                	<!--<option value="0">Teste Especialidade</option>-->
                </select>
            </td>
        	<td>
            	<input type="button" name="btn_espec_tuss" value="Pesquisar" onClick="ajax_tuss(1,document.frm_tuss.espec_tuss.value,'');">
            </td>
        </tr>
    	<tr>
        	<td>Digite o código TUSS:</td>
        	<td>
            	<input type="text" name="cod_tuss" maxlength="8">
            </td>
        	<td>
            	<input type="button" name="btn_cod_tuss" value="Pesquisar" onClick="ajax_tuss(2,document.frm_tuss.cod_tuss.value)">
            </td>
        </tr>
    	<tr>
        	<td>Busca palavra na descrição TUSS:</td>
        	<td>
            	<input type="text" name="desc_tuss">
            </td>
        	<td>
            	<input type="button" name="btn_desc_tuss" value="Pesquisar" onClick="ajax_tuss(3,document.frm_tuss.desc_tuss.value)">
            </td>
        </tr>
    	<tr>
        	<td>Busca palavra na descrição AMB</td>
        	<td>
            	<input type="text" name="desc_amd">
            </td>
        	<td>
            	<input type="button" name="btn_desc_amd" value="Pesquisar" onClick="ajax_tuss(4,document.frm_tuss.desc_amd.value)">
            </td>
        </tr>
    	<tr>
        	<td>Selecione o Grupo/Sub-Grupo TUSS</td>
        	<td>
            	<select name="grupo_tuss" onChange="ajax_subgrupo(this.value);">
					<%
                    strSQL = Empty
                    strSQL = strSQL & "SELECT"
                    strSQL = strSQL & "	GRUPO "
                    strSQL = strSQL & "FROM"
                    strSQL = strSQL & "	dboIntra_TUSS "
                    strSQL = strSQL & "GROUP BY"
                    strSQL = strSQL & "	GRUPO "
                    strSQL = strSQL & "ORDER BY"
                    strSQL = strSQL & "	GRUPO"
                    ' Response.Write(strSQL)
                    ' Response.End()
                    Set rsCboGrupo = Conn.Execute(strSQL)
                    If Not rsCboGrupo.EOF then
                        While Not rsCboGrupo.EOF
                            %>
                            <option value="<%=Replace(rsCboGrupo("GRUPO")," ","_")%>"><%=rsCboGrupo("GRUPO")%></option>
                            <%
                            rsCboGrupo.MoveNext
                        Wend
                    Else
                        Response.Write("Nenhuma Especialidade Encontrada.")
                    End If
                    %>

                	<!--<option value="">--Grupo--</option>-->
                </select>
                <div name="div_subgrupo">
                    <select name="subgrupo" disabled>
                        <option value="">--Sub-Grupo--</option>
                    </select>
                    <input type="hidden" name="subgrupo_tuss" value="">
                </div>
            </td>
        	<td>
            	<input type="button" name="btn_desc_amd" value="Pesquisar" onClick="ajax_tuss(5,document.frm_tuss.grupo_tuss.value,document.frm_tuss.subgrupo_tuss.value)">
            </td>
        </tr>
        <tr>
        	<td colspan="3">
            	<div name="div_tuss" id="div_tuss"></div>
            </td>
        </tr>
</form>
	</table>
</body>
</html>
<!--#include file="inc/footer.aspx" -->
[/codebox]

ajax_tuss.asp

[codebox]
<%
db_Conecta Conn, "AmilServicos"
'*************************************
'*** DECLARANDO VARIÁVEIS - INICIO ***
'*************************************
Dim Tipo
Dim Variavel
Dim SubGrupo
Dim strSQL
Dim rs
'*************************************
'*** DECLARANDO VARIÁVEIS - FIM ***
'*************************************

'************************************
'*** INICIANDO VARIÁVEIS - INICIO ***
'************************************
Tipo = Request.Form("tipo")
Variavel = CStr(Replace(Request.Form("variavel"),"_"," "))
SubGrupo = Request.Form("subgrupo")
'************************************
'*** INICIANDO VARIÁVEIS - FIM ***
'************************************

'response.write("Tipo - " & Tipo & "<br>")
'response.write("Variavel - " & Variavel & "<br>")
'response.write("SubGrupo - " & SubGrupo)
'response.end()

'**************************************************************
'*** VERIFICO QUAL O TIPO DA FILTRAGEM SELECIONADO - INICIO ***
'**************************************************************
Select Case(Tipo)
Case 1 '*** Especialidade ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " ESPECIALIDADE = '" & Variavel & "'"
Case 2 '*** Código TUSS ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " COD_TUSS = '" & Variavel & "'"
Case 3 '*** Palavra na Descrição do TUSS ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " PROC_TUSS LIKE '% '" & Variavel & "%'"
Case 4 '*** Palavra na Descrição AMB ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " DESC_AMD LIKE '% '" & Variavel & "%'"
Case 5 '*** Grupo/Subgrupo ***
strSQL = Empty
strSQL = strSQL & "SELECT"
strSQL = strSQL & " * "
strSQL = strSQL & "FROM"
strSQL = strSQL & " dboIntra_TUSS "
strSQL = strSQL & "WHERE"
strSQL = strSQL & " GRUPO = '" & Variavel & "'"
If SubGrupo <> "" Or Not Isnull(SubGrupo) then
strSQL = strSQL & " SUBGRUPO = '" & SubGrupo & "'"
End If

End Select
'**************************************************************
'*** VERIFICO QUAL O TIPO DA FILTRAGEM SELECIONADO - FIM ***
'**************************************************************
Response.Write("Variavel - " & Variavel & "<br>")
Response.Write(strSQL)
'Response.End()
Set rs = Conn.Execute(strSQL)

'response.Write(rs.)

if not rs.eof then
Response.Write("<table>")
Response.Write("<tr>")
Response.Write("<td>")
Response.Write("Código TUSS")
Response.Write("</td>")
Response.Write("<td>")
Response.Write("Procedimento TUSS")
Response.Write("</td>")
Response.Write("<td>")
Response.Write("Especialidade TUSS")
Response.Write("</td>")
Response.Write("</tr>")
While Not rs.eof
Response.Write("<tr>")
Response.Write("<td>")
Response.Write(rs("COD_TUSS"))
Response.Write("</td>")
Response.Write("<td>")
Response.Write(rs("PROC_TUSS"))
Response.Write("</td>")
Response.Write("<td>")
Response.Write(rs("ESPECIALIDADE"))
Response.Write("</td>")
rs.MoveNext
Response.Write("</tr>")
Wend
Response.Write("</tr>")
Response.Write("</table>")
else
Response.Write("Não encontrado!")
end if
%>

No arquivo pesquisa_TUSS.asp eu estou selecionando no primeiro combo uma opção qualquer, ai o resultado vai ser gerado no ajax_tuss.asp.

O parametro enviado pela página pesquisa_TUSS.asp vai com os acentos, eu recupero ele ajax_tuss.asp acentuado e tudo certo, monto a string do select e ele não funciona.

Vou testar agora o collation no banco para ver se me ajuda, caso alguém possa me dar mais ideias fico agradecido desde já.

Att.

Entrar

Marcos Chopps

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Marcos Chopps

Leitura e Gravação de XML

Leitura e Gravação de XML

Leitura e Gravação de XML

Leitura e Gravação de XML

Leitura e Gravação de XML

(Resolvido) Leitura XML com filtragem

(Resolvido) Leitura XML com filtragem

[RESOLVIDO]Problemas ao Retornar dados de um Select com Acentos

Verifica se CPF e/ou Login já existe

[RESOLVIDO]Problemas ao Retornar dados de um Select com Acentos

[RESOLVIDO]Problemas ao Retornar dados de um Select com Acentos

Navegação

Atividades