Marcos Chopps

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.

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

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.

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?

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.

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" -->

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

RESOLVIDO... so mudei de request.form para request e funcionou... pode fechar, parece que eu abri erroneamente dois topicos...Desculpe... Abs

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...

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] <!--#INCLUDE FILE="../etc/servicos/lib/DB_amil11.asp" --> <% 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.

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]<!--#INCLUDE FILE="../etc/servicos/lib/DB_amil11.asp" --> <% 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.