473,321 Members | 1,916 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,321 software developers and data experts.

ServerHTTPRequest

Hi people, I need some help with ServerHTTPRequest.

My question is: why can I load only the last rss? Somebody have any
idea?

Thanks a lot.
Example:
http://www.clas.com.br/loja/sedex.calculo.asp

Code:
Sub getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("news.xsl")

set source = Server.CreateObject("MSXML2.DomDocument")
source.async = false
source.setProperty "ServerHTTPRequest", true
source.load CStr( sourceFile )

'Se não for possível a conexão, mosta código de erro
Response.Write( "<br/> Código de Erro: " & source.parseerror )
Response.Write( "<br/> Código de Erro: " &
source.parseerror.reason )

set style = Server.CreateObject("Msxml2.DomDocument")
style.async = false
style.load styleFile

'source.transformNodeToObject style, Response
set source = nothing
set style = nothing
End Sub

Jun 27 '06 #1
4 6726

<ed**********@gmail.com> wrote in message
news:11*********************@75g2000cwc.googlegrou ps.com...

Hi people, I need some help with ServerHTTPRequest.

My question is: why can I load only the last rss? Somebody have any
idea?

Thanks a lot.


The code below seems fine although I'd use the more specific
MSXML2.DOMDocument.3.0
Prog ID. I'm afraid I find your question a very cryptic. In the link below
the first item results in a empty html file, the second is a raw xml, the
third is transformed to html and the forth returns raw xml.

Can you explain more clearly what your problem is?

Example:
http://www.clas.com.br/loja/sedex.calculo.asp

Code:
Sub getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("news.xsl")

set source = Server.CreateObject("MSXML2.DomDocument")
source.async = false
source.setProperty "ServerHTTPRequest", true
source.load CStr( sourceFile )

'Se não for possível a conexão, mosta código de erro
Response.Write( "<br/> Código de Erro: " & source.parseerror )
Response.Write( "<br/> Código de Erro: " &
source.parseerror.reason )

set style = Server.CreateObject("Msxml2.DomDocument")
style.async = false
style.load styleFile

'source.transformNodeToObject style, Response
set source = nothing
set style = nothing
End Sub
<<
Jun 27 '06 #2
Of course.

