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

臺灣 Taiwan

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

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

進口商機工業分類一覽表

欲在台灣找尋代理商、經銷商、訂單、加盟與投資夥伴之美國廠商均有一專屬網頁介紹該公司的產品。台灣進口商若對下列分類中之美商產品有興趣代理、經銷、採購、加盟或有意投資美商者,請填妥並以電子郵件寄出該產品頁面所附之台商基本資料表,本組收到來信後,將提供美商公司的聯絡資料,讓您與美商直接洽詢。

若從下列資料中仍找不到您想要的美國產品, 請點此處 貿易資料查詢服務 (想找特定美國產品)

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