%
Response.Write "
START
"
strPassWord = "Qj6y4SMt23W"
strHash = hex_sha1(strPassWord)
response.write strHash
Set oXmlHTTP = CreateObject("Microsoft.XMLHTTP")
oXmlHTTP.Open "POST", "https://testservice.postnl.com/CIF_SB/LabellingWebService/2_0/LabellingWebService.svc", False
oXmlHTTP.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXmlHTTP.setRequestHeader "SOAPAction", "http://postnl.nl/cif/services/LabellingWebService/ILabellingWebService/GenerateLabel"
SOAPRequest = _
"" &_
"" &_
"http://postnl.nl/cif/services/LabellingWebService/ILabellingWebService/GenerateLabel" &_
"" &_
"" &_
"straversshoes" &_
"cf96c6b30ac2d1e8b7c82f36fc02626fcf05c3df" &_
"" &_
"" &_
"" &_
"" &_
"" &_
"" &_
"" &_
"02" &_
"" &_
"" &_
"Amsterdam" &_
"Stravers Shoes" &_
"NL" &_
"" &_
"" &_
"" &_
"" &_
"127" &_
"" &_
"" &_
"" &_
"" &_
"Overtoom" &_
"" &_
"1054 HE " &_
"" &_
"103861" &_
"Alle van der Haag" &_
"TJMB" &_
"9849975" &_
"info@stravers.shoes" &_
"Stravers" &_
"" &_
"" &_
"" &_
"1" &_
"22-09-2016 06:27:14" &_
"GraphicFile|JPG 200 dpi" &_
"" &_
"" &_
"" &_
"" &_
"" &_
"01" &_
"" &_
"" &_
"Amersfoort" &_
"" &_
"Nederland" &_
"" &_
"" &_
"" &_
"" &_
"44" &_
"" &_
"Roger del Castilho" &_
"" &_
"" &_
"Kleine Kreek " &_
"" &_
"3823JX" &_
"" &_
"" &_
"" &_
"CD123456785NL" &_
"" &_
"" &_
"" &_
"Shoes" &_
"12" &_
"1234" &_
"" &_
"Kleine Kreek 46, 3823JX, Amsterdam" &_
"" &_
"" &_
"1" &_
"1" &_
"1" &_
"1" &_
"1" &_
"" &_
"" &_
"" &_
"" &_
"" &_
"" &_
"" &_
"02" &_
"" &_
"4945" &_
"" &_
"" &_
"111" &_
"111" &_
"" &_
"121" &_
"121" &_
"" &_
"" &_
"" &_
"" &_
""
'response.write SOAPRequest
oXmlHTTP.send SOAPRequest
If oXmlHTTP.status <> 200 Then
Response.Write "HTTP Status error - " & oXmlHTTP.status
'Response.End
End If
Response.Write " response = " & oXmlHTTP.responseText
Response.Write "
END
"
%>