<%@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, "\", "/") %>
Local Time in Japan: Print

Map to the U.S. Embassy in Japan

 Map of American Embassy Tokyo

*No parking on the Embassy ground is available. Please use public transportation.


Directions:

To get to the Embassy:  Take a cab to the “America Taishikan” (1-10-5 Akasaka, Minato-ku, Tokyo) or take the subway to Tameike-Sanno station. 

Take Exit 13 to get out of the subway station. 

The ANA Intercontinental Hotel will be at that exit just behind you to your left, and the elevated expressway will be in front of you.

 Walk to the right and past the 7-11.  At the next light (at Berlitz, which is on the corner on your right) turn right.  Walk one short block, cross a narrow road, and continue walking straight past the  “gold” tall office building; the Embassy is the next building after that.

Embassy of the United States of America
1-10-5 Akasaka
Minato-ku, Tokyo 107-8420
TEL: 03-3224-5000
Commercial Service Tokyo: 03-3224-5060


CS Japan Offices
csmap

  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.