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

R e s t a u r a n t s & B a r s

?Type=<%=request.form("Type")%>?Region=<%=request.form("Region")%>?Name=<%=request.form("Name")%>?Golf=<%=request.form("Golf")%>?Specials=<%=request.form("Specials")%>" target="_self"> <% Set rsCategory = server.CreateObject("adodb.recordset") mySql = "select Properties.PropertyType, Properties.Category, Categories.CategoryID, Categories.EN from Properties inner join Categories on Categories.CategoryId = Properties.Category where Status = 1 AND PropertyType = 2 And Expiration > '" & MyDate & "' Group by Properties.PropertyType, Properties.Category, Categories.CategoryID, Categories.EN ORDER BY Categories.EN" rsCategory.Open mySQL,dbConn,3 Set rsFoodTypes = server.CreateObject("adodb.recordset") mySql = "select FoodType.FoodID, FoodType.EN from FoodType right join RestFood on FoodType.FoodID = RestFood.FoodID left join Properties on RestFood.MemberID = Properties.PropertyID where Properties.Status = 1 AND Properties.PropertyType = 2 And Expiration > '" & MyDate & "' Group by FoodType.FoodID, FoodType.EN Order by FoodType.EN" rsFoodTypes.Open mySQL,dbConn,3 Set rsRegions = server.CreateObject("adodb.recordset") mySql = "select Properties.PropertyType, Properties.Region, Regions.RegionID, Regions.Region as MyRegion from Properties inner join Regions on Regions.Regionid = Properties.Region where Status = 1 AND PropertyType = 2 And Expiration > '" & MyDate & "' Group by Properties.PropertyType, Properties.Region, Regions.RegionID, Regions.Region ORDER BY Regions.Region" rsRegions.Open mySQL,dbConn,3 %>

Restaurant & Bar Search:

Advanced Search:

Category:
Cuisine:
Region:

Listing by Region . . .

<% 'List all Regions Set rsRegions = server.CreateObject("adodb.recordset") mySql = "select Properties.PropertyType, Properties.Region, Regions.RegionID, Regions.Region as ListRegion from Properties inner join Regions on Regions.Regionid = Properties.Region where Status = 1 AND PropertyType = 2 And Expiration > '" & MyDate & "' Group by Properties.PropertyType, Properties.Region, Regions.RegionID, Regions.Region ORDER BY Regions.Region" rsRegions.Open mySQL,dbConn,3 do until rsRegions.EOF Set rsRestaurants = server.CreateObject("adodb.recordset") mySql = "select Region from Properties where Region = '" & rsRegions("RegionID") &"' AND Status = 1 AND PropertyType = 2 And Expiration > '" & MyDate & "'" rsRestaurants.Open mySQL,dbConn,3 %> <% rsRegions.movenext loop rsRegions.close set rsRegions = nothing rsRestaurants.close set rsRestaurants = Nothing %>

" style="TEXT-DECORATION: none" target="_top"><%=rsRegions("ListRegion")%>( <%=rsRestaurants.recordcount%> )