Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.Open "GET", Url, False
objWinHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Data = Data & "userID="& UserID
Data = Data & "&amount=" & amount
objWinHttp.Send Data
if err.number = 0 then
strResponseStatus = objWinHttp.Status & " " & objWinHttp.StatusText
strResponseText = objWinHttp.ResponseText
else
strResponseText = "ERROR:HTTP_ERR"
end if
Set objWinHttp = Nothing