Fetche side ?

Øhh, jeg er ikke lige helt med?!

Vil du hente dine querys så gør du sådan her:

Response.Write(Request.QueryString("error"))

Fx.!

//>Rune

Set objXML = CreateObject("MSXML2.XMLHTTP")
objXML.Open "GET", "http://www.domain.dk/siden.asp", True
objXML.Send
strResponse = objXML.ResponseText
Set objXML = Nothing
Response.Write strResponse

Denne kode henter simpelthen det som siden svarer, det som ellers ville blive sendt til browseren. Men du kan også bruge det til at post'e eller get'e serverside.

ldanielsen >> Det vil jeg lige lure lidt på jeg vender tilbage senere :o)

Bedre sent end aldrig men jeg glemte nok at sige at jeg skal trække i en php side og når jeg gør det får jeg denne fejl :

msxml3.dll error '8000000a'

The data necessary to complete this operation is not yet available.

/xml.asp, line 14

hvilket er i denne linie :

strResponse = objXML.ResponseText

giver det nogen mening ?

Ja, det er fordi siden svarer for langsomt.



Du kan spørge efter objXML.Readystate, jeg mener at den er 4 når siden er klar.

Lav et loop, der kører intil Readystate = 4, eller i max et antal sekunder

Jeg er nok lidt nybegynder/dum på dette område kunne du give et eksempel :o) ?

Kan man ikke bare sætte den default til 90 sekunders ventetid ?

Eller en helt anden ting en af mine kolegaer siger at det skulle være muligt at bruge curl under asp kender du noget til det ?

EndTime = DateAdd("s", 60, Now())
do while Now() < EndTime
    if objXml.ReadyState = 4 then exit do
loop

Hvad er curl

Ok og hvor sætter jeg så den anden kode ind ?

curl er noget der bruges under php men som skulle kunne køre under asp og det bruges til netop at fetche sider med :o)

Set objXML = CreateObject("MSXML2.XMLHTTP")
objXML.Open "GET", "http://www.domain.dk/siden.asp", True
objXML.Send


EndTime = DateAdd("s", 60, Now())
do while Now() < EndTime
    if objXml.ReadyState = 4 then exit do
loop


strResponse = objXML.ResponseText
Set objXML = Nothing
Response.Write strResponse

Eller:

Set objXML = CreateObject("MSXML2.XMLHTTP")
objXML.Open "GET", "http://www.domain.dk/siden.asp", True
objXML.Send


EndTime = DateAdd("s", 60, Now())
do while Now() < EndTime
    if objXml.ReadyState = 4 then exit do
loop

if objXml.ReadyState = 4 then
  strResponse = objXML.ResponseText
else
  strResponse = "Fejl"
end if

Set objXML = Nothing
Response.Write strResponse

Og du er sikker på at dette skulle kunne fetche en clear tekst side i .php format ? For hvis jeg loader siden på normal vis tager det ca 5-10 sekunder men med dit eks. skriver den blot fejl efter 60 sekunder ?

Siden jeg rykker i udskriver følgende hvis jeg loader den i en browser :

False&-5&TransType Not Valid&Declined

og det er som sagt i clear tekst så jeg er lidt i tvivl om jeg overhovedet kan bruge dit eksempel til det ?!?

Jeg har imellemtiden fundet frem til at ReadyState har følgende 3 svar :

4 = Alle data er modtaget
3 = Data motages stadig
2 = Siden er loaded venter på at modtage data

men hvis jeg udskriver ReadyState får jeg "1" og den kan jeg ikke lige finde frem til hvad skal betyde.

Du skrev således :

objXML.Open "GET", "http://www.domain.dk/siden.asp", True

men hvis jeg ændre den til :

objXML.Open "GET", "http://www.domain.dk/siden.asp", False

så jeg ved ikke om du har skrevet fejl men det virker når der ændres til False :o)

Oh!

Husker desværre ikke lige hvad det argument betyder!