<%@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")%>
Services

Email Updates Icon Sign up for Services email updates

In 2009, the Services industry exported $502.3 billion of business to foreign markets. The top markets include United Kingdom, Canada, Germany, Mexico, Ireland, France, Switzerland, China, and Netherlands.

A network of trade specialists and industry experts throughout the U.S. and in foreign markets abroad are ready to help you increase your export sales by supplying you with essential market research and trade opportunities.

Want more on Services?

• U.S. Census Bureau publishes the latest report on U.S. International Goods and Services.


<% dim ListNode, ListENode, tid, EvenId, Lnode, Enode, Mnode ListNode = "services" ListENode = "services" If ListNode = "mediaandentertainment" Then ListNode ="paper" End If If ListENode = "mediaandentertainment" Then ListENode ="paper" End If tid = Request.QueryString("TradeLeadID") EvenId = Request.QueryString("EventID") Lnode =Request.QueryString("node") Enode =Request.QueryString("node2") Mnode =Request.QueryString("node3") If tid<>"" Then %> <% ElseIf EvenID<>"" Then %> <% ElseIf Lnode<>"" Then %> <% ElseIf Enode<>"" Then %> <% Else %>

<% End If %>

  Notice to Visitors!


  The link you have chosen will take you to a non-U.S. Government website.

  If the page does not appear in 5 seconds, please click this: outside web site

  Export.gov is managed by the International Trade Administration and external links are covered by its website  disclaimer statement.


  Notice to Visitors!


  The link you have chosen will take you to a non-U.S. Government website.

  If the page does not appear in 5 seconds, please click this: outside web site

  BuyUSA.gov is managed by the International Trade Administration and external links are covered by its website disclaimer statement.