Problemer med post til side

Du kan bruge en onreadystatechange, som du kan finde masser af info om vha. Google, eller du kan blot sætte zml.async=false.

Så venter den, til serveren er klar.

Dvs:

Function postURL(varURL)

    Dim objXMLHTTP, xml

    Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

    xml.Open "POST", varURL, False
    zml.async=false
    xml.setRequestHeader "content-type","text/html"
    xml.send

    postURL = xml.responseText

    Set xml = Nothing

End Function

hov..

Hjælper det at sætte xml.async = false ??
Er det ikke det samme der bliver gjort her:
xml.Open "POST", varURL, False <-- Hedder den ikke "open( method, URL, async) "

<%
Function postURL(varURL)

    Dim objXMLHTTP, xml

    Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

    xml.Open "POST", varURL, false
    xml.setRequestHeader "content-type","text/html"
    xml.send

    postURL = xml.responseText

    Set xml = Nothing

End Function

Response.Write "før test - " & postURL("http://www.DomainNotExist.dk") & " - efter tekst"
%>

Følgende giver bare dette resultat:

msxml3.dll error '80072ee7'
The server name or address could not be resolved
/test/testpostrequest.asp, line 11

Den skulle gerne bare køre siden videre, uden at "melde" fejl, men resultatet af burde være:
"før test - The server name or address could not be resolved - efter tekst" eller noget i den stil

Ja, tror du skal have fat i noget onreadystatechange.

Hmm...  Jeg sad og læste om det, og kunne ikke helt få det til at passe ind.. Hvordan syntes du den skal være?

har løst det midlertidigt sådan her:

Function postURL(varURL)
    On Error Resume Next

    Dim objHTTP, sHTML
    Set objHTTP = Server.CreateObject ("Microsoft.XMLHTTP")

    objHTTP.open "POST", varURL, False
    objHTTP.setRequestHeader "content-type","text/html"
    objHTTP.send

    sHTML = objHTTP.statusText

    If Err Then
        postURL = objHTTP.statusText & ": " & err.description
    Else
        postURL = objHTTP.responseText
    End If

    Set objHTTP = Nothing
    Set sHTML = Nothing

End Function

Altså jeg kan ikke huske 100%, hvordan man gør det i ASP. Det burde være noget á la:
------------------------------------
Function postURL(varURL)
    On Error Resume Next

    Dim objHTTP, sHTML
    Set objHTTP = Server.CreateObject ("Microsoft.XMLHTTP")

    objHTTP.onreadystatechange=Funktionen()

    objHTTP.open "POST", varURL, False
    objHTTP.setRequestHeader "content-type","text/html"
    objHTTP.send

    sHTML = objHTTP.statusText

    Function Funktionen()
      If objHTTP.readystate=4 And objHTTP.status=200 Then
        postURL = objHTTP.responseText
      Else
        postURL = objHTTP.statusText & ": " & err.description
      End If
    End Function

    Set objHTTP = Nothing
    Set sHTML = Nothing
End Function
---------------------------------------------
Men det skulle være utroligt, hvis det virkede :)

;:;)

Kommet videre?

Nææ.. Men giv et svar så får du point :)