<%@ language="javascript" %>
<%/*

TEST USE ONLY, NOT FOR PRODUCTION
REQUIRES DATA INPUT AND OUTPUT VALIDATION

See
http://ec.europa.eu/taxation_customs/vies/

- Forward (proxy) http request to other http server


*/%>
<%
    // config: the name of the backend server

    var server = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService"
    var http = new ActiveXObject("WinHttp.WinHttpRequest.5.1");

	var vat  = String(Request.QueryString("vat"));
	var country = Request.QueryString("country");
	
     // TODO: validate vat and country
	
	var sRequestBody = "<?xml version=\"1.1\" encoding=\"UTF-8\" standalone=\"no\"?><SOAP-ENV:Envelope xmlns:SOAP-ENV=\"http://schemas.xmlsoap.org/soap/envelope/\" xmlns:tns1=\"urn:ec.europa.eu:taxud:vies:services:checkVat:types\" xmlns:soapenc=\"http://schemas.xmlsoap.org/soap/encoding/\" xmlns:impl=\"urn:ec.europa.eu:taxud:vies:services:checkVat:types\" xmlns:apachesoap=\"http://xml.apache.org/xml-soap\" xmlns:wsdl=\"http://schemas.xmlsoap.org/wsdl/\" xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" xmlns:wsdlsoap=\"http://schemas.xmlsoap.org/wsdl/soap/\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" ><SOAP-ENV:Body><tns1:checkVat xmlns:tns1=\"urn:ec.europa.eu:taxud:vies:services:checkVat:types\"><tns1:countryCode>" + country + "</tns1:countryCode><tns1:vatNumber>" + vat + "</tns1:vatNumber></tns1:checkVat></SOAP-ENV:Body></SOAP-ENV:Envelope>";
	
	// POST to service

    http.Open("POST", server, false);
	http.SetRequestHeader("Content-Type", "text/xml");
    http.Send(sRequestBody);

    Response.Clear();
    Response.ContentType = "text/plain";
    Response.Write(http.ResponseText);
    Response.End();

%>