In the example ( http://www.clas.com.br/loja/sedex.calculo.asp ) I try
to load 4 feeds.
All the feeds, if access by browser are ok. But feeds 1, 2 and 3
loading using the code generate a -2147012867 error.

Only last feed works loaded by code, that's I don't undestand.

thanks a lot
Anthony Jones wrote:
<ed**********@gmail.com> wrote in message
news:11*********************@75g2000cwc.googlegrou ps.com...

Hi people, I need some help with ServerHTTPRequest.

My question is: why can I load only the last rss? Somebody have any
idea?

Thanks a lot.


The code below seems fine although I'd use the more specific
MSXML2.DOMDocument.3.0
Prog ID. I'm afraid I find your question a very cryptic. In the link below
the first item results in a empty html file, the second is a raw xml, the
third is transformed to html and the forth returns raw xml.

Can you explain more clearly what your problem is?

Example:
http://www.clas.com.br/loja/sedex.calculo.asp

Code:
Sub getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("news.xsl")

set source = Server.CreateObject("MSXML2.DomDocument")
source.async = false
source.setProperty "ServerHTTPRequest", true
source.load CStr( sourceFile )

'Se não for possível a conexão, mosta código de erro
Response.Write( "<br/> Código de Erro: " & source.parseerror )
Response.Write( "<br/> Código de Erro: " &
source.parseerror.reason )

set style = Server.CreateObject("Msxml2.DomDocument")
style.async = false
style.load styleFile

'source.transformNodeToObject style, Response
set source = nothing
set style = nothing
End Sub
<<


Jun 27 '06 #3

<ed**********@gmail.com> wrote in message
news:11**********************@y41g2000cwy.googlegr oups.com...
Of course.

In the example ( http://www.clas.com.br/loja/sedex.calculo.asp ) I try
to load 4 feeds.
All the feeds, if access by browser are ok. But feeds 1, 2 and 3
loading using the code generate a -2147012867 error.

Only last feed works loaded by code, that's I don't undestand.

thanks a lot
This error is:-

ERROR_WINHTTP_CANNOT_CONNECT

do you have an outgoing firewall and a proxy server in place?

Anthony Jones wrote: <ed**********@gmail.com> wrote in message
news:11*********************@75g2000cwc.googlegrou ps.com...

Hi people, I need some help with ServerHTTPRequest.

My question is: why can I load only the last rss? Somebody have any
idea?

Thanks a lot.

The code below seems fine although I'd use the more specific
MSXML2.DOMDocument.3.0
Prog ID. I'm afraid I find your question a very cryptic. In the link

below the first item results in a empty html file, the second is a raw xml, the
third is transformed to html and the forth returns raw xml.

Can you explain more clearly what your problem is?

Example:
http://www.clas.com.br/loja/sedex.calculo.asp

Code:
Sub getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("news.xsl")

set source = Server.CreateObject("MSXML2.DomDocument")
source.async = false
source.setProperty "ServerHTTPRequest", true
source.load CStr( sourceFile )

'Se não for possível a conexão, mosta código de erro
Response.Write( "<br/> Código de Erro: " & source.parseerror )
Response.Write( "<br/> Código de Erro: " &
source.parseerror.reason )

set style = Server.CreateObject("Msxml2.DomDocument")
style.async = false
style.load styleFile

'source.transformNodeToObject style, Response
set source = nothing
set style = nothing
End Sub
<<

Jun 27 '06 #4
Well, I don't have the server then I need ask to config for me.

The server people sad they create a rule in firewall to the file
"sedex.calculo.asp".
I really don't know other permissions that the script need.

thanks a lot
Anthony Jones wrote:
<ed**********@gmail.com> wrote in message
news:11**********************@y41g2000cwy.googlegr oups.com...
Of course.

In the example ( http://www.clas.com.br/loja/sedex.calculo.asp ) I try
to load 4 feeds.
All the feeds, if access by browser are ok. But feeds 1, 2 and 3
loading using the code generate a -2147012867 error.

Only last feed works loaded by code, that's I don't undestand.

thanks a lot


This error is:-

ERROR_WINHTTP_CANNOT_CONNECT

do you have an outgoing firewall and a proxy server in place?

Anthony Jones wrote:
<ed**********@gmail.com> wrote in message
news:11*********************@75g2000cwc.googlegrou ps.com...

Hi people, I need some help with ServerHTTPRequest.

My question is: why can I load only the last rss? Somebody have any
idea?

Thanks a lot.


The code below seems fine although I'd use the more specific
MSXML2.DOMDocument.3.0
Prog ID. I'm afraid I find your question a very cryptic. In the link

below
the first item results in a empty html file, the second is a raw xml, the
third is transformed to html and the forth returns raw xml.

Can you explain more clearly what your problem is?
>

Example:
http://www.clas.com.br/loja/sedex.calculo.asp

Code:
Sub getXML(sourceFile)
dim styleFile
dim source, style
styleFile = Server.MapPath("news.xsl")

set source = Server.CreateObject("MSXML2.DomDocument")
source.async = false
source.setProperty "ServerHTTPRequest", true
source.load CStr( sourceFile )

'Se não for possível a conexão, mosta código de erro
Response.Write( "<br/> Código de Erro: " & source.parseerror )
Response.Write( "<br/> Código de Erro: " &
source.parseerror.reason )

set style = Server.CreateObject("Msxml2.DomDocument")
style.async = false
style.load styleFile

'source.transformNodeToObject style, Response
set source = nothing
set style = nothing
End Sub
<<


Jun 27 '06 #5

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

1
by: mohit | last post by:
I am struggling for long time to display a GIF file on an ASP page. I have tried to return a GIF file in few formats from a webservice. Webservice returns the images as MemoryStream.GetBuffer()....
0
by: Fabien SK | last post by:
Hi, I am using "MSSOAP" as COM object and I would like to put a property to an object, but I can not make it work. My code looks like that: obj =...
0
by: Chuck | last post by:
Hello. I am trying to pass three parameters using this code in an asp page to an xsl page. I keep getting the following error: Microsoft VBScript runtime error '800a01a8' Object required: ''...
1
by: Justin Woodcock | last post by:
Hi, Is it possible to call an asp file that generates xslt using Objectname.load ? I have tried this script : <% Dim objXML, objXSL
1
by: bajopalabra | last post by:
hi this code bellow get data from a web service (tradicional asp) but result is not parsed into XML ... that is, JUST get "cat4" instead of "<animal><name>cat</name><legs>4</legs></animal> set...
0
by: jeffdegarmo | last post by:
I have a styleshee that displays XML data properly if I use <xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl"> . I know this isn't the right one to use. However, when I use <xsl:stylesheet...
1
by: Chuck | last post by:
Hello, I am having trouble loading the returned XML from a Webservice into my XSL. Any suggestions would be appreciated. ' Build custom HTTP header xmlServerHttp.open "POST",...
1
by: Subrato | last post by:
Hi, I am very new to xml and I have this piece of code which I took off a website. The situation is that on of the website, user files up a form and it is submitted. On submission, the page should...
1
by: bwilcoxis | last post by:
I have an externally generated xml file that correctly escaping characters such as apostrophes and quotes and rendering them as &amp;#8217; and &amp;#39; the xml file has the following...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.