<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' Loads a file and executes it as an ASP file. ' Needed to perform dynamic execution of BSP/FUSE ' and can be useful down the road Function GetFileContentsForExecution(aspFileFragmentPath) Dim oFSO, sContents 'Obtain a reference to the FileSystemObject Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 'Obtain the file contents sContents = oFSO.OpenTextFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & aspFileFragmentPath).ReadAll Set oFSO = Nothing 'reference to the FileSystemObject 'Remove the ASP scripting tags sContents = Replace (sContents, "<" & "%", "") sContents = Replace (sContents, "%" & ">", "") GetFileContentsForExecution = sContents End Function ' Grabs the node value of the responseXML returned ' by the CSWP_DOC_INFO service. This is used to ' display metadata on the confirmation page. Function GetXmlNodeValue(objXmlRowNode, strNodeName) Dim objXmlNode, objXmlNodeValue Set objXmlNode = objXmlRowNode.selectSingleNode("@" & strNodeName) If (objXmlNode Is Nothing) Then Set objXmlNode = objXmlRowNode.selectSingleNode("idc:field[@name='" & strNodeName & "']") End If If (Not (objXmlNode Is Nothing)) Then GetXmlNodeValue = objXmlNode.Text End If End Function %> <%dim instanceName%> <%dim serverAddr%> <%dim visitorIP%> <%dim displayAllBSP%> <%dim fuseType%> <%dim cswpProgram%> <%instanceName = "build"%> <%serverAddr = "https://build.export.gov/build/idcplg"%> <%visitorIP = Request.ServerVariables("REMOTE_ADDR")%>
<% dim pathInfo pathInfo = Request.ServerVariables("PATH_INFO") pathInfo = "/"&Split(pathInfo, "/")(1) virtualDir = Server.MapPath(pathInfo) dim rootLength rootLength = Len(Server.MapPath("/")) virtualDir = Mid(virtualDir, rootLength+2) virtualDir = replace(virtualDir, "\", "/") %>

U.S. Commercial Service for Massachusetts

Massachusetts U.S. Export Assistance Center
55 New Sudbury Street, Suite 1826A
Boston, MA 02203

Phone: 617-565-4301
Fax: 617-565-4313

Massachusetts Export Assistance Center Territory Map

Name & Title

Regions & Industries*

Email & Phone

James Paul
USEAC Director

Central and Western Massachusetts
Education, Architecture, Engineering

JPaul@trade.gov
(617) 565-4304

Michelle Ouellette
Senior International
Trade Specialist

North Shore
Healthcare Technologies,
Safety & Security,
Aerospace & Defense

Maryanne Burke
Senior International
Trade Specialist

Greater Boston
Marine Technologies,
Publishing,
Travel & Tourism, and Information & Communication Technology

John Joyce
Small Business
Administration Export
Finance Manager

All New England States

John.Joyce@trade.gov
(617) 565-4305

*Please Note: if you do not see your industry sector listed, please defer to regional coverage.

Trade Information Center

1-800-USA-TRADE (1-800-872-8723)

The Trade Information Center works in conjunction with the Boston office. For immediate export assistance or for answers to your technical questions on exporting, call M-F 8:30 am – 6:00 pm Eastern Time.

 
<%if Request.QueryString("responseID") <> "" then%> <% dim confID, revID, strSoapRequest confID = Request.QueryString("responseID") revID = Request.QueryString("rev") strSoapRequest = "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "" dim httpRequest set httpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP") 'make the request httpRequest.open "POST", serverAddr, false httpRequest.setRequestHeader "Content-Type", "text/xml; charset=utf-8" httpRequest.send(strSoapRequest) if(Err <> 0) then Response.Write("An error occured when retrieving data from an external source.
") Response.Write(Err.Description) Response.End end if ' something went wrong if(httpRequest.status <> 200) then Response.Write(httpRequest.status) end if dim xslDOMDoc dim objXML3 'set-up XMLDOM set xslDOMDoc = Server.CreateObject("MSXML2.DOMDocument") xslDOMDoc.async=false set xslDOMDoc = httpRequest.responseXML dim idcNamespace idcNamespace = "xmlns:idc=""http://www.stellent.com/IdcService/""" xslDOMDoc.setProperty "SelectionNamespaces", idcNamespace ' Check the status code. Dim objXmlStatusCodeNode, objXmlStatusMessageNode, strStatusCode, nStatusCode, strStatusMessage Set objXmlStatusCodeNode = xslDOMDoc.documentElement.selectSingleNode("//idc:field[@name='StatusCode']") If (Not objXmlStatusCodeNode Is Nothing) Then nStatusCode = CInt(objXmlStatusCodeNode.Text) If (nStatusCode < 0) Then Response.Write(xslDOMDoc.documentElement.selectSingleNode("//idc:field[@name='StatusMessage']").Text) Response.End End If End If ' Display content information Dim strDocName, strDocTitle, strDocType Dim objXmlInfoNodeList Set objXmlInfoNodeList = xslDOMDoc.documentElement.selectNodes("//idc:resultset[@name='DOC_INFO']/idc:row") strDocName = GetXmlNodeValue(objXmlInfoNodeList.Item(0), "xFormEmailBody") %> <%end if%> <%=URLDecode(strDocName)%>