Vacation IMPACT | The ultimate travel guide for your next caribbean dream vacation experience !

ID :
E-mail :

	Home
	El País - Das Land
	Erlebnis-& Aktivreisen
	Hotels & Resorts
	Flüge
	Pauschalreisen
	Last Minute
	Kreuzfahrten
	Transfers
	--------------------
	Restaurants & Bars
	Hochzeitsreisen
	Rancho Casacada
	--------------------
	Klima
	Flora & Fauna
	Zeitzone
	Kommunikation
	Elektrizität
	Bevölkerung
	Gesundheit
	Schulwesen
	--------------------
	Einreisebestimmungen
	Feedback & Gästebuch
	News & Touristinfos
	Reiseangebotsliste
	Reiseanfrage

T o u r e n & E r l e b n i s r e i s e n

<% Set rsTours = server.CreateObject("adodb.recordset") mySql = "select Tours.TourID, Tours.Tour from Tours inner join AgentTours on AgentTours.TourID = Tours.TourID inner join TourAgents on TourAgents.TAID = AgentTours.TAID where Status = 1 AND Expiration > '" & MyDate & "' Group by Tours.TourID, Tours.Tour ORDER BY Tours.Tour" rsTours.Open mySQL,dbConn,3 Set rsRegions = server.CreateObject("adodb.recordset") mySql = "select Regions.RegionID, Regions.Region from Regions inner join TourRegions on TourRegions.RegionID = Regions.RegionID inner join AgentTours on AgentTours.ATID = TourRegions.ATID inner join TourAgents on TourAgents.TAID = AgentTours.TAID where Status = 1 AND Expiration > '" & MyDate & "' Group By RegionID Order by Region" rsRegions.Open mySQL,dbConn,3 %>

Touren:
Abreise:

Alle Touren und Erlebnisreisen

<% 'List all Excursions by selected Regions 'set rsTours = server.CreateObject("adodb.recordset") 'mySql = "select * from Tours inner join AgentTours on AgentTours.ATID = TourRegions.ATID inner join TourAgents on TourAgents.TAID = AgentTours.TAID inner join TourRegions on TourRegions.ATID = AgentTours.ATID WHERE TourRegions.RegionID = '" & request.querystring("Region") & "' AND Status = 1 AND Expiration > '" & MyDate & "' Group by Tours.TourID" 'rsTours.Open mySQL,dbConn,3 set rsTours = server.CreateObject("adodb.recordset") mySql = "select * from Tours inner join AgentTours on AgentTours.TourID = Tours.TourID inner join TourRegions on TourRegions.ATID = AgentTours.ATID inner join TourAgents on TourAgents.TAID = AgentTours.TAID Where Status = 1 AND Expiration > '" & MyDate & "' Group by Tours.TourID" rsTours.Open mySQL,dbConn,3 do until rsTours.EOF MyTourID = rsTours("TourID") Set rsProvider = server.CreateObject("adodb.recordset") mySql = "select TourAgents.TAID from TourAgents inner join AgentTours on AgentTours.TAID = TourAgents.TAID inner join TourRegions on TourRegions.ATID = AgentTours.ATID WHERE Status = 1 AND Expiration > '" & MyDate & "' AND AgentTours.TourID = '" & MyTourID & "'" rsProvider.Open mySQL,dbConn,3 %> <% rsProvider.close set rsProvider = Nothing rsTours.movenext loop rsTours.close set rsTours = nothing %>

&R=<%=rsTours("RegionID")%>&TA=<%=rsProvider("TAID")%>" style="TEXT-DECORATION: none" target="_top"><%=rsTours("Tour")%>