Beispiel ASP-Skript

<% @ Language = VBScript%>
<%
Response.Buffer = True
Dim objXMLHTTP, xml, Befehl, aicc_loc, Version, session_id, aicc_data, postbody

'Params übergeben bekommen, je nach Methode gesendet "
if (Request.Querystring ("aicc_loc") <> ""), dann
  aicc_loc = Request.Querystring ("aicc_loc")
  command = Request.Querystring ("command")
  version = Request.Querystring ("version")
  session_id = Request.Querystring ("session_id")
  aicc_data = Request.Querystring ("aicc_data")
sonst
  aicc_loc = request.form ("aicc_loc")
  command = request.form ("command")
  version = request.form ("version")
  session_id = request.form ("session_id")
  aicc_data = request.form ("aicc_data")
end if

"Erstellen Sie die Post Körper String '
postbody = "command =" + Server.URLEncode (Befehl) + "& version =" + Server.URLEncode (Version) + "& session_id =" + 
Server.URLEncode (session_id)
wenn aicc_data <> "" dann
  postbody = postbody + "& aicc_data =" + Server.URLEncode (aicc_data)
end if

'Neues xmlhttp Objekt: "
Set xml = Server.CreateObject ("Microsoft.XMLHTTP")
"Oder, für die Version 3.0 von XMLHTTP verwenden:"
'Set xml = Server.CreateObject ("MSXML2.ServerXMLHTTP")'

"Öffnet die Verbindung zum Remote-Server."
xml.Open "POST", aicc_loc False
xml.setRequestHeader "Content-Type", "application / x-www-form-urlencoded"

"Eigentlich sendet die Anfrage und gibt die Daten:"
XML.send postbody

'Senden wieder die Antwort "
Response.Write xml.responseText

Set XML = Nothing
%>