Muestra de secuencia de comandos ASP

<% @ Language = VBScript%>
<%
Response.Buffer = True
Dim objXMLHTTP, xml, comando, aicc_loc, versión, session_id, aicc_data, postbody

'Get params dependiendo método enviados pasado'
if (Request.Querystring ("aicc_loc") <> ""), entonces
  aicc_loc = Request.Querystring ("aicc_loc")
  command = Request.Querystring ("orden")
  version = Request.Querystring ("versión")
  session_id = Request.Querystring ("session_id")
  aicc_data = Request.Querystring ("aicc_data")
más
  aicc_loc = Request.Form ("aicc_loc")
  command = Request.Form ("orden")
  version = Request.Form ("versión")
  session_id = Request.Form ("session_id")
  aicc_data = Request.Form ("aicc_data")
end if

'Construir la cadena del cuerpo post "
postbody = "command =" + Server.URLEncode (comando) + "& version =" + Server.URLEncode (versión) + "& session_id =" + 
Server.URLEncode (session_id)
si aicc_data <> "", entonces
  postbody = postbody + "& aicc_data =" + Server.URLEncode (aicc_data)
end if

'Crear un objeto xmlhttp:'
Set xml = Server.CreateObject ("Microsoft.XMLHTTP")
O, para la versión 3.0 de XMLHTTP, use: '
'Xml Set = Server.CreateObject ("MSXML2.ServerXMLHTTP")'

'Abre la conexión con el servidor remoto. "
xml.Open "POST", aicc_loc, False
xml.setRequestHeader "Content-Type", "/ urlencoded x-www-form-aplicación"

'En realidad envía la solicitud y devuelve los datos:'
postbody XML.send

'Devolver la respuesta'
Response.Write xml.responseText

Set xml = Nothing
%>