<%@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, "\", "/") %>

Welcome to U.S. Commercial Service Philadelphia

The U.S. Commercial Service is the lead trade promotion agency of the U.S. government. U.S. Commercial Service trade professionals in over 100 U.S. cities and more than 75 countries help U.S. companies get started in exporting or increase sales to new global markets.

Export Stars!

U.S. Secretary of Commerce Kicks Off World Trade Week by Honoring U.S. Firms with Presidential Export Award

Congratulations to Helicopter Tech and Allied Wire & Cable Inc. on their E-Awards!

See the full press releases here:

New to Exporting

Experienced Exporters


Email Updates Icon Sign up for email updates

 


Exporter Resources

Highlights

Pennsylvania was well represented at Hannover Messe, the world’s largest trade show for industrial technology. Check out the recap!

Initiatives/Events

Our office is committed to assisting eastern Pennsylvania and Delaware firms in realizing their export potential. We provide export counseling and advice, information on markets abroad, international partner matchmaking, and advocacy services.

By leveraging our global network of full-time staff based in Embassies and Consulates around the world, as well as a multitude of local and national partners, we connect exporters to foreign-based buyers, agents, and distributors. Our in-depth industry and tradecraft counseling coupled with an array of exporting services allows us to specialize in providing customized international business solutions.

We combine these resources of the Commercial Service with the finance expertise of the Small Business Administration, ExIm, and local economic development offices to provide information on all federal programs designed to support international trade. 

Follow us on Twitter for real-time trade leads, export & event information at your fingertips!

Our Global Network at Work

 
<%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)%>