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

Travel and Tourism: Attracting More International Visitors to the USA

Search By Country:

The Commercial Service helps U.S. tourism companies including promotion bureaus, CVBs, hotels, tour operators, and more to capture international business. We support you through the activities of our Travel & Tourism (T&T) Team comprised of tourism specialists throughout the U.S.

Team members can help you understand global markets, develop international marketing plans, meet buyers at international trade shows, and much more.

Learn more about what we can do for you:

• Read the latest market research (found below)

<% dim ListNode, ListENode, tid, EvenId, Lnode, Enode, Mnode ListNode = "travel" ListENode = "travel" 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 %>