XML e Asp

Oi voce deve estar querendo é xmlhttp é isto?Ter acesso a informações de um site atravez de outro, mesmo com servidor diferente.isto? :(

Oi voce deve estar querendo é xmlhttp é isto?Ter acesso a informações de um site atravez de outro, mesmo com servidor diferente.isto? :(

Sem querer atrapalhar a discussão, mas só para aproveitar o tópico. Faz uma semana que estou vendo isso(buscar o resultado de uma consulta em XML que está em outro servidor e trazer para minha página), e está meio complicado.Por acaso poderia me auxiliar?

Tutorial: ASP e XML

Tutorial: ASP e XML

Fala aí, tudo bem?Você teria alguma coisa sobre o meu problema que descrevi acima?

velho.. naum manjo nada de xml.. mas tenho uma rotina q tive q implantar num site do F2B... eh justamente isso.. eu preparo os dados... mando pela pagina... e na mesma pagina ele processa e me retorna a resposta... se quiser o script te passo.. naum eh bem o q precisa, mas ja eh uma implantação do q você quer...

Este codigo captura a pagina asp retornando sua html , se for fazer uma busca na pagina conheça a querystring utilizada na mesma.

Vamos supor que voce queira busca no google a palavra (asp) e a querystring fosse www.google.com.br/buscando.asp?busca=asp

entao te retornaria a html da pagina solicitada.

Voce tambem pode selecionar uma tabela onde serão exibidos os livros em promoção de um site de livros, para isto tudo tem que mexer na função mid()

O xmlhttp acho que por ser americano hehehe não aceita acentos se precisar tenho a função acento.

Espero ter ajudado

<%@ Language=VBScript %><%Response.Buffer=True%><font size='3' color='red'>ESTE CODIGO FOI TESTADO EM OFF LINE O RETORNO E POSITIVO,<br> DESDE QUE A PAGINA CHAMADA "EX:PAGINACAO.ASP"<br>TENHA SIDO VISITADA(ESTANDO DO CACHE DA MAQUINA OFF)<br>Caso contrario tera um erro de cabecalho, pedindo o uso do "www"</font><br><%Set cod = Server.CreateObject("Microsoft.XMLHTTP")cod.open "GET","http://wagner/paginacao.asp", falsecod.send()pega = cod.ResponseTextcotacao = LCase(pega)Set cod = Nothingresponse.write "<center><font color='#336699' size='5'> testando xmlhttp retornando html de paginas</center>"response.write "<hr /><p />"&cotacaocotacao = trim(replace(cotacao," ",""))       'trocando espacos por vazioIf request("value") ="" thenvalor="total:"elsevalor = (request("value"))end ifx = instr(cotacao,"total:")              'aqui sera  resgatado o numero inicial para o midtotal = Mid(cotacao,x,16)                  'capturando texto inicio e fimresponse.write "<p />"& total: %>

velho.. naum manjo nada de xml.. mas tenho uma rotina q tive q implantar num site do F2B... eh justamente isso.. eu preparo os dados... mando pela pagina... e na mesma pagina ele processa e me retorna a resposta... se quiser o script te passo.. naum eh bem o q precisa, mas ja eh uma implantação do q você quer...

Pode mandar pra eu dar uma olhada? Grato.

>
Este codigo captura a pagina asp retornando sua html , se for fazer uma busca na pagina conheça a querystring utilizada na mesma.Vamos supor que voce queira busca no google a palavra (asp) e a querystring fosse www.google.com.br/buscando.asp?busca=aspentao te retornaria a html da pagina solicitada.Voce tambem pode selecionar uma tabela onde serão exibidos os livros em promoção de um site de livros, para isto tudo tem que mexer na função mid()O xmlhttp acho que por ser americano hehehe não aceita acentos se precisar tenho a função acento.Espero ter ajudado

<%@ Language=VBScript %><%Response.Buffer=True%><font size='3' color='red'>ESTE CODIGO FOI TESTADO EM OFF LINE O RETORNO E POSITIVO,<br> DESDE QUE A PAGINA CHAMADA "EX:PAGINACAO.ASP"<br>TENHA SIDO VISITADA(ESTANDO DO CACHE DA MAQUINA OFF)<br>Caso contrario tera um erro de cabecalho, pedindo o uso do "www"</font><br><%Set cod = Server.CreateObject("Microsoft.XMLHTTP")cod.open "GET","[http://wagner/paginacao.asp",](http://wagner/paginacao.asp) falsecod.send()pega = cod.ResponseTextcotacao = LCase(pega)Set cod = Nothingresponse.write "<center><font color='#336699' size='5'> testando xmlhttp retornando html de paginas</center>"response.write "<hr /><p />"&cotacaocotacao = trim(replace(cotacao," ",""))       'trocando espacos por vazioIf request("value") ="" thenvalor="total:"elsevalor = (request("value"))end ifx = instr(cotacao,"total:")              'aqui sera  resgatado o numero inicial para o midtotal = Mid(cotacao,x,16)                  'capturando texto inicio e fimresponse.write "<p />"& total: %>

 Valeu obrigado... vou tentar adaptar...

kd o xml

kd o xml

ehehe.. entojado...O kra ta mostrando como funciona basicamente o "com"