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

BUYUSA.GOV -- U.S. Commercial Service

Canada

<% 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. Companies Seeking Canadian Partners

<%if Request.QueryString("exp_cat") = "" and isEmpty(Request.QueryString("latest")) then%>

Featured U.S. Exporters

Below is a list of U.S. companies seeking representation in Canada. The companies are listed under the identified industry sectors. Click on the industry sector of interest and view a description of the products and/or services that the U.S. company is offering, and the type of commercial relationship it is seeking in the Canadian market.

<%end if%><%if isEmpty(Request.QueryString("latest")) then%> <%displayAllBSP=false%> <%fuseType = ""%> <%cswpProgram = "fuse"%> <% virtualDir="" Execute GetFileContentsForExecution(virtualDir & "/build/fragments/fl_cswp_drilldown_listing/show_cswp_listings_xml_xsl.asp") %> <%fuseType = ""%> <%cswpProgram = ""%> <%if Request.QueryString("exp_pid") <> "" then%> <%displayAllBSP=false%> <%fuseType = ""%> <%cswpProgram = "fuse"%> <% virtualDir="" Execute GetFileContentsForExecution(virtualDir & "/build/fragments/fl_cswp_drilldown_listing/show_other_listings.asp") %> <%fuseType = ""%> <%cswpProgram = ""%> <%end if%><%else%> <%displayAllBSP=false%> <%fuseType = "latest"%> <%cswpProgram = "fuse"%> <% virtualDir="" Execute GetFileContentsForExecution(virtualDir & "/build/fragments/fl_cswp_drilldown_listing/show_fuse_type.asp") %> <%fuseType = ""%> <%cswpProgram = ""%> <%end if%>
<%displayAllBSP=false%> <%fuseType = "random"%> <%cswpProgram = "fuse"%> <% virtualDir="" Execute GetFileContentsForExecution(virtualDir & "/build/fragments/fl_cswp_drilldown_listing/show_fuse_type.asp") %> <%fuseType = ""%> <%cswpProgram = ""%>




  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.