<% mvar = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") %>
A guide to history, events, tours, and attractions in Boston, Key West, San Diego, St Augustine, Savannah, and Washington DC...
  Close
  China France Germany Italy Japan Korea Portugal Spain  
Historic Tours of America Logo
HISTORIC TOURS OF AMERICA
The Nation's Storyteller
Home | FAQs | Buy Tickets | Contact Us
855-629-8777
RSS Feed
shadow
     
  Trusted Tours Tickets
red line
 
     
 
<%=cityname%>   > Back to all Trusted Tours Attractions
 
     
 
trusted tours and attractions logo

Trusted Tours & Attractions offers industry-leading value, guarantees, security and pricing for hundreds of the top tours and attractions throughout the United States.

Buy discount tickets for the best Sightseeing Tours, Attractions and Museums online and save!
Our price includes any taxes or fees. Print tickets at home - No Shipping or Hidden Costs!

 
     
 
     
 

<%=cityname%> Tours provided by other Trusted Tours & Attraction Members:

 
     
  <% '----------------------------------------------------------- 'The "loadXMLFile" Function accepts two parameters. 'strXMLFile - The path and file name of the XML file. 'strXSLFilee - The path and file name of the XSL file. '----------------------------------------------------------- Function loadXMLFile( strXSLFile) 'Declare local variables Dim objXML Dim objXSL Dim srcFile srcFile = "https://www.historictours.com/trusted-tours/trustedtours.xml" 'Nothing Below Here Has To Change Response.Buffer = True Dim objXMLHTTP, xml ' Create an xmlhttp Object and Get it! Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", srcFile, False xml.Send xstr = xml.responseText set xml = Nothing 'Response.write "
" & xstr 'Instantiate the XMLDOM Object that will hold the XML file. set objXML = Server.CreateObject("Microsoft.XMLDOM") 'Turn off asyncronous file loading. objXML.async = false 'Load the XML file. 'objXML.load(strXMLFile) objXML.loadXML(xstr) 'Instantiate the XMLDOM Object that will hold the XSL file. set objXSL = Server.CreateObject("Microsoft.XMLDOM") 'Turn off asyncronous file loading. objXSL.async = false 'Load the XSL file. objXSL.load(strXSLFile) 'Use the "transformNode" method of the XMLDOM to apply the 'XSL stylesheet to the XML document. Then the output is 'written to the client. Response.write "
--------------" Response.Write(objXML.transformNode(objXSL)) End Function loadXMLFile server.MapPath("xml\trustedtours.xml"), server.MapPath(xslfile) %>
 
     
 
     
bottom gradient


Home | History | Company Overview | Owners | Board | Guest Comments | Land Tours | Water Tours | Attractions
Festival Marketplaces & Shopping | Cruise Guest Tours | School & Specialty Trips | Welcome Centers | Restaurants | Current Projects | Real Estate
Boston Attractions | Key West Attractions | Nashville Attractions | San Diego Attractions | Savannah Attractions | St. Augustine Attractions | Washington DC Attractions

Environment | Charitable Contributions | Restorations | Special Events | Safety Programs | Media Center | Newsletters | Videos | Careers Overview
How to Apply | FAQs | Contact Form | Customer Service | Hometown Pass | Purchase Tickets | News and Awards | Nation's Storyteller
eNewsletter | Groups and Charters | Terms of Use | Privacy Policy
| Photo Gallery | Washington DC Field Trip | Login


Historic Tours of America ® 201 Front Street, Key West, Florida 33040 • Phone: 855-629-8777 • Copyright © Historic Tours of America ®
Old Town Trolley Tours, Transportainment and Boston Tea Party Ships & Museum are registered trademarks of Historic Tours of America® .
Ghosts & Gravestones, Frightseeing and Boston's Original Chocolate Tour are registered service marks of Historic Tours of America®