Dim n_Http, n_Type, n_Method, n_Value, n_Async
n_Type = "application/x-www-form-urlencoded"
n_Method = "POST"
n_Value = ""
n_Async = False
Set n_Http = Create("MSXML2.ServerXMLHTTP")
n_Http.setTimeouts 5000, 5000, 15000, 15000
n_Http.Open n_Method, Url, n_Async
If Cache("HTTP_HOST") = "" Then
Cache("HTTP_HOST") = Refer("HTTP_HOST", Null, 0)
End If
n_Http.setRequestHeader "CONTENT-TYPE", n_Type
n_Http.setRequestHeader "Organise", "Seaoh.com Service for Internet"
n_Http.Send(n_Value)
If n_Async Then
Exit Function
End If
If n_Http.Status = 200 And Err.Number = 0 Then
Remote = n_Http.ResponseBody
End If
Set n_Http = Nothing