' **************************************************************
'DEN ANRUF DIE GUTSCHRIFT-KERBE ERHALTEN LASSEN
'Versuch
'einen HttpWebRequest Gegenstand verursachen, um mit Experian zu verständigen
objRequest = C (WebRequest.Create (EcalsURL), HttpWebRequest)
objRequest.Method = „PFOSTEN“
objRequest.ContentLength = post_string. Länge
objRequest.ContentType = „application/x-www-form-urlencoded“
objRequest.Headers („Ermächtigung“) = „BASIC“ u. Authorization_string
'Pfostendaten gesendet als Strom
myWriter = nichts
myWriter = neues StreamWriter (objRequest.GetRequestStream ())
myWriter.Write (Post_string)
myWriter.Close ()
'zurückgebrachte Werte zurückgebracht als Strom racht, dann gelesen in eine Schnur
objResponse = C (objRequest.GetResponse (), HttpWebResponse)
Wenn objResponse.StatusCode = 200 dann
responseStream = neues StreamReader (objResponse.GetResponseStream ())
post_response = responseStream.ReadToEnd ()
responseStream.Close ()
objXML = neues XmlDocument ()
objXML.LoadXml (post_response)
Schwaches objStreamWriter als StreamWriter
objStreamWriter = File.AppendText (Server.MapPath („Output.txt“))
objStreamWriter.WriteLine (post_response)
objStreamWriter.Close ()
myNode = objXML.SelectSingleNode („//CompletionCode“)
Wenn nicht myNode nichts dann ist
…
|