%
Response.Buffer = True
XML_SendData = ("")& vbCrLf
XML_SendData = XML_SendData & ("")& vbCrLf
XML_SendData = XML_SendData & (" Nome cognome(API)")& vbCrLf
XML_SendData = XML_SendData & (" simmorga@xxx.com")& vbCrLf
XML_SendData = XML_SendData & (" Testing API")& vbCrLf
XML_SendData = XML_SendData & (" 318-555-8634")& vbCrLf
XML_SendData = XML_SendData & (" Message content here")& vbCrLf
XML_SendData = XML_SendData & (" XXX.XXX.XXX.XXX")& vbCrLf
XML_SendData = XML_SendData & ("")& vbCrLf
'XML_SendData = Server.URLEncode(XML_SendData)
' pagina da richiamare
url = "http://www.XXXX.it/support/api/tickets.xml"
' usiamo l'oggetto XMLHTTP
Set XMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
XMLHTTP.open "POST", url, false
' headers da impostare
XMLHTTP.setRequestHeader "User-Agent", "osTicket API Client v1.7"
xmlHTTP.setRequestHeader "Content-Type", "application/xml; charset=utf-8"
XMLHTTP.setRequestHeader "X-API-Key", "F47362D78CE490539235DE82C72D688F"
' inviamo la richiesta
XMLHTTP.send (XML_SendData)
' codice di risposta del server
status = CInt(XMLHTTP.status)
' Se lo stato \350 200, \350 ok
if status = 200 then
Response.write (XMLHTTP.responseText)&"
"
else
Response.write "
Errore: " & status
end if
set XMLHTTP = Nothing
%>