Prov ASP script

<% @ Language = VBScript%>
<%
Response.Buffer = Sant
Dim objXMLHTTP, xml, kommando, aicc_loc, version, session_id, aicc_data, postbody

"Få passerat params beroende på metod som skickas"
if (Request.QueryString ("aicc_loc") <> "") sedan
  aicc_loc = Request.QueryString ("aicc_loc")
  kommando = Request.QueryString ("kommando")
  version = Request.QueryString ("version")
  session_id = Request.QueryString ("session_id")
  aicc_data = Request.QueryString ("aicc_data")
annars
  aicc_loc = Request.Form ("aicc_loc")
  kommando = Request.Form ("kommando")
  version = Request.Form ("version")
  session_id = Request.Form ("session_id")
  aicc_data = Request.Form ("aicc_data")
slutar om

"Bygga posten kroppssträngen"
postbody = "kommando =" + Server.URLEncode (kommando) + "& version =" + Server.URLEncode (version) + "& session_id =" + 
Server.URLEncode (session_id)
om aicc_data <> "" sedan
  postbody = postbody + "& aicc_data =" + Server.URLEncode (aicc_data)
slutar om

"Skapa ett XMLHTTP objekt:"
Set xml = Server.CreateObject ("Microsoft.XMLHTTP")
"Eller, för version 3.0 av XMLHTTP, använd:"
"Ställ xml = Server.CreateObject (" MSXML2.ServerXMLHTTP ") '

"Öppnar anslutning till fjärrservern."
xml.Open "POST", aicc_loc, False
xml.setRequestHeader "Content-Type", "application / x-www-form-urlencoded"

"Egentligen skickar begäran och returnerar data:"
XML.send postbody

"Skicka tillbaka svaret"
Response.Write xml.responseText

Set xml = Nothing
%